ich hoffe, Ihr könnt mir weiterhelfen ?
Wie kann ich festlegen, dass sich beim Klick in Zelle E2 eine UserForm von mir öffnet ?
Vielen Dank im Voraus für jeden Tipp !
VG,
Markus
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$E$2" Then
UserForm1.Show
End If
End Sub
' ...
For lngIndex = 2 To 51
Sheets("A1").Copy AFter:=Sheets(Sheets.Count)
With Sheets(Sheets.Count)
.Name = "A" & lngIndex
.Range("D1") = lngIndex - 1
End With
Next
' ...
Oder willst Du den Wert aus Sheets("A").Range("D1") um eins erhöhen ?