[Excel] Mit Button zu einem bestimmten Tabellenblatt gehen

[ghostbird20]

Moin Moin und Frohe Weihnacht,


ich habe ein kleines Problem und zwar möchte ich mithilfe eines Buttons zu einem Tabellenblatt gelangen.

Das bekomme ich soweit auch hin ich brauche das ganze nur ein bisschen spezieller.

Und zwar steht sagen wir in der Zelle A1 eine 1, nun möchte ich per Button druck auf das Tabellenblatt 1 gelangen. Steht in der Zelle A1 eine 2 will ich auf Blatt 2 usw.


Kennt einer eine Funktion die mir das Ermöglicht?


MfG

Ghostbird20

 

[Arthur1901]

also ich kenne nur die Möglichkeit über VBA-Script kennst du dich damit aus ?

 

[ghostbird20]

Ist lange her aber ich denke das das kommt schnell wieder.

Mein Problem ist halt nur das ich nicht weiß wie ich die WENN Funktion, oder was auch immer einbinde.
Das springen zu einem Blatt per Button ist ja relativ simpel mit

sub gehezu()
sheets("Tabelle1").select
end sub

gemacht.

 

[GMG-CC]

Hallo ghostbird20,

das geht im einfachsten Fall fast so, wie du es schon angedacht hast:

sub gehezu()
sheets("Tabelle"&Range("A1").select
end sub

Das ist nun aber auch absolut ohne jegliche Prüfung, ob Tabelle~ auch existiert. Darum ist dieser Code einfach besser:

Option Explicit

Sub GeheZu()
   Dim i As Integer
   Dim TabName As String
   Dim gefunden As Boolean
   
   TabName = "Tabelle" & Range("A1")
   For i = 1 To Sheets.Count
      If Sheets(i).Name = TabName Then
         Sheets(TabName).Select
         gefunden = True
         Exit For
      End If
   Next i
   If Not gefunden Then
      MsgBox "Die Tabelle " & Chr(34) & TabName & Chr(34) _
      & " existiert nicht in dieser Mappe!", vbCritical + vbOKOnly, _
      "Fehler in Zelle A1"
   End If
End Sub

... und frohe Festtage!

 

[ghostbird20]

Vielen Dank cpt. Nemo das hat mir sehr geholfen.
Die Prüfung ob die Tabelle existiert brauche ich nicht da dies "Theoretisch" nicht passieren kann.

Ergänzung (25. Dezember 2011)

Eine Frage habe ich noch.
Der Wert in der Zelle "A1" befindet sich bei mir auf einem anderen Tabellenblatt,
ich habe jetzt versucht über "Tabellenname!Zelle" bei mir "Berechnungen!G7" die Zelle einzubinden leider ohne Erfolg.

Irgendwelche Ideen ?


MfG

Ghostbird20

 

[GMG-CC]

Irgendwelche Ideen ?Ghostbird20

Klar, sogar eine Lösung:

Sheets("Tabelle2").Range("A1")

Zwar ungeprüft, sollte aber gehen.

 

[ghostbird20]

Ich habe das Problem jetzt anders gelöst aber trotzdem danke.