Tabellenblätter suchen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Code: [Cc] Private Sub Worksheet_Change(ByVal Target As Range) ' Blatt aktivieren, unterstützt *-Suche Dim WSh As Worksheet If Target.Address = "$A$1" And Target.Value <> "" Then For Each WSh In ThisWorkbook.Worksheets If WSh.Name Like Target.Value Then WSh.Select: Exit Sub End If Next WSh End If MsgBox "Das Blatt '" & Target.Value & "' wurde nicht gefunden!", vbCritical, "Blatt aktvieren" End Sub

Option Explicit Sub suche_Blatt() Dim WKS As Worksheet For Each WKS In ThisWorkbook.Worksheets If WKS.Name = Worksheets("Suchtabelle").Cells(1, 1).Value Then WKS.Activate Exit Sub End If Next MsgBox "Blatt nicht gefunden ...", vbInformation End Sub

Hallo Yannik,
schon so viele Antwort, wozu eine andere.
Hier geht es um einen UDF, eine User Defined Function, die Du im Blatt wie eine Excel-Foreml verweden kann.
Öffne Visual Basic Editor (Alt + F11),
füge einen "Modul": Einfügen , Modul
Copy-Paste folgende Code:


Public Function Blatt_existiert(Optional ByVal Blattname)
'gibt Name des Blatt zurück, wenn vorhanden, sonst Fehler
'ist kein Name gegeben, wird den Namen des aktuellen Blattes zurückgegeben
On Error Resume Next
Blatt_existiert = Evaluate("=NA()") 'default
If IsMissing(Blattname) Then
Blatt_existiert = ActiveSheet.Name
Else
Blatt_existiert = ThisWorkbook.Worksheets(CStr(Blattname)).Name
End If
End Function

Dann kannst Du den als Formel:
=Blatt_existiert(A1)
Man könnte auch WAHR/FALSCH zurückgeben, aber man will ja meistens aus den Namen etwas machen.
Das Zurückgegeben von einem Fehler erlaubt die Verwednung der Formel WennFehler:
=WENNFEHLER(Blatt_existiert(A1);"Nicht vorhanden")
oder
=WENNFEHLER(Blatt_existiert(A1);Blatt_existiert())
VG
Yal

Hallo, ich melde mich wieder!
Ich habe leider nicht die Kenntnisse, die ich gerne hätte. Ich bin jetzt aber ein bisschen weiter.
Bedauerlicherweise muss ich euch mitteilen das es um Google Tabellen geht. Also so weit ich mich im Internet belesen habe funktioniert VBA nicht mit Google Tabellen. Also habe ich so viele gute Lösungswege, die ich bedauerlicherweise nicht verwenden kann. Der Lösungsweg mit den Hyperlinks habe ich ausprobiert und funktioniert ungünstigerweise nicht. Ich habe die Formel 1zu1 kopiert und ein Tabellenblatt mit dem Namen TEST erstellt, in H1 habe ich genauso TEST eingeben und lande leider im Tabellenblatt wo ich die Eingabe eingegeben habe.
Ich danke trotzdem allen Usern, die sich so schnell gemeldet haben und mir versucht haben zu helfen und hoffe, dass die VBA Wege jemand anderen helfen können oder es jemanden gibt der VBA kompatibel mit Google Tabellen machen kann.
MFG Yannik

Beliebteste Forumthreads (12 Monate)

16 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread