ich möchte ein CommandButton in einer Mappe auf die anderen Tabellenblätter verweisen. Z.B. von Tabelle1 zu Tabelle2. Wie mach ich das? Brauche den Code. Danke im Voraus
Worksheets("Tabelle2").activate
Gruss
Private Sub CommandButton1_Click()
Dim N As Integer 'Anzahl belegter Zeilen
N = 0
Do While Cells(2 + N, 1).Value ""
N = N + 1
Loop
Cells(2 + N, 1).Value = TextBox1.Value '2+N: Zeilendynamisierung
Cells(2 + N, 2).Value = TextBox2.Value
Cells(2 + N, 3).Value = TextBox3.Value
'Werte Löschen im Formular
TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
TextBox1.SetFocus
End Sub
Gruss hary