177 Aufrufe
Gefragt in Tabellenkalkulation von
Hallo,

ich bräuchte eure Hilfe.

Haben ein Userform erstellt und jetzt möchte ich wenn ich auf meinen button "Übernahme" drücke das es den Inhalt in das Tabellenbaltt übernimmt und die Eingabemaske gleich wieder leert damit ich mit der neuen Eingabe starten kann. Übernehmen klappt mur weiß ich nicht wie ich das leeren hinbekomme.

Gruß

Markus

5 Antworten

0 Punkte
Beantwortet von
Hallo Markus,

versuch es so:

UserForm1.ListBox1.Clear
UserForm1.ComboBox1= ""

Gruß

fedjo
0 Punkte
Beantwortet von
Gibts hier noch ein besser Trick für das geasmte leeren der checkbox? Jetzt ist der Haken noch drin aber nicht ganz weg  sondern nur so leicht grau hinterleget

Private Sub Button_Clear_Click()

'Eingabe leeren

Text_Adresse.Text = ""
Text_Auftrag.Text = ""

'Checkbox leeren
Hochwasser.CheckBox1_BO10 = ""
Hochwasser.CheckBox2_BO19 = ""
0 Punkte
Beantwortet von
wie kann ich hier die Zeit immer aktuell halten??

Private Sub UserForm_Initialize()

'Werte, die Zubeginn im Eingabefeld stehen

Hochwasser.Text_Uhrzeit.Value = Time
0 Punkte
Beantwortet von beverly_ Experte (3.3k Punkte)

Hi Markus,

CheckBoxen darfst du nicht ="" setzen sondern musst den Zustand auf False einstellen - also

Hochwasser.CheckBox1_BO10 = False
Hochwasser.CheckBox2_BO19 = False

Bezüglich einer fortlaufenden Zeitanzeige: kopiere folegenden Code ins Codemodul des UserForms:

Option Explicit
Dim blnLauf As Boolean

Private Sub UserForm_Activate()
blnLauf = False
Do
    DoEvents
    Hochwasser.Text_Uhrzeit.Value = Time
    If blnLauf = True Then Exit Do
Loop
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
   blnLauf = True
End Sub

Bis später, Karin

0 Punkte
Beantwortet von
Hallo Karin,

supi Danke für den Tipp.

Mit der Uhrzeit habe ich das so gelöst.

Private Sub UserForm_Activate()

'Uhrzeit aktualisiert sich selbst

Do
        DoEvents
        Text_Uhrzeit.Value = Time
    Loop
    
End Sub

Gruß Markus
...