Thema Datum  Von Nutzer Rating
Antwort
Rot Checkbox in Datenblatt übertragen
 13.01.2010 19:03:10 Tine
NotSolved
15.01.2010 16:19:18 roland
NotSolved

Ansicht des Beitrags:
Von:
Tine		 Datum:
13.01.2010 19:03:10		 Views:
1718		 Rating:
     
Antwort:
  Ja
Thema:
Checkbox in Datenblatt übertragen
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

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Checkbox in Datenblatt übertragen
 13.01.2010 19:03:10 Tine
NotSolved
15.01.2010 16:19:18 roland
NotSolved