VBA: Schleife zum Text-Eintragen

[HAMRacer44]

Hallo Andre,

danke für den Denkanstoß, habe es mit dieser Hilfe hinbekommen

Hatte in der Schleife wirklich einen Überlegungsfehler, denn ich irgendwie nicht geblickt hatte.

Anbei der Code (falls jemand den brauchen kann):

Code:

Private Sub cmdPlanSpeichern_Click()
Dim lastZeileA As Long
Dim lastZeileC As Long
Dim Bereich As Long
Dim i As Integer
Dim z As Integer

lastZeileA = Tabelle9.Cells(Rows.Count, 1).End(xlUp).Row + 1
lastZeileC = Tabelle9.Cells(Rows.Count, 3).End(xlUp).Row + 1

Tabelle10.Range("M6:P45").Copy                              'kopiert die Auswahl bzw. den Trainingsplan in die Datenbank
Tabelle9.Cells(lastZeileC, 3).PasteSpecial Paste:=xlValues   'fügt die kopierten Werte (!) in die nächstfreie Zeile

Bereich = Tabelle9.Cells(Rows.Count, 3).End(xlUp).Row       'Prüft, bis zu welcher Zeile Spalte C beschrieben wurde

For i = lastZeileA To Bereich
    Tabelle9.Cells(lastZeileA + z, 1) = frmPlanSpeichern.txtNameTrainingsplan.Value
    z = z + 1
Next i

End Sub

Danke Andre für die Hilfe, schönen Rest-Wahlsonntag und guten Wochenstart,
Domi