Kleines Problem an Rande:wenn ich
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row> =35 Then
Rows("33:33").Select
Selection.Copy
Selection.Insert Shift:=xlDown
Range("B34").Select
End If
End Sub
die Zielreihe gleich und grösser als 35 einsetze,wird immer eine Zeile eingefügt, sobald ich über Reihe 35 was eingebe. Bräuchte aber nur 35 bis 45
Geb ich als Ziel ein: "> =35 <45" fügt er pausenlos Zeilen ein ohne Unterbrechung.
Wie kann ich das limitieren?
Setz ich den kompletten IF-Block nochmal mit Ziel 36 ein, werden 2 Zeilen auf einmal eingefügt
mfg Excal
|