Hallo zusammen,

nachdem ich nun einen Tag verbracht habe, das Problem selbst zu lösen und kläglich gescheitert bin, muss ich nun doch die Experten fragen.

Siehe untenstehende Tabelle als Beispiel, mit  Click zum Beispiel auf den Commendbutton in D5 soll Folgendes passieren:

1. Finde in Spalte A den Begriff "Köln"

2. Füge in den Zeilen unter "Köln" zwei weitere Zeilen ein mit Inhalt und Format der bisherigen zwei Zeilen unter "Köln"

Ich könnte die Zellbereich zwar direkt ansprechen, zum Beispiel mit Range(A5:C6), bekomme dann aber beim Kopieren unter Köln, mit Range(A5:C6), ein Problem, wenn ich unter Hamburg vorher schon Zeilen eingefügt habe, denn die Zellen werden ja nach unten verschoben.

Ich muss wohl mit Variablen Zellbereichen arbeiten und bekomme es nicht hin.

Folgenden Code habe ich bisher gebastelt:

Private Sub CommandButton_Einfuegen_Koeln_Click()
Dim i As Long
i = Cells(Rows.Count, 1).End(xlUp).Row
Do Until Cells(i, 1) = "Köln"
i = i - 1
Loop
End Sub

So wird schon mal die Zelle mit dem Wert "Köln" gefunden. Aber wie weiter?

Für Euch sicher ein simples Problem.

Vorab schon mal tausend Dank für Eure Antworten!