Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: tabellenblatt öffnen

tabellenblatt öffnen
tobi
moin,
wie sage ich excel per VBA
das er wenn ich ein Tabellenblatt öffnen, er z.b die zelle B1 MARKIERT hat.
gruss tobi
Anzeige
AW: tabellenblatt öffnen
Matthias
Hallo Tobi,
meinst Du, Excel soll beim Öffnen einer Datei (Arbeitsmappe) automatisch eine bestimmte Zelle auswählen?
Tabellenblatt Arbeitsmappe
AW: tabellenblatt öffnen
tobi
Eigentlich ist die Datei geöffnet, ich will nur das ich beim Tabellenblattwechsel, eine bestimmte Zelle markiert habe z.b a13 oder so.
gruss tobi
Anzeige
AW: tabellenblatt öffnen
Matthias
Hallo Tobi,
Rechtsklick auf Tabellenname im Arbeitsblattregister, auf "Code anzeigen" klicken.
dann folgenden Code in das erscheinende Arbeitsblattmodul:

Private Sub Worksheet_Activate()
Range("A13").Select
End Sub

Gruß & Gute Nacht,
Matthias
Anzeige
AW: tabellenblatt öffnen
tobi
... und wie müßte das Makro lauten, wenn ich die Datei öffnen das er automatisch auf A1 steht?
gruss tobi
AW: tabellenblatt öffnen "Nachtrag"
tobi
Habe eine Datei mit mehreren Tabellenblättern, und er soll immer Tabelle1 mit dem Feld A1 öffnen, egal wie gespeichert wurde.
den Anfang habe ich schon:

Private Sub Workbook_Open()
Range("A1").Select
End Sub

gruss tobi
Anzeige
AW: tabellenblatt öffnen "Nachtrag"
ypsilon
hi Tobi,
du musst dem dummen excel natürlich noch sagen welche Tabelle er auswählen soll
also so in etwa:

Private Sub Workbook_Open()
Worksheets("Tabelle1").Range("A1").Select
End Sub

cu Micha
AW: tabellenblatt öffnen "Nachtrag"
Hajo_Zi
Hallo Micha
kleiner Hinweis
das select für die Tabelle muß einzeln ausgeführt werden. Falls Tabelle1 noch nicht aktiv.
Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Pro und Excel Version XP Pro SP 3


Anzeige
upps sorry
ypsilon
hi hajo,
klar hast recht
aber zu meiner entschuldigung: ich nutze diesen wunderschönen befehl recht selten ;-)
dann so:

Private Sub Workbook_Open()
Worksheets("Tabelle1").Select
Range("A1").Select
End Sub

cu Micha
AW: upps sorry
Hajo_Zi
Hallo Micha
Deine Einstellung ist richtig. Ich schreibe ja auch ab und zu das es zu 99% sinnlos ist.
Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Pro und Excel Version XP Pro SP 3


Anzeige
AW: klappt nicht
tobi
also bei mir klappt es nicht.
habe das was Micha geschrieben hat eingefügt.
und die TABELLE abgespeichert, aber er öffnet mir nicht automatisch Tabelle1
gruss tobi
AW: klappt nicht
ypsilon
hi Tobi,
muss klappen wenn:
du die mappe öffnest (also erst komplett schliessen und dann neu öffnen)
deine tabelle1 wirklich tabelle1 heisst
du das makro im klassenmodul "DieseArbeitsmappe" hast
cu Micha
Anzeige
AW: klappt nicht
Hajo_Zi
Hallo Tobi
hast Du den Code in VBA unter DieseArbeitsmappe
Es gibt eine Tabelle mit dem Namen Tabelle1?
Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Pro und Excel Version XP Pro SP 3


Anzeige
AW: klappt nicht
tobi
sie heißt nicht mehr Tabelle1, aber das habe ich geändert. Habe es auch unter Dieser Arbeitsmappe eingefügt. er unterstreicht mir die Zeile mit Worksheets gelb, und zeigt mir beim öffnen Laufzeitfehler 9 an.

