in variable unzulässig zeichen tauschen
12.02.2014 16:44:13
klaus
mit do while-Schlaufe durchlaufe ich Strings in der 1.Spalte, die in einer Variablen gespeichert und später als Blattnanen verwendet werden sollen. Hier kann es vorkommen, dass im String unzulässige Zeichen vorkommen. Diese sollten nicht im Sting sondern in der Variable gegen einen Bindestrich während der Laufzeit ausgetauscht werden. Habt Ihr eine Idee?
Danke im voraus.
Sub UnzulässigeZeichenTauschen()
With wksQuelle
'do while-Schleife, die die erste Spalte bis zur ersten leeren
'Zelle durchläuft und den Zellwert in einer Variablen übergibt
Do While Not IsEmpty(Cells(dblaktZeile, 1))
strPNr = Cells(dblaktZeile, 1).Value
'hier sollen nun Zeichen, die nicht als Blattnamen verwendet werden dürfen
'während der Laufzeit gegen einen Bindestrich gestauscht werden
dblaktZeile = dblaktZeile + 1
Loop
End Sub