kann mir jemand sagen ob und wie ich den Inhalt eines Objektes (Textbox) in einer Userform in eine Variable einlesen kann.
Randbedingung:
Das ganze soll während einer Schleife funktionieren, die bereits alle Objekt der Userform abfrägt (s.u.)
Gruß Peter
Private Sub cmd_eintragen_Click()
' Eintragen der Werte, Schlüssel = Datum und Tageigenschaft der Objekte
On Error GoTo Ende
Dim Datum As String, Zelle As String, strAntwort As Integer
Dim cbElement As Control ' Variable für die TextBox als Steuerelement
Dim Zeile As Integer, Spalte As Integer
' Schleife über alle Steuerelemente
For Each cbElement In frm_Zeiterfassung.Controls
If TypeName(cbElement) = "TextBox" Then
If cbElement "" Then
Zeile = Left(cbElement.Tag, 1) + bl9Startzeile - 1
Spalte = Right(cbElement.Tag, 1) + 3
If Cells(Zeile, Spalte).Value "" Then
Cells(Zeile, Spalte).Value.Value = cbElement.Text
Else
Datum = "" ' Soll Wert der Textbox mit bestimmter Tageigenschaft _
sein
Zelle = Zeile & Spalte
Fehlermeldung_Inhalt Datum, Zelle, strAntwort
If strAntwort = 6 Then Cells(Zeile, Spalte).Value = cbElement. _
Text
End If
End If
End If
Next cbElement
Ende:
End Sub