Textfeldausgabe aug 2 sheets gleichzeitig
06.02.2008 21:01:42
Matthias.G.
ich möchte aus einem Textfeld einer Userform eine Dateneingabe in 2 Tabellenblätter erreichen.
Hintergrund:
Gleichzeitige eingabe in beide Blätter
Auf Blatt 1 darf nachher gelöscht werden usw.
auf Blatt 2 sollen "ALLE" Daten die eingegeben wurden bestehen bleiben z.B( Datenbanksicherung)
hab da mal so angefangen:
Private Sub Daten_übernehmen_Click()
On Error Resume Next
Dim letzte_Zeile As Long
letzte_Zeile = Range("A65536").End(xlUp).Offset(1, 0).Row
ActiveSheet.Unprotect
Cells(letzte_Zeile, 1) = TextBox1
das funktioniert soweit...auf Blatt 1