Wenn B2=B1 dann C2=C1 (VBA)
01.07.2021 10:42:31
Pierre
nun habe ich auch nochmal wieder ein Problem, bei dem ich nicht weiter komme.
Gefunden habe ich auch nichts, was meinem Problem entspricht (vielleicht suche ich auch falsch).
Ich möchte, wie der Betreff sagt, mit VBA folgendes programmieren:
Wenn in der Zelle B2 der gleiche Eintrag wie in B1 ist, dann soll automatisch der Eintrag aus C1 in C2 übernommen werden.
Das Ganze aber variabel, da die Zeilen fortlaufend und ständig erweiternd sind.
Und außerdem soll das für die Spalten C, D, G, H gelten (ausgehend von Spalte B fix)!
Mit folgendem Schnipsel kommt leider erst eine Fehlermeldung und dann hängt er sich auf:
Zeilenzahl = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row
For m = 2 To Zeilenzahl
If Range("B" & m) = Range("B" & m - 1) Then
Range("C" & m) = Range("C" & m - 1)
End If
Next m
Laufzeitfehler '-2147417848 (80010108):Die Methode '_Default' für das Objekt 'Range' ist fehlgeschlagen
Es ist auch egal, ob ich mit oder ohne ".Value" arbeite.
Liegt es daran, dass ich die gleiche Variable für mehrere Spalten benutze?
Wie sollte ich dann aber eine weitere Variable einbauen?
Danke schon mal für Ideen.
Gruß Pierre