UF mit Rechter Maustaste
Peter
ich habe mir eine Formel1 Mappe gebaut. Ich habe da eine UF mit Multipage wo ich die Teams mit Fahrer eintrage. Die Fahrer stehen von C1 bis Z1. Jetzt soll die UF wenn ich mit der Rechten Maustste auf einen Fahrer klicke aufgehen und direckt das richtige Team erscheinen soll. Ich habe da zwei Codes kann sie aber nicht umstellen. Könnt ihr mir helfen? Bitte
mfg Peter
Ist in jeder Tabelle
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
ActiveSheet.Unprotect
If Target.Column = 1 Then
If Target.Row > 7 And Target.Row Mod 2 = 0 Then
UserForm2.Show
Cancel = True
ElseIf Target.Row = 7 Then
UserForm1.Show
Cancel = True
End If
End If
End Sub
Private Sub UserForm_Initialize()
Dim iPage As Integer
Dim sStrecke As String
On Error GoTo Fehler
sStrecke = ActiveSheet.Range("A2")
For iPage = 0 To Me.MultiPage1.Pages.Count - 1
If Me.MultiPage1.Pages(iPage).Caption = sStrecke Then
Me.MultiPage1.Value = iPage
Exit For
End If
Next
Fehler:
End Sub
Ist von der Fahrer UF
Private Sub UserForm_Initialize()
With Tabelle25
Label15 = .Cells(3, 12) & Chr(10) _
& " " & "Punkte"
Label16 = .Cells(4, 12) & Chr(10) _
& " " & "Punkte"
Label17 = .Cells(3, 15) & Chr(10) _
& " " & "Punkte"
Label18 = .Cells(2, 37)
Label19 = .Cells(10, 37)
End With
End Sub
Anzeige