Hallo,
habe folgendes Problem, möchte einen Code den ich bisher in einem Tabellenblatt einem Button zugeordnet habe nun einem Button in einer Userform zuordnen um in dem ursprünglichen Tabellenblatt die selbe Aktion auszuführen - leider funktioniert dies mit reinkopieren und referenzieren auf das Tabellenblatt mit "With" leider nicht. Um die Sache zu konkretisieren hier das besagte Codestück:
Private Sub Daten_übernehmen_Click()
Dim letzte_Zeile As Long
letzte_Zeile = Range("A65536").End(xlUp).Offset(1, 0).Row
'Text aus TextBox1 wird in erste leere Zelle in Spalte A geschrieben
Cells(letzte_Zeile, 1) = TextBox1
'Text aus TextBox2 wird in erste leere Zelle in Spalte A geschrieben
Cells(letzte_Zeile, 2) = TextBox2
'Text aus TextBox2 wird in erste leere Zelle in Spalte A geschrieben
Cells(letzte_Zeile, 3) = TextBox3
Cells(letzte_Zeile, 4) = TextBox4
Cells(letzte_Zeile, 5) = TextBox5
Cells(letzte_Zeile, 6) = TextBox6
Cells(letzte_Zeile, 7) = TextBox7
Cells(letzte_Zeile, 8) = TextBox8
Cells(letzte_Zeile, 9) = TextBox9
Cells(letzte_Zeile, 10) = TextBox10
Cells(letzte_Zeile, 11) = TextBox11
Cells(letzte_Zeile, 12) = TextBox12
Cells(letzte_Zeile, 13) = TextBox13
'Die Sendkey Anweisung ersetzt das händische Betätigen der
'Tabtaste
SendKeys "{TAB}"
'Die Sendkey Anweisung ersetzt das händische Betätigen der
'Tabtaste
SendKeys "{TAB}"
End Sub
Das entsprechende Tabellenblatt heißt "Datenbank".
Ich hoffe Ihr könnt mir hierbei weiterhelfen. Vielen Dank schon im Voraus!
Stephan