ich möchte, wenn ich in Tab.1 Spalte A
auf eine Zelle (Inhalt z.B. 100)
doppelklicke, die Tabelle suchen, die die gleiche
Nummer wie die Zelle hat (z.B. 100).
Geht dass überhaupt ???
Schönen dank im voraus...
Gruss Dieter
Schönen dank im voraus...
Gruss Dieter
Sicher geht das :-)
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
On Error GoTo errorhandler
If Target.Column = 1 Then
blattname = Cells(Target.Row, Target.Column)
Sheets(blattname).Activate
End If
Exit Sub
errorhandler:
MsgBox "Blatt nicht vorhanden"
End Sub
Alt + F11, links Doppelklick auf Tabelle 1, neues Fenster oeffnet sich, links oben Dropdown auf Worksheet umstellen, rechts oben auf BeforeDoubleClick, Code einfügen, Fenster schliessen, fertig.
Gruss
Chris
Folgendes Makro gehört in den Codebereich von 'DieseArbeitsmappe':
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Dim sInhalt As String
sInhalt = Target.Value
If Not (sInhalt = Empty) Then
For i = 1 To Worksheets.Count
If Worksheets(i).Name = sInhalt Then Worksheets(i).Activate: Exit Sub
Next i
On Error Resume Next
If IsNumeric(sInhalt) Then Worksheets(Val(sInhalt)).Activate: Exit Sub
End If
MsgBox "Kein zugehöriges Blatt gefunden!", vbInformation, "Blattwechsel"
End Sub
Damit wird bei Doppelklick auf eine Zelle der Wert ausgelesen und zuerst in allen Blattnamen der Arbeitsmappe nach einer Übereinstimmung gesucht. Wenn da nix gefunden wird, wird bei Zahlen noch nach dem Blattindex gesucht (Zellinhalt=3 führt Dich zum 3. Blatt). Falls beides nicht geklappt hat erscheint eine kurze Meldung.
Steffan.
Weil das Blatt "Blatt 100" und nicht "100" heisst. Wenn du überall "Blatt" vorne dran hast, sollte es gehen, wenn du wie folgt änderst...
blattname = "Blatt " & Cells(Target.Row, Target.Column)
Gruss
Chris