heute möchte ich eine Dialogfenster aufpoppen lassen in welchem sich zwei Kontrollkästchen befinden. Wenn ich das eine Kontrollkästchen aktiviere dann Wert x in Zelle A1, wenn ich das andere Kontrollkästchen aktiviere dann Wert y in Zelle A1 nach dem der ok Button geklickt wurde. Geht das? Wie geht das?
Das ganze befindet sich in einer Abfrage die beim öffnen der Excel Tabelle aufgerufen wird. Das sieht bei mir so aus und dort soll es rein: Sub Start() Set AktDatum1 = ActiveSheet.Columns(3).Find(What:=Date, LookAt:=xlWhole) Startmaske = MsgBox(" Heute ist der " & Date & ". Die Zeit ist " & Time & _ vbCrLf & vbCrLf & _ "Um zum oben genannten Tag die Arbeitszeit einzugeben bitte 'ok' wählen.", vbOKCancel, _ " Hallo User") If Startmaske = vbOK Then Startzeit = InputBox(CVar("Bitte geben sie den Arbeitsbeginn im Format 'hh:mm' an: "), "AZ _ Anfang", , 7000, 5000) Endzeit = InputBox(CVar("Bitte geben sie das Arbeitsende im Format 'hh:mm' an: "), "AZ Ende" _ , , 7000, 5000) hier soll die chkbox abfrage hin Else: MsgBox "Aktualisierung abgebrochen" End If Cells(AktDatum1.Row, "E").Value = Startzeit Cells(AktDatum1.Row, "F").Value = Endzeit Cells(AktDatum1.Row, "G").Value = Variable zur checkbox Call Abfrage End Sub Vielen Dank für eure Hilfe!!