Hallo Zusammen,
ich habe Probleme mit meinem Makro.
Private Sub CommandButton1_Click()
Sheets("Protokoll").Range("B" & CStr(FinalRow)).Value = TextBox5.Text
Sheets("Protokoll").Range("D12") = TextBox6.Text
Sheets("Protokoll").Range("F12") = TextBox7.Text
Sheets("Protokoll").Range("E12") = TextBox8.Text
MsgBox "Aufgabe" & Chr(34) & "Übertragen" & Chr(34)
Unload UserForm1
End Sub
Das Makro überträgt meine Daten, allerdings soll die Liste, in der die Daten aus der UserForm übertragen werden, fortführen und nicht den vorherigen Eintrag überschreiben. Hat jemand eine Idee? |