AW: Userform hide erhalten
23.04.2020 09:07:35
Sonja
Ich hab das jetzt mal ausprobiert.
Grundsätzlich ist die Idee gut - ABER:
Jetzt nimmt er mir nicht mehr meine Grundeingaben in den einzelnen Zellen, die ich bereits beschriftet habe. Die Felder sind dann einfach leer.
Wahrscheinlich benötige ich dann eine weitere Userform - das bringt die Kollegen dann schon wieder an ihre Grenzen. Oder muss ich die neue Tabelle direkt mit den Daten füttern, die ich gerne hätte, wenn ein neuer Auftragnehmer angelegt werden soll? Das sieht aber sch... aus.
Hier mein Code:
Private Sub UserForm_Initialize()
'Drop-Down-Zuweisung ComboBoxen
Worksheets("SDA").Activate
UserFormFirma01.ComboBox1.RowSource = "A2:A1000"
Worksheets("SDD").Activate
UserFormFirma01.ComboBox2.RowSource = "G2:G30"
'Text- ComboBoxen Grundeintrag
ComboBox1 = "Auftragnehmer wählen"
ComboBox2 = "Gewerk wählen"
TextBox1 = "Vertragsnummer"
TextBox2 = "Vertragsdatum (TT.MM.JJJJ)"
TextBox3 = "0,00%"
TextBox4 = "0,00%"
TextBox5 = "0,00%"
TextBox6 = "0,00%"
TextBox7 = "0,00%"
TextBox8 = "0,00%"
TextBox9 = "0,00%"
TextBox10 = "0,00"
TextBox11 = "0,00"
TextBox12 = "0,00"
TextBox13 = "0,00"
TextBox14 = "0,00"
TextBox15 = "0,00"
TextBox16 = "0,00"
TextBox17 = "0,00"
TextBox18 = "0,00"
TextBox19 = "0,00"
TextBox20 = "0,00"
TextBox21 = "0,00"
TextBox22 = "0,00"
TextBox23 = "0,00"
TextBox24 = "sonst. (Bezeichnung)"
TextBox25 = "0,00%"
TextBox26 = "0,00%"
TextBox27 = "0,00%"
TextBox28 = "0,00%"
TextBox29 = "0,00"
TextBox31 = "(Bezeichnung)"
TextBox32 = "(Bezeichnung)"
TextBox33 = "(Bezeichnung)"
TextBox34 = "(TT.MM.JJJJ)"
TextBox35 = "(TT.MM.JJJJ)"
TextBox36 = "BS 1 (Bezeichnung)"
TextBox37 = "(TT.MM.JJJJ)"
TextBox38 = "()"
TextBox40 = "BS 2 (Bezeichnung)"
TextBox41 = "(TT.MM.JJJJ)"
TextBox39 = "()"
TextBox42 = "Tage"
TextBox44 = "Tage"
TextBox45 = "0,00%"
TextBox46 = "(Bezeichnung)"
TextBox47 = "(Bezeichnung)"
TextBox48 = "(Bezeichnung)"
TextBox49 = "(Bezeichnung)"
With Worksheets("Basis") ' Anpassen !!!
ComboBox1.Text = .Range("E4").Value
TextBox1.Text = .Range("F4").Value
TextBox2.Text = .Range("G4").Value
ComboBox2.Text = .Range("H4").Value
End With
Worksheets("Basis").Activate
End Sub