wie sage ich excel per VBA
das er wenn ich ein Tabellenblatt öffnen, er z.b die zelle B1 MARKIERT hat.
gruss tobi
Private Sub Worksheet_Activate()
Range("A13").Select
End Sub
Private Sub Workbook_Open()
Range("A1").Select
End Sub
Private Sub Workbook_Open()
Worksheets("Tabelle1").Range("A1").Select
End Sub
Private Sub Workbook_Open()
Worksheets("Tabelle1").Select
Range("A1").Select
End Sub
Private Sub Workbook_Open()
Worksheets("Stückliste_anlegen").Select
Range("A1").Select
End Sub
Private Sub Workbook_Open()
Worksheets(1).Select
Range("A1").Select
End Sub
Um ein Tabellenblatt in Excel mithilfe von VBA zu öffnen und dabei eine bestimmte Zelle zu markieren, gehe wie folgt vor:
Öffne die Excel-Datei und drücke ALT + F11
, um den VBA-Editor zu öffnen.
Navigiere zu "DieseArbeitsmappe" im Projekt-Explorer links.
Füge den folgenden Code ein, um beim Öffnen der Datei das gewünschte Tabellenblatt und die Zelle auszuwählen:
Private Sub Workbook_Open()
Worksheets("Tabelle1").Select
Range("A1").Select
End Sub
Ersetze "Tabelle1"
mit dem Namen deines Tabellenblatts.
Speichere die Datei als Makro-aktivierte Arbeitsmappe (Dateiformat .xlsm).
Schließe die Datei und öffne sie erneut, um die Änderung zu testen.
Laufzeitfehler 9:
Worksheets(1)
.Das Tabellenblatt wird nicht ausgewählt:
Excel öffnet nicht das richtige Blatt:
Anstelle von VBA kannst du auch die folgenden Methoden verwenden, um ein bestimmtes Tabellenblatt zu öffnen:
INDIREKT
-Funktion, um auf Daten in anderen Tabellenblättern zuzugreifen, ohne sie aktiv auszuwählen.Markiere Zelle B1 beim Wechsel des Tabellenblatts:
Private Sub Worksheet_Activate()
Range("B1").Select
End Sub
Öffne eine Datei und gehe zu einem spezifischen Blatt:
Private Sub Workbook_Open()
Worksheets("Stückliste_anlegen").Select
Range("A1").Select
End Sub
Direkte Referenzierung: Verwende die Indexnummer anstelle des Blattnamens, wenn die Namen Umlaute oder Sonderzeichen enthalten.
Verwendung von With
: Um deinen Code lesbarer und effizienter zu machen, kannst du den With
-Block verwenden:
Private Sub Workbook_Open()
With Worksheets("Tabelle1")
.Select
.Range("A1").Select
End With
End Sub
Fehlerbehandlung: Implementiere Fehlerbehandlungsroutinen, um Laufzeitfehler abzufangen und die Benutzerfreundlichkeit zu erhöhen.
1. Wie kann ich ein anderes Tabellenblatt automatisch auswählen?
Ändere einfach den Namen im Code zu dem gewünschten Tabellenblatt.
2. Funktioniert dieser Code in Excel 365?
Ja, der Code funktioniert auch in neueren Excel-Versionen wie Excel 365. Achte darauf, die Datei im richtigen Format zu speichern.
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