Per Makro bei einem best. Wert leere Zeile einf. ?
ralle
Habe folgendes Problem:
In der Spalte A stehen Zahlen von 1000 - 3000 und in den Zeilen 1 - 10 steht entweder ein Text oder gar nichts. Möchte nun per Makro eine leere ZEILE (nicht Zelle) einfügen lassen, sobald in der Spalte A entweder der Wert 1400, 1570, 2110 oder 2120 vorkommt.
Habe von Thorsten folgenden Lösungsvorschlag:
Sub ZeileEinfuegen() Dim Zeile As Integer Zeile = 1 Do Until Range("A" & Zeile).Value = "" If Range("A" & Zeile).Value = 20 Or Range("A" & Zeile).Value = 50 Or Range("A" & Zeile).Value = 80 Or Range("A" & Zeile).Value = 300 Then Range("A" & Zeile).Select Selection.Insert Shift:=xlDown Zeile = Zeile + 1 End If Zeile = Zeile + 1 Loop End Sub
Dies funktioniert auch soweit, da aber in den ersten Zeilen wie gesagt ein Text steht oder gar nichts bricht das Makro vorzeitig ab. Zudem wird nicht nur eine neue Zeile eingefügt sonder nur eine neue Zelle. Lässt sich das irgendwie ändern?
Für Eure Hlfe Danke ich schon jetzt.
Gruß
ralle