leere Zeile einfügen wenn Bedingung
27.07.2022 08:20:41
jennii
ich habe in Zelle D2 eine Zahl in % stehen. Wenn diese Zahl kleiner als 100% ist, möchte ich darunter eine Zeile einfügen lassen.
Also ich gebe z. B. in Zelle D2 80% ein, dann soll darunter eine neue Zeile (leer) erscheinen.
Mit WENN-DANN komme ich vermutlich nicht weiter?
Ich habe versucht, einen VBA-Code aufzuzeichnen und diesen dann "umzubasteln", bekomme es aber nicht hin, dass Zelle D2 (bzw. die ganze Spalte D) als Ausgangspunkt betrachtet wird.
Wo gebe ich hier an, dass der Wert in Reihe D2 relevant ist?
Sub Makro3()
Rows("3:3").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Rows("5:5").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Rows("7:7").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Rows("9:9").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Rows("12:12").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Rows("15:15").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Rows("19:19").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
ActiveWindow.SmallScroll Down:=-3
End Sub
Bin für Hilfe sehr dankbar! Danke vorab! Viele Grüße