AW: Textbox - Werte übergeben
26.07.2004 11:06:14
Renate
Hallo, ich habe jetzt das Script versucht anzupassen und schon tauchen die nächsten Probleme auf. Das Script schaut jetzt folgendermassen aus:
Private Sub CommandButton1_Click()
Dim LRow As Long
'letzte Zeile mit Eintrag in Zusammenfassung, SpalteA:
LRow = Sheets("Zusammenfassung").Cells(Rows.Count, 3).End(xlUp).Row
With Sheets("Formular")
'wenn Textboxes nicht leer dann Einträge nach Zusammenfassung:
If .TextBox1 <> "" And .TextBox2 <> "" And .CheckBox1 <> "" Then
Sheets("Zusammenfassung").Cells(LRow + 1, 1) = .TextBox1
Sheets("Zusammenfassung").Cells(LRow + 1, 2) = .TextBox2
Sheets("Zusammenfassung").Cells(LRow + 1, 3) = .CheckBox1
'Textboxes leeren:
.TextBox1 = ""
.TextBox2 = ""
.CheckBox1 = ""
'wenn Textbox leer dann Meldung:
Else: MsgBox "nicht vollständig"
End If
End With
End Sub
Probleme:
1) es gibt mehrere Textfelder und Checkboxen, die aber nicht befüllt sein müssen (z.B. Checkboxen, die alternativ ausgewählt werden können)
2) das Leeren der Checkbox funktioniert nicht - das Häkchen wird nur hellgrau, verschwindet aber nicht
3) bei Übergabe in die Liste wird eine Checkboxmarkierung mit TRUE übernommen - kann man diese gegen "x" ersetzen?
Wär super, wenn mir einer der VBA-Profis helfen kann.
Danke Renate