2 Zeichen im String suchen ersetzen
12.02.2014 13:47:56
klaus
der Code stellt fest, ob im String an der zweiten Stelle ein Leerzeichen ist. Nun möchte ich, dass an dieser Stelle das Leerzeichen entfernt wird. Wie geht das?
Freue mich auf eine Antwort.
'Sucht nach Leerzeichen in der Spalte 1 von Projekt-Übersicht und löscht diese
Sub SuErLeerzeichenZweiteStelle()
Dim sLeer As String
Ze = 4
Set wksZiel = Worksheets(sProj)
Do While Not IsEmpty(Cells(Ze, 1))
If Mid(Cells(Ze, 1).Value, 2, 1) = " " Then
End If
Ze = Ze + 1
Loop
End Sub
Anzeige