An beliebiger Stelle in Spalte B kann jetzt die Zahl 100 auftauchen.
Nur einmal. Ich möchte vor der 100 eine leere Zeile einfügen. Wie kann ich das mit VBA lösen?
Zum Zeilen einfügen habe ich was gefunden.
Sub Einfügen()
Rows("7:7").Select
Selection.Insert Shift:=xlDown
End Sub
Aber den Bezug zu der 100 bekomme ich nicht hin. Vielleicht mit einer Schleife?
For Each rngCell In Range("B8:C150")
Select Case rngCell.Value
If Cells(rngCell.Row, "B") = "100" Then
Zeile einfügen
End If
Vielen Dank im voraus