Hallo erstmal,
habe gerade ganz frisch angefangen mich mit vba zu beschäftigen, deswegen entschuldigt, wenns vlt 'ne blöde Frage ist. Bei Google kann ich leider nichts finden.
Ich habe eine Userform erstellt und möchte jetzt, dass wenn man das Kontrollkästchen anklickt, ein X in einem Feld auf dem Datenblatt eingetragen wird. Hoffe ihr versteht was ich meine. Hier meine bisherige Userform: (da wo Spalte K steht, könnte man jetzt das X per Hand eintragen, macht ja aber zu viel Arbeit. Hätte es gerne da wo Spalte J steht über die Checkbox, bloß sowie das da steht klappts leider nicht. Habe die anderen Sachen mir alle über über Foren zusammen gesucht, also nicht wundern, wenn die Anweisungen nicht ganz passen. Hoffe ihr versteht wie ich das meine. Danke schonmal!!)
Private Sub CommandButton1_Click()
'Variable deklarieren
Dim erste_freie_Zeile As Integer
'erste freie Zeile in Blatt "Set" ermitteln
'und in Variable "erste_freie_Zeile" schreiben
erste_freie_Zeile = Sheets("Set").Range("A65536").End(xlUp).Offset(1, 0).Row
'In Blatt "Set"
'With Sheets("v")
'Spalte B, erste freie Zeile das ausgewählte Gerät übertragen
Sheets("Set").Cells(erste_freie_Zeile, 2) = ComboBox1.Text
'Spalte C, erste freie Zeile die Seriennummer eintragen
Sheets("Set").Cells(erste_freie_Zeile, 4) = Format(TextBox4.Text)
'Spalte J, erste freie Zeile bestätigen ob Netzteil vorhanden
Sheets("Set").Cells(erste_freie_Zeile, 10) = CheckBox1.Text
'Spalte K, erste freie Zeile bestätigen ob Netzteil vorhanden
Sheets("Set").Cells(erste_freie_Zeile, 11) = Format(TextBox1.Text)
'End With
Unload Me
End Sub
Private Sub CommandButton2_Click()
'UserForm schließen
Unload Me
End Sub
Private Sub UserForm_Initialize()
'Variable deklarieren
Dim Wiederholungen As Integer
'Schleife zum Füllen der ComboBox mit den Daten aus Blatt "Hilfstabelle"
'Spalte A ab Zeile 2 bis zur letzten gefüllten Zeile
For Wiederholungen = 2 To Sheets("Hilfstabelle").Range("A65536").End(xlUp).Row
ComboBox1.AddItem Sheets("Hilfstabelle").Cells(Wiederholungen, 1)
Next
End Sub
|