Hallo zusammen,
ich habe eine einfache Funktion welche alle Zeilen einer Tabelle durchgeht und bei Bedarf 2 Zellen tauscht. Hier nur der Ausschnitt der die Inhalte der Zellen tauscht:
tmp = Cells(z, Briefanrede.Column).Value
Cells(z, Briefanrede.Column).Value = Cells(z, PartnerBriefanrede.Column).Value
Cells(z, PartnerBriefanrede.Column).Value = tmp 'tauschen
Es wird also der Inhalt der Zelle Briefanrede in die Variable tmp geschrieben, dann die Zelle mit dem Wert auf der Zelle ParnterBriefanrede überschrieben und dann diese zelle tmp kopiert. Tausch vollbracht ;)
Nun müsste ich noch folgendes einbauen
In einer Zelle steht vor dem tausch "Sehr geerhter Herr" und "ehr geerhte Frau", ich müsste also beim tausch im ersten Fall das "s" entfernen" und mi 2. Fall ein "s" am Anfang hinzufügen,
wie mache ich das am einfachsten?
Vielen Dank
|