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

Forumthread: Gehe zu Tabellenblatt

Gehe zu Tabellenblatt
23.04.2024 14:23:45
Thomas
Hallo zusammen

Ich brauche mal wieder Eure Hilfe :-)

Ich habe eine Userform mit einer TextBox1 und einem CommandButton3.

Ich möchte in der TextBox1 den Namen des Tabellenblattes eingeben und mit dem CommandButton3 dort hinspringen.

Wie würde dazu den Code aussehen?

Danke schön.

Gruß Thomas
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Gehe zu Tabellenblatt
23.04.2024 14:38:44
Oberschlumpf
Hi,

versuch...

Sheets(TextBox1.Text).Activate

Ciao
Thorsten
AW: Gehe zu Tabellenblatt
23.04.2024 14:41:44
Thomas
Hatte gerade diesen Code gefunden, schade nur, das man keine Meldung bekommt, wenn das Tabellenblatt nicht gefunden wurde.

Private Sub CommandButton1_Click()

'suchen nach Tab.blatt
Application.ScreenUpdating = False
On Error Resume Next
Dim wks As Worksheet
Dim strWKS As String
strWKS = TextBox1.Value
For Each wks In Worksheets
If strWKS = "" Then Exit Sub
If InStr(UCase(wks.Name), UCase(strWKS)) > 0 Then
'wks.Visible = True
wks.Activate
Exit For
End If
Next wks
Application.ScreenUpdating = True
End Sub
Anzeige
AW: Gehe zu Tabellenblatt
23.04.2024 14:46:25
Oberschlumpf
Hi,

änder diese Zeile...


Dim strWKS As String

...um in...


Dim strWKS As String, lboExist As Boolean

...und ersetz diesen Code...


wks.Activate
Exit For
End If
Next wks

...durch diesen Code


wks.Activate
lboExist = True
Exit For
End If
Next wks
If lboExist = False Then
MsgBox "Blatt nicht vorhanden"
End If


Hilfts?

Ciao
Thorsten
Anzeige
AW: Gehe zu Tabellenblatt
23.04.2024 14:59:55
daniel
dim ws as worksheet

if Textbox1.Text > "" then
for each ws in Activeworkbook.worksheets
if ws.name = Textbox1.text then exit for
next
if ws is nothing then
msgbox "Blatt nicht vorhanden"
else
ws.Select
end if
else
Msgbox "Bitte Blattname eingeben"
end if

Gruß Daniel
Anzeige
AW: Gehe zu Tabellenblatt
24.04.2024 08:15:58
Thomas
Funktioniert.
Danke schön.
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

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