Hi zusammen,
folgende Spalte ist gegeben:
HH- MA 7
M-JU 37
D-ZS1256
Z-HM 0078
etc.
Ich bräuchte ein Makro, welches die Werte wie folgt korrigiert:
„Landkreis“+"-"+„Buchstaben“+„Leerzeichen“+„4stellige Zahl incl. Vornullen“
Also als Ergebnis meines Beispiels:
HH-MA 0007
M-JU 0037
D-ZS 1256
Z-HM 0078
Eine Lösung würde mich sehr freuen!!!
Viele Grüße,
quentin
Hi Quentin,
versuch’s mal hiermit:
Sub Autokennzeichen()
’ Alle Leerzeichen löschen
Columns(„A:A“).Select
Application.CutCopyMode = False
Selection.Replace What:=" „, Replacement:=“", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
’ Hier geht’s los in Zeile 1 …
z = 1
’ … solange, bis leere Zelle gefunden wird
While Cells(z, 1) „“
n = Cells(z, 1)
For i = 1 To Len(n)
’ Trennstelle finden Buchstabe-Zahl
If Mid(n, i, 1) >= „0“ And Mid(n, i, 1)
Hi Sculpture,
vielen Dank, funktioniert 1A !
Gibt’s denn noch die Möglichkeit, dass das Makro nicht die Spalte A, sondern die zuvor ausgewählten Zellen bearbeitet?
Grüße,
Quentin
Hi Quentin,
Gibt’s denn noch die Möglichkeit, dass das Makro nicht die
Spalte A, sondern die zuvor ausgewählten Zellen bearbeitet?
habe das Makro nochmal abgeändert, nun wird nur der markierte Teil bearbeitet:
Sub Autokennzeichen()
’ Alle Leerzeichen löschen
Selection.Replace What:=" „, Replacement:=“", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
’ … solange, bis leere Zelle gefunden wird
For Each c In Selection
n = c.Value
For i = 1 To Len(n)
’ Trennstelle finden Buchstabe-Zahl
If Mid(n, i, 1) >= „0“ And Mid(n, i, 1)