Private Sub Workbook_Open()
Worksheets("Stückliste_anlegen").Select
Range("A1").Select
End Sub

gruss tobi
Anzeige
AW: klappt nicht
ypsilon
hi Tobi,
er mag wahrscheinlich keine umlaute
probiers mal so:

Private Sub Workbook_Open()
Worksheets(1).Select
Range("A1").Select
End Sub

cu Micha
Erleichterung
tobi
Micha's Variante hat geklappt.
dank euch und noch ein schönes Osterfest.
gruss tobi
Anzeige
AW: Erleichterung
11.04.2004 18:49:44
Hajo_Zi
Hallo Tobi
ich würde mal vermuten das Du den falschen Tabellennamen eingetragen hast. Siehe auch mein Beispiel.
Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Pro und Excel Version XP Pro SP 3


Anzeige
danke für die rückmeldung :-) o.t.
ypsilon
.
AW: klappt nicht
11.04.2004 18:21:33
Hajo_Zi
Hallo Tobi
ich vermute mal es ist ein Schreibfehler "Dieser Arbeitsmappe " der Punkt hat den Namen "DieseArbeitsmappe". Es muß an Deiner Datei liegen.
https://www.herber.de/bbs/user/5172.xls
Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Pro und Excel Version XP Pro SP 3


Anzeige
;
Anzeige
Anzeige

Infobox / Tutorial

Tabellenblatt automatisch in Excel öffnen und Zelle markieren


Schritt-für-Schritt-Anleitung

Um ein Tabellenblatt in Excel mithilfe von VBA zu öffnen und dabei eine bestimmte Zelle zu markieren, gehe wie folgt vor:

  1. Öffne die Excel-Datei und drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Navigiere zu "DieseArbeitsmappe" im Projekt-Explorer links.

  3. 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.

  4. Speichere die Datei als Makro-aktivierte Arbeitsmappe (Dateiformat .xlsm).

  5. Schließe die Datei und öffne sie erneut, um die Änderung zu testen.


Häufige Fehler und Lösungen

  1. Laufzeitfehler 9:

    • Ursache: Das angegebene Tabellenblatt existiert nicht oder der Name ist falsch.
    • Lösung: Stelle sicher, dass der Tabellenblattname korrekt geschrieben ist und keine Umlaute enthält. Alternativ kannst du auch die Tabellenblattnummer verwenden, z. B. Worksheets(1).
  2. Das Tabellenblatt wird nicht ausgewählt:

    • Ursache: Der Code befindet sich nicht im richtigen Modul.
    • Lösung: Der Code muss in „DieseArbeitsmappe“ eingefügt werden, nicht im Modul eines bestimmten Arbeitsblatts.
  3. Excel öffnet nicht das richtige Blatt:

    • Ursache: Der Name des Tabellenblatts wurde geändert.
    • Lösung: Aktualisiere den Namen im Code entsprechend.

Alternative Methoden

Anstelle von VBA kannst du auch die folgenden Methoden verwenden, um ein bestimmtes Tabellenblatt zu öffnen:

  • Hyperlinks: Erstelle einen Hyperlink auf das gewünschte Tabellenblatt. Klicke auf den Link, um das Blatt zu erreichen.
  • Excel-Formeln: Nutze die INDIREKT-Funktion, um auf Daten in anderen Tabellenblättern zuzugreifen, ohne sie aktiv auszuwählen.

Praktische Beispiele

  1. Markiere Zelle B1 beim Wechsel des Tabellenblatts:

    Private Sub Worksheet_Activate()
       Range("B1").Select
    End Sub
  2. Öffne eine Datei und gehe zu einem spezifischen Blatt:

    Private Sub Workbook_Open()
       Worksheets("Stückliste_anlegen").Select
       Range("A1").Select
    End Sub

Tipps für Profis

  • 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.


FAQ: Häufige Fragen

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.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige