Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1084to1088
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
CheckBox in liste übertragen
Werner
Hallo zusammen,
ich möchte Daten von einer UserForm in ein Tabellenblatt untereinander schreiben, das klapt auch.
Bei der CheckBox1 habe ich ein problem. Einer bestimmten Zelle kann ich es zuordnen, es soll aber mit in die liste geschrieben werden, wie muss der Code aussehen?
Dim ZEingabe As Range 'Deklaration einer Variablen
Set ZEingabe = Sheets("Eingaben").[A5]
While ZEingabe "" 'Prüft ob Zelle leer
Set ZEingabe = ZEingabe.Offset(1, 0)
Wend
'wert aus txtDatum in erste leere Zelle der Spalte A schreiben Datum
ZEingabe = CDate(Me.txtDatum) '.Value = Format("dd.mm.yyyy")
'wert 1 Zelle nach rechts aus cboRechner schreiben Rechner
ZEingabe.Offset(0, 1) = Me.cboRechner
''''wert 2 Zellen nach rechts aus cboUser schreiben User
ZEingabe.Offset(0, 2) = Me.cboUser
'wert 3 Zellen nach rechts aus CheckBox1 schreiben Name
ZEingabe.Offset(0, 3) = Me.CheckBox1
With Range("D5") 'inhalt der CheckBox1 in die Zelle G4 schreiben
.Font.Name = "Wingdings" 'Schriftart auswählen
If CheckBox1.Value Then
.Value = "ü" 'Buchtabe ü ergibt einen Haken als Eintrag in der Zelle
Else
.Value = ""
End If
End With
https://www.herber.de/bbs/user/62939.xls
Gruß Werner

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: CheckBox in liste übertragen
06.07.2009 11:46:47
ChrisL
Hallo Werner

Private Sub cmdDatenEintragen_Click()
Dim LetzteZeile As Long, i As Byte
If (txtDatum = "" Or IsDate(txtDatum) = False) Then
MsgBox ("Bitte - Datum - auswählen!!!")
Exit Sub
End If
If cboRechner = "" Then
MsgBox ("Bitte - Rechner - eintragen!!!")
Exit Sub
End If
If cboUser = "" Then
MsgBox ("Bitte - User - auswählen!!!")
Exit Sub
End If
LetzteZeile = Range("A65536").End(xlUp).Row + 1
Cells(LetzteZeile, 1) = CDate(textdatum)
Cells(LetzteZeile, 2) = cboRechner
Cells(LetzteZeile, 3) = cboUser
Range("D" & LetzteZeile & ":J" & LetzteZeile).Font.Name = "Wingdings"
For i = 1 To 7
If Controls("CheckBox" & i).Value Then
Cells(LetzteZeile, i + 3) = "ü"
Else
Cells(LetzteZeile, i + 3) = ""
End If
Next i
End Sub


cu
Chris

Anzeige
AW: CheckBox in liste übertragen
06.07.2009 12:39:47
Werner
Hallo Chris,
danke für die schnelle Hilfe
Gruß Werner

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige