Commandbutton

Question

Hallo zusammen,

glaube ich sehe den Wald vor lauter Bäume nicht mehr,
bekomme folgende Code nicht zum laufen

Private Sub CommandButton1_Click()
Sheets("test").Select
End Sub

mit einen festenbezug funktioniert der Code ja,
was ich erreichen möchte ist, das der Name für das Seeht aus einer Zelle ausgelesen wird und dann eben zu den Sheet gesprugen wird.

grüße
Achim

Answer 1

hi achim :-)

wie gewuenscht

gruss nighty

Private Sub CommandButton1_Click()
Worksheets(Range("A1").Value).Activate
End Sub

Answer 2

Hallo nighty,

danke schön, das wars, irgend wie war ich jetzt auf der Leitung gestanden, eigendlich ganz einfach. :-)

grüße und noch einen schönen Freitag
Achim

Answer 3

hi achim :-)

oder auch so :-))

gruss nighty

einzufuegen
alt + f11/projektexplorer/DeineTabelle

Private Sub CommandButton1_Click()
If SheetExists(Range("A1").Value) = True Then
Worksheets(Range("A1").Value).Activate
Else
MsgBox ("Der angegebene Tabellenname existiert nicht !")
End If
End Sub

einzufuegen
alt + f11/projektexplorer/AllgemeinesModul

Public Function SheetExists(strName As String) As Boolean
On Error Resume Next
SheetExists = Not Worksheets(strName) Is Nothing
End Function

Answer 4

Hallo nigthy,

ja das ist ja noch ein wenig besser, das mit der Meldung wenn der Tabellenname nicht vorhanden ist.

grüße
Achim