Userform funktioniert nicht
26.11.2005 14:53:04
Roland
Ich habe folgendes Problem.
Ich starte eine UserForm über eine Wenn-Funktion [z.B. WENN(B1=1;StartUserForm();) die Formel steht in C1]. In der geöffneten UF möchte ich Daten über eine TextBox am Ende einer Liste in Tabelle1 eintragen (Eintrag in die nächste leere Zelle) und die UF über eine Schaltfläche schließen. Unabhängig voneinander funktioniert das sehr gut.
1. Die UF öffnet sich bei Eingabe von 1 in B1 und schließt sich über eine Schaltfläche
2. Die UF startet über eine Schaltfläche und die Daten werden der mit dem Befehl
Private Sub CommandButton1_Click()
Sheets("Tabelle2").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Value = TextBox1.Text
Unload Me
End Sub
schön der Reihe nach an die Liste eingefügt. Nur zusammen krieg ich das irgendwie nicht hin.
Kann mir dabei jemand helfen, oder funktioniert das am Ende gar nicht.
Schon mal vielen Dank im Voraus
Roland