ich möchte in meiner aktiven Arbeitsmappe nach dem Arbeitsblatt suchen, welches mit xyz beginnt und mich in dieses Arbeitsblatt dann in Zelle A1 stellen.
Wie bekommt man das denn hin?
Gruß
Sabine
Option Explicit
Sub MeineTabelle()
Dim x As Long
Application.ScreenUpdating = False
For x = 1 To Worksheets.Count
If Left(Worksheets(x).Name, 3) = "xyz" Then
Worksheets(x).Activate
Cells(1, 1).Select
Exit For
End If
Next
End Sub
Gruß Matthias
Um in deiner Excel-Arbeitsmappe nach einem Tabellenblatt zu suchen, das mit "xyz" beginnt, kannst du den folgenden VBA-Code verwenden:
Öffne Excel und drücke ALT + F11
, um den VBA-Editor zu öffnen.
Klicke im Menü auf Einfügen
und wähle Modul
.
Kopiere den folgenden Code in das Modul:
Option Explicit
Sub MeineTabelle()
Dim x As Long
Application.ScreenUpdating = False
For x = 1 To Worksheets.Count
If Left(Worksheets(x).Name, 3) = "xyz" Then
Worksheets(x).Activate
Cells(1, 1).Select
Exit For
End If
Next
End Sub
Schließe den VBA-Editor und kehre zu Excel zurück.
Drücke ALT + F8
, wähle MeineTabelle
und klicke auf Ausführen
.
Jetzt wird das erste Tabellenblatt, das mit "xyz" beginnt, aktiviert und du wirst in Zelle A1 positioniert.
Fehler: "Laufzeitfehler 9: Index außerhalb des gültigen Bereichs."
Fehler: Kein Blatt wird aktiviert.
Blatt suchen ohne VBA:
CTRL + F
, gebe "xyz" ein und klicke auf Blatt suchen
. Dies ist jedoch nur eine manuelle Lösung.Verwendung von Excel-Funktionen:
SVERWEIS
kann helfen, wenn du eine Liste von Blättern hast, aber sie ist nicht so direkt wie der VBA-Code.Angenommen, du hast die folgenden Blätter: "xyz1", "xyz2", "abc1". Mit dem oben genannten VBA-Code wird "xyz1" aktiviert, da es das erste Blatt ist, das mit "xyz" beginnt.
Wenn du einen anderen Präfix wie "abc" verwenden möchtest, ändere einfach die Zahl im Left
-Befehl:
If Left(Worksheets(x).Name, 3) = "abc" Then
Application.DisplayAlerts = False
, um Pop-ups zu vermeiden, wenn du Blätter aktivierst.1. Kann ich den Code auch in Excel 365 verwenden?
Ja, der VBA-Code funktioniert in allen modernen Excel-Versionen, einschließlich Excel 365.
2. Was passiert, wenn mehrere Blätter mit "xyz" beginnen?
Der Code aktiviert nur das erste gefundene Blatt. Möchtest du alle aktivieren, musst du den Code anpassen.
3. Wie finde ich ein Blatt mit einem anderen Namen?
Ändere den Wert im Left
-Befehl, um nach einem anderen Präfix zu suchen.
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