Die Bezeichnung incl. des Leerzeichens hinter Vorname möchte ich durch einen VBA-Code löschen.
Name, Vorname (Key.)
oder
Name, Vorname (Klar.)
Da ich aber nicht weiß, wie ich ran gehen soll, bitte ich um Hilfe.
Danke.
Gruß
Karsten
Sub Teilen()
Dim a, Text As String
Text = "Name, Vorname (Key.)"
a = Split(Text, " ")
Text = a(0) & a(1)
End Sub
Sub hau_wegg()
Dim lngZeile As Long
For lngZeile = 2 To 20
Range("D" & lngZeile) = Split(Range("A" & lngZeile).Value, " " & Chr(40))(0)
Next
End Sub
A | |
1 | Name, Vorname (Key.) |
2 | oder |
3 | Name, Vorname (Klar.) |
4 | |
5 | |
6 | |
7 | |
8 | |
9 | |
10 |
A | |
1 | Name, Vorname |
2 | oder |
3 | Name, Vorname |
4 | |
5 | |
6 | |
7 | |
8 | |
9 | |
10 |