Bitte um VBA Makro!
Ich möchte gerne z.B mit einen Doppelklick in die Tabelle springen die gerade in der Tabelle Übersicht markiert ist!
siehe Testmappe im Anhang
Vielen Dank für Eure Hilfe
Gruß Gerhard
https://www.herber.de/bbs/user/129545.xlsm
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error GoTo KeinFund
If Not Intersect(Target, Range("A2:A17")) Is Nothing Then
Worksheets(Target.Text).Select
End If
Exit Sub
KeinFund:
MsgBox "Diesen Blattnamen gibts nicht", vbInformation
End Sub
Gruß MatthiasPrivate Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error GoTo KeinFund
If Not Intersect(Target, Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row)) Is Nothing Then
If Target "" Then
Worksheets(Target.Text).Select
End If
End If
Exit Sub
KeinFund:
MsgBox "Diesen Blattnamen gibts nicht", vbInformation
End Sub
Gruß Werner
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Trim(Target.Text) "" Then
Worksheets(Target.Text).Activate
End If
End Sub