Ich arbeite gerade wieder mal an meiner Excel und habe 2 Probleme. Wäre super wenn mir jemand helfen könnte, Danke schonmal im voraus!
1) Ich möchte aus meiner UserForm Daten in eine Tabelle übrtragen. Klappt bei Textfeldern auch problemlos, nur bei ComboBoxen geht es nicht...
Private Sub CommandButton1_Click()
Set Frm = UserForm1
Sheets("Wechselrichter").Activate
Range("C65536").End(xlUp).Offset(1, 0).Select
With Frm
ActiveCell.Value = .TextBox9.Value
ActiveCell.Offset(0, 1).Value = .TextBox4.Value
ActiveCell.Offset(0, 2).Value = .TextBox5.Value
ActiveCell.Offset(0, 3).Value = .ComboBox1.Value
ActiveCell.Offset(0, 4).Value = .TextBox18.Value
End With
End Sub
Ich habe auch schon nachgegoogelt und der Befehl " ActiveCell.Offset(0, 3).Value = .ComboBox1.Value" klappt anscheinend bei anderen Leuten.
2) Ich habe mehrere ComboBoxen, die ich mit Elementen gefüllt habe.
Private Sub UserForm_Initialize()
With ComboBox1
.AddItem "Planung"
.AddItem "Planung & Installation"
.AddItem "Beratung"
.AddItem "Wirtschaftlichkeitsanalyse"
End With
End Sub
Private Sub UserForm_Initialize()
With ComboBox3
.AddItem "Satteldach"
.AddItem "Pultdach"
.AddItem "Sheddach"
.AddItem "Flachdach"
.AddItem "Gewölbtes Dach"
.AddItem "Sonstige Dachform"
End With
End Sub
Nun kommt beim Test "Userform_Initialize Mehrdeutiger Name". Ich für mich ein Zeichen, das ich den Namen nicht zweimal nehmen kann, aber wenn ich ihn umbennene, zeige es mir nicht die Elemente an. Vielleicht benenne ich es auch falsch um :(
Ich bin für jede Hilfe sehr dankbar!
mfg Martin