26.09.2021, 19:25
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):
Danke Andre für die Hilfe, schönen Rest-Wahlsonntag und guten Wochenstart,
Domi
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 SubDanke Andre für die Hilfe, schönen Rest-Wahlsonntag und guten Wochenstart,
Domi