Zellen suchen, einfügen & Inhalt einfügen
12.02.2018 11:55:07
Patrick
folgendes Problem besteht bei mir:
Ich habe ein Formular, in diesem z.B. 6 Zeilen zusammengehören und in diesen sich Text befindet. Der Anwender soll bei Bedarf - durch Klicken eines Buttons - weitere 6 Zeilen hinzufügen können. Dazu werden die Inhalte aus diesen ersten 6 Zellen in die NEUEN kopiert.
Nach Klick auf einen Button "Maschine +" soll folgendes passieren:
- Suchen nach dem Inhalt der "Start-Zelle": z.B. "4.1.1 Maschinen:"
- Einfügen von n Zellen NACH dieser Start-Zelle
- Kopieren der Inhalte der bestehenden 6 Zellen
- Einfügen der Inhalte in die NEUEN eingefügten Zellen
- Ein ERNEUTER Klick auf den Button soll die Prozedur wiederholen.
Ich habe es zwar geschafft, dass neue Zeilen eingefügt werden, aber das Kopieren krieg ich nicht hin. Folgenden Code habe ich bis jetzt:
Sub Einfügen_Maschinen_Neu()
Dim i As Long
i = Cells(Rows.Count, 1).End(xlUp).Row
Do Until Cells(i, 1) = "4.1.1 Maschinen:"
i = i - 1
Loop
Rows(i + 7).Insert (x1ShiftDown)
Rows(i + 8).Insert (x1ShiftDown)
Rows(i + 9).Insert (x1ShiftDown)
Rows(i + 10).Insert (x1ShiftDown)
Rows(i + 11).Insert (x1ShiftDown)
Rows(i + 12).Insert (x1ShiftDown)
Rows(i + 1, i + 6).Copy _ --> dieser Befehl funktioniert nicht - Meldung "Fehler 400" :(
Destination:=Rows(i + 7)
End Sub