Suchen und Text schreiben
10.09.2020 10:50:09
xtian
ich habe ein Problem und möchte dieses gerne per VBA lösen. Leider bekomme ich das Makro nicht zum
laufen und hoffe auf eure Unterstützung.
In der Spalte B stehen Nummern in 3 verschiedenen Kombinationen. Zwischen den Zeilen kommt es vor,
dass leere Zeilen dabei sind oder auch andere Zahlen wie z.B. 2457987 dort stehen. Das Makro soll aber
nur bei den folgenden Kombinationen aktiv werden:
Kombination 1: 3 Stellen z.B. 001 oder 002 usw. > In Spalte A soll dann Z1 stehen
Kombination 2: 7 Stellen z.B. 001.001 oder 002.001 usw. > In Spalte A soll dann Z2 stehen
Kombination 3: 12 Stellen z.B. 001.001.0010 oder 001.002.0100 usw. > In Spalte A soll dann Z3 stehen
Beispiel:
SpalteA SpalteB
Z1... .003
.2457987
Z2... .003.100
..
.598769
Z3... .003.100.5000
Den Code den ich mit meinen Bescheidenen VBA-Kenntnissen entwickelt habe, funktioniert leider nicht.
Ich habe keine Idee wie ich das Excel die Zahlenkombinationen vorgeben soll.
Sub ZahlenEinfuegen()
Dim SuZelle As Range
Dim LastRow As Long
LastRow = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row
For Each SuZelle In Range("B1:B" & LastRow)
If SuZelle = "?" Then
SuZelle.Offset(0, -1).Insert "Z1"
If SuZelle = "?.?" Then
SuZelle.Offset(0, -1).Insert "Z2"
If SuZelle = "?.?.?" Then
SuZelle.Offset(0, -1).Insert "Z3"
End If
Next SuZelle
End Sub
Christian
Anzeige