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
Um einen Excel Button auf ein anderes Tabellenblatt zu verweisen, kannst du die folgenden Schritte ausführen:
Öffne deine Excel-Datei und wechsle in den Entwicklermodus.
Füge einen CommandButton in dein Arbeitsblatt ein.
Klicke mit der rechten Maustaste auf den CommandButton und wähle "Code anzeigen".
Füge den folgenden VBA-Code ein, um zu einem anderen Tabellenblatt zu springen:
Private Sub CommandButton1_Click()
Worksheets("Tabelle2").Activate
End Sub
Dieser Code aktiviert das Tabellenblatt mit dem Namen "Tabelle2". Ersetze "Tabelle2" durch den Namen des gewünschten Tabellenblatts.
Schließe den VBA-Editor und teste den Button.
Fehler: Der Button funktioniert nicht und springt nicht zu dem angegebenen Tabellenblatt.
Lösung: Überprüfe den Namen des Tabellenblatts auf Tippfehler. Der Name muss genau mit dem im Code übereinstimmen.
Fehler: Es erscheint eine Fehlermeldung beim Ausführen des Codes.
Lösung: Stelle sicher, dass du im Entwicklermodus arbeitest und VBA aktiviert ist.
Neben dem Einsatz von CommandButtons gibt es auch andere Möglichkeiten, um in Excel mit einem Button auf ein Tabellenblatt zu springen:
Hier sind einige Beispiele für den Einsatz von CommandButtons, um zwischen Tabellenblättern zu wechseln:
Ein Button, um zu "Kunden" zu wechseln:
Private Sub CommandButton1_Click()
Worksheets("Kunden").Activate
End Sub
Ein Button, der mehrere Tabellenblätter ansteuert:
Private Sub CommandButton2_Click()
Dim sheetName As String
sheetName = InputBox("Gib den Namen des Tabellenblatts ein:")
On Error Resume Next
Worksheets(sheetName).Activate
On Error GoTo 0
End Sub
1. Wie kann ich mehrere CommandButtons für verschiedene Tabellenblätter erstellen?
Du kannst für jedes Tabellenblatt einen separaten CommandButton erstellen und den entsprechenden Code für den Wechsel hinzufügen.
2. Funktioniert dieser Code in allen Excel-Versionen?
Der beschriebene VBA-Code sollte in den meisten modernen Excel-Versionen funktionieren, wie Excel 2010, 2013, 2016 und 2019.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen