VBA löschen von "- "
18.06.2018 07:11:31
"-
würde mir bitte jemand bei meinem Problem helfen. In meinem Tabllenblatt in das ich Datensätze einlade steht in der Spalte 9 manchmal "- ##" also minus dann ein Leerzeichen und dann ##. Ich möchte gerne mittels VBA in jeder Zeile das "- " löschen. Aber nicht das überall "- " gelöscht wird sondern nur wenn "- " am Anfang steht. Ich habe schon versucht das Problem alleine zu lösen das es funktioniert noch nicht. Wäre nett wenn mir jemand helfen könnte
Private Function Erase_Unwanted_Data(Ws As Worksheet) As Boolean
Dim zeile As Long, PosAt3 As Integer, PosAt4 As Integer, zText As String
With Ws
For zeile = 1 To .Cells(.Rows.Count, 9).End(xlUp).Row
PosAt4 = 0
zText = .Cells(zeile, 9).Text
PosAt3 = InStr(1, zText, "- ")
If PosAt3 > 0 Then
PosAt4 = InStr(PosAt3 + 1, zText, "- ")
End If
Next
End With
End Function
Anzeige