in Blatt springen

Hallo zusammen,
ich habe eine Datei mit vielen Blättern.
Das erste Blatt heißt "Übersicht" und die folgenden Blätter "1001","1002","1003",usw.
In der Übersicht stehen die Blattnamen und weitere Informationen in einer Tabelle.
Ich benötige ein Makro, mit dem ich mit einem Doppelklick auf die Zahl in A2:A100 in das entsprechende Blatt springe.
Also wenn ich in die Zelle A2 auf 1001 doppelklicke, will ich im Blatt 1001 landen, usw.
Folgendes Makro habe ich erstellt:
If Not Application.Intersect(Range("A2:A100"), Target) Is Nothing Then
If BlattVorhanden(999 + Target.Row) Then
Sheets(?).Select
Else
MsgBox "Das Tabellenblatt existiert nicht!"
End If
End If
Allerdings hab ich keine Ahnung, was ich in "Sheets()" eintragen soll, damit es funktioniert...
Vielen Dank im Voraus für eure Hilfe!
Gruß
Tim

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim rngBereich As Range Set rngBereich = Sheets("Übersicht").Range("A2:A100") If Not Intersect(Target, rngBereich) Is Nothing Then Sheets(Target.Value).Activate End If End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) on error goto ENDE If Target.Row > 1 And Target.Column = 1 Then Cancel = True Worksheets(CStr(Target.Value)).Activate End If Exit Sub ENDE: msgbox "Ein Blatt mit diesem Namen ist nicht vorhanden!" End Sub

Hi
dazu vielleicht noch ein paar Optimierungen:
die Blätter sind wie Zahlenwerte benannt. Dh in den Zellen stehen wahrscheinlich dann auch Zahlenwerte und keine Texte.
Wenn aber im Target die Zahl 1001 steht, dann versucht Excel bei Sheets(Target.Value).Activate nicht da Blatt mit dem Namen "1001" anzuspringen, sondern das 1001. Tabellenblatt!
wenn man aber das Blatt mit dem Namen "1001" braucht, muss der Wert als TEXT angegeben werden.
das kann man auf unteschiedlichen Wegen realisieren, hier mal 3 Verschiedene Varianten:

 Sheets(Target.Value & "").Activate
Sheets(Target.Text).Activate
Sheets(CStr(Target.Value)).Activate

die Prüfung mit dem "Blatt vorhanden" kann man auch ohne zusätzliche funktion machen:

If Not Application.Intersect(Range("A2:A100"), Target) Is Nothing Then
On Error Resume Next
Sheets(Target.Text).Select
if Err  0 Then MsgBox "Das Tabellenblatt existiert nicht!"
On Error Goto 0

Gruß Daniel

Beliebteste Forumthreads (12 Monate)

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread