Kann mir dabei bitte jemand helfen. Nachfolgend mein Versuch, der so gar nicht funkt.
Danke vorab. Gruß Peter
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Worksheets("SAP_Details").Range("J1") = "zu Verdichtung" Then
Sheets("Verdichtung").Select
ElseIf Worksheets("SAP_Details").Range("K1") = "Name Sachbearbeiter1" Then
Sheets("Sachbearbeiter1").Select
ElseIf Worksheets("SAP_Details").Range("K1") = "Name Sachbearbeiter2" Then
Sheets("Sachbearbeiter2").Select
End If
End Sub