Diverse Fragen zu UserForm
23.10.2007 11:51:01
Gerhard
Ich habe mich an einer Userform versucht, die soweit ganz gut funktioniert... Aber es tauchen ein paar Fragen auf, die ich über die Suche leider ned gefunden habe (oder ich habe Schwierigkeiten beim Formulieren der Suchwörter :) )
Also
Meine UnserForm überträgt diverse eingebene Daten in ein neues Sheet. Funktioniert. Wenn ich nun auf meinen "Daten übernehmen" Button klicke, werden die Daten übernommen und die UserForm schliesst sich (UnloadMe).
Ich möchte aber mehrere Daten eingeben, die Userform soll sich bei "Daten übenehmen nicht schliesen, sondern nur "entleeren" erst bei Klick auch "Abbruch" soll sie sich schliessen. Was muss ich da für nen Code verwenden?
Desweiteren habe ich noch folgende Frage :
Ich vernde in meiner Userform 3 Combo Boxen die erste funktioniert, aber bei der 2 und 3 habe ich null Durchblick. Wie muss ich diese Aufführen, das es funktioniert?
Die Daten für die ComboBox1 befinden sich auf Sheet "Hilfstabelle" Spalte A, Zeile 2 beginnend
Die Daten für die ComboBox2 befinden sich auf Sheet "Hilfstabelle" Spalte C, Zeile 2 beginnend
Die Daten für die ComboBox3 befinden sich auf Sheet "Hilfstabelle" Spalte E, Zeile 2 beginnend
Diesen Codeschnippsel verwende ich für die erste ComboBox:
Private Sub UserForm_Initialize()
'Variable deklarieren
Dim Wiederholungen As Integer
'Schleife zum Füllen der ComboBox mit den Daten aus Blatt "Hilfstabelle"
'Spalte A ab Zeile 2 bis zur letzten gefüllten Zeile
For Wiederholungen = 2 To Sheets("Hilfstabelle").Range("A65536").End(xlUp).Row
ComboBox1.AddItem Sheets("Hilfstabelle").Cells(Wiederholungen, 1)
Next
End Sub
Wie schon gesagt, bei mir funzt alles "learning by doing" aber hier bin ich doch recht schnell an meine Grenzen gelangt... und wäre Dankbar für jede Art von Hilfe!!
LG