UserForm Kontrollkästchen
23.07.2018 16:55:05
Matthias
ich komme nicht weiter! ich hoffe auf eure Hilfe.
Beschreibung:
In der Spalte 4 soll per Doppelklick auf einer beliebigen Zelle sich eine User Form öffnen. In der Userfor befinden sich sechs Kontrollkästchen mit Namen. Die Namen, die angehakt werden sollen dann in die aktive Zelle eingefügt werden. Mit einem Nahmen habe ich es hinbekommen. Nur wenn mehrere Kästchen angehakt sind klappt es nicht.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Select Case Target.Column
Case 4
UserForm1.Show 'User Form aufrufen
End Select
End Sub
Private Sub CommandButton1_Click()
Dim A As String
A = "Andreas"
If Andreas.Value = True Then
ActiveCell.Value = A
End If
End Sub
Anzeige