Daten ins geschlossene Tabellenblatt eintragen
14.01.2004 11:42:11
michael
Ich trage mit folgender Formel Daten ins Tabellenblatt ein. Kann man das auch ohne Worksheets("Tabelle1").Activate erreichen. z.B:Worksheets("Tabelle1").Range("?") Mit dieser Methode kann ich leider nur eine fixe Zelle ansprechen
Private Sub CommandButton1_Click()
Worksheets("Tabelle1").Activate
z = 1
Do While Cells(z, 1) <> ""
z = z + 1
Loop
Cells(z, 1) = Me.TextBox1
Cells(z, 2) = Me.TextBox2
Cells(z, 3) = Me.TextBox3
Worksheets("Tabelle2").Activate
z = 1
Do While Cells(z, 1) <> ""
z = z + 1
Loop
Cells(z, 1) = Me.TextBox1
Cells(z, 3) = Me.TextBox3
End Sub
Danke für Eure Hilfe
Michael