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

Application.Goto Reference:=Range("A1"), Scroll:=T

Forumthread: Application.Goto Reference:=Range("A1"), Scroll:=T

Application.Goto Reference:=Range("A1"), Scroll:=T
03.02.2017 10:03:30
r2d2
Hallo,
um in einer Arbeeitsmappe alle Tabellenblätter auf die Zelle A1
zu positionieren verwende ich folgenden Code:
Sheets(BLATT).Activate
Application.Goto Reference:=Range("A1"), Scroll:=True
Innerhalb eines Moduls funktioniert der Code einwandfrei.
Wenn ich den Code aber einem Tabellenblatt hinterlege
funktioniert er nicht.
Woran liegt das bzw. wie bringe ich ihn zum laufen?
Danke und Gruß
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Application.Goto Reference:=Range("A1"), Scroll:=T
03.02.2017 10:11:25
Daniel
Hi
liegt der Code in einem Tabellenblattmodul, dann gelten Zellbezüge (Range, Cells, Columns, Rows) ohne Tabellenblattangabe immer für das Tabellenblatt des Moduls und nicht mehr für das aktive Blatt.
es müsste dann also lauten ... Reference:=ActiveSheet.Range("A1")
Bei Application.Goto ist es jedoch nicht notwendig, das Tabellenblatt vorher zu selektieren, Application.Goto kann (anders als Select) auch Blattübergreifend eingesezt werden:

Application.Goto Reference:=Sheets(BLATT).Range("A1"), Scroll:=True
Gruß Daniel
Anzeige
AW: Application.Goto Reference:=Range("A1"), Scroll:=T
03.02.2017 10:28:58
r2d2
Super, Danke!
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Anwendung von Application.Goto in Excel VBA


Schritt-für-Schritt-Anleitung

Um die Methode Application.Goto in Excel VBA erfolgreich anzuwenden, folge diesen Schritten:

  1. Öffne den VBA-Editor: Drücke ALT + F11.

  2. Füge ein neues Modul hinzu: Klicke auf Einfügen > Modul.

  3. Gib den folgenden Code ein:

    Sub GeheZuA1()
       Sheets("BLATT").Activate
       Application.Goto Reference:=Sheets("BLATT").Range("A1"), Scroll:=True
    End Sub

    Achte darauf, "BLATT" durch den tatsächlichen Namen deines Tabellenblattes zu ersetzen.

  4. Führe das Makro aus: Drücke F5 oder gehe zu Run > Run Sub/UserForm.


Häufige Fehler und Lösungen

  • Fehler: Der Code läuft nicht im Tabellenblattmodul.

    • Lösung: Wenn der Code im Tabellenblattmodul ist, musst du ActiveSheet.Range("A1") verwenden, da Zellbezüge ohne Tabellenblattangabe für das aktuelle Blatt gelten.
  • Fehler: Application.Goto funktioniert nicht wie erwartet.

    • Lösung: Stelle sicher, dass du die richtige Syntax verwendest. Beispielsweise sollte der Code so aussehen:
    Application.Goto Reference:=ActiveSheet.Range("A1"), Scroll:=True

Alternative Methoden

Neben Application.Goto gibt es andere Möglichkeiten, eine bestimmte Zelle in Excel VBA anzuspringen:

  • Verwendung von Select:

    Sheets("BLATT").Select
    Range("A1").Select
  • Direkt auf die Zelle zugreifen:

    Sheets("BLATT").Range("A1").Value = "Neuer Wert"

Diese Methoden sind jedoch weniger effizient, da sie das aktive Blatt verändern.


Praktische Beispiele

Hier sind einige praktische Beispiele für die Verwendung von Application.Goto:

  1. Gehe zu einer Zelle in einem bestimmten Blatt:

    Sub GeheZuZelle()
       Application.Goto Reference:=Sheets("Daten").Range("B10"), Scroll:=True
    End Sub
  2. Gehe zu einer Zelle und ändere den Wert:

    Sub WertÄndernUndGehen()
       Sheets("BLATT").Range("C5").Value = "Neuer Wert"
       Application.Goto Reference:=Sheets("BLATT").Range("C5"), Scroll:=True
    End Sub

Diese Beispiele zeigen, wie du Application.Goto effizient einsetzen kannst, um die Benutzerführung in deinen Excel-Anwendungen zu verbessern.


Tipps für Profis

  • Verwende Scroll:=False, wenn du nur die Zelle aktivieren möchtest, ohne die Ansicht zu ändern.
  • Schreibe Funktionen für häufig verwendete Sprünge, um deinen Code zu optimieren und wiederverwendbar zu machen.
  • Teste deinen Code in verschiedenen Excel-Versionen, um sicherzustellen, dass alles korrekt funktioniert.

FAQ: Häufige Fragen

1. Was ist der Unterschied zwischen Select und Goto? Select verändert das aktive Blatt und ist weniger effizient, während Application.Goto auch ohne vorherige Selektion eines Blattes funktioniert.

2. Kann ich Application.Goto in einer Schleife verwenden? Ja, du kannst Application.Goto in einer Schleife verwenden, um zu verschiedenen Zellen zu springen, aber beachte die Performance-Auswirkungen.

3. Funktioniert Application.Goto in allen Excel-Versionen? Ja, Application.Goto ist in allen neueren Versionen von Excel VBA verfügbar. Es ist jedoch ratsam, die Kompatibilität zu prüfen, insbesondere bei älteren Versionen.

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