Einfügen von Zeilen in definiertem Bereich
24.10.2007 17:26:44
Zeilen
ich habe eine Tabelle, dort möchte ich per Makro die Zeile der aktuellen Zelle kopieren und darunter einfügen.
Als Rafinesse soll dass aber in einem definierten Bereich funktionieren, und zwar zwischen dem zu findenden Wort "Äpfel" in Spalte 1 + 3 Zeilen nach unten und dem darunter zu findenden Wort "Birnen" - 5 Zeilen nach oben. Aber es passiert mit diesen dynamischen Bezügen nichts.
Setze ich in der dritten If bedingung einfach konkrete Werte ein, dann klappt es, aber ich möchte es ja dynamisch haben, damit sich der Definitionsbereich vergrößert, wenn neue Zeilen eingefügt werden...
Vielen Dank für die Hilfe!
Sub zeile1einfügenspezial()
Application.ScreenUpdating = False
For x = 1 To 65536
If Cells(x, 1).Value = "Äpfel" Then
xpos = x + 3
x = 65536
End If
Next x
For y = 1 To 65536
If Cells(y, 1).Value = "Birnen" Then
xpos = y - 5
y = 65536
End If
Next y
If ActiveCell.Row >= xpos And ActiveCell.Row