Hallo miteinander,
habe versucht ein Formular zu erstellen, bei dem die Excel-Zellen alle automatisch ausgefüllt werden (nach Eingabe in die jeweilige Textbox, ComboBox etc.
Leider füllt das Makro nur die ersten 5 ComboBoxen aus sowie die Textboxen 1,4,5, 7 & 12 aus. Die anderen will das Makro im Excel-Sheet schliecht und ergreifend nicht füllen.
Die Aktivierungsreihenfolge habe ich entsporechend den Labeln und dazugehörigen Boxen gemacht.
Hier ist der Code:
Private Sub CommandButton1_Click()
Dim last As Integer
last = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
Cells(last, 1).Value = ComboBox1
Cells(last, 2).Value = ComboBox2
Cells(last, 3).Value = ComboBox4
Cells(last, 4).Value = ComboBox3
Cells(last, 5).Value = ComboBox5
Cells(last, 6).Value = TextBox1
Cells(last, 7).Value = TextBox2
Cells(last, 8).Value = TextBox3
Cells(last, 9).Value = TextBox4
Cells(last, 10).Value = TextBox5
Cells(last, 11).Value = TextBox6
If CheckBox1.Value = True Then Cells(last, 12).Value = CheckBox1.Caption
If CheckBox2.Value = True Then Cells(last, 12).Value = Cells(last, 12).Value & " / " & CheckBox2.Caption
If CheckBox3.Value = True Then Cells(last, 12).Value = Cells(last, 12).Value & " / " & CheckBox3.Caption
If CheckBox4.Value = True Then Cells(last, 12).Value = Cells(last, 12).Value & " / " & CheckBox4.Caption
If CheckBox5.Value = True Then Cells(last, 12).Value = Cells(last, 12).Value & " / " & CheckBox5.Caption
Cells(last, 13).Value = ComboBox6
Cells(last, 14).Value = TextBox7
Cells(last, 15).Value = TextBox8
Cells(last, 16).Value = TextBox9
Cells(last, 17).Value = TextBox10
Cells(last, 18).Value = TextBox11
Cells(last, 19).Value = TextBox12
Cells(last, 20).Value = TextBox13
Cells(last, 21).Value = TextBox14
Cells(last, 22).Value = TextBox15
End Sub
Private Sub UserForm_Initialize()
With ComboBox1
.AddItem "Alle"
.AddItem "PT BMG"
.AddItem "PT GloGe"
End With
With ComboBox2
.AddItem "PT BMG"
.AddItem "PT GloGe"
End With
With ComboBox3
.AddItem "Herr"
.AddItem "Frau"
End With
With ComboBox4
.AddItem "m"
.AddItem "w"
End With
With ComboBox5
.AddItem ""
.AddItem "Dr."
.AddItem "Dr. med."
.AddItem "Prof."
.AddItem "Prof. Dr."
.AddItem "Prof. Dr. Dr."
.AddItem "Prof. Dr. Dr. Dr."
.AddItem "Prof. Dr. Dr. h.c."
.AddItem "Prof. Dr. med."
.AddItem "Prof. Dr. rer. med."
.AddItem "Prof. Dr. rer. nat."
.AddItem "Prof.Emeritus"
.AddItem "Univ.-Prof."
End With
TextBox1 = "Vor-und Nachnamen eingeben"
TextBox2 = "Position innerhalb des Instituts eingeben"
TextBox3 = "Institutionen eingeben"
TextBox4 = "Straße/Postleitzahl/Stadt/Land ISO-3166 Alpha-2 eingeben"
TextBox5 = "Telefonnummer/E-Mail-Adresse/Internetadresse eingeben"
TextBox6 = "Quelle für Gutachtereintrag eingeben"
CheckBox1.Value = False
CheckBox2.Value = False
CheckBox3.Value = False
CheckBox4.Value = False
CheckBox5.Value = False
With ComboBox6
.AddItem "Anwender (Nutzeranforderungen)"
.AddItem "Arzt"
.AddItem "Bioregion/Multiplikator"
.AddItem "Cluster"
.AddItem "Ethik"
.AddItem "Fachgesellschaft"
.AddItem "Industrie"
.AddItem "Industrie (KMU)"
.AddItem "Industrie (Mittelstand)"
.AddItem "Industrie (Pharma)"
.AddItem "Klinik"
.AddItem "Kostenträger"
.AddItem "Netzwerk"
.AddItem "Patientenvertreter"
.AddItem "Politik"
.AddItem "Presse"
.AddItem "Regulation"
.AddItem "Verband"
.AddItem "Wissenschaft"
End With
TextBox7 = "Bisherige Ansprachen / Begutachtungen eingeben"
TextBox8 = "Expertise (allgemein) eingeben"
TextBox9 = "Expertise (projektbezogen) eingeben"
TextBox10 = "CV eingeben"
TextBox11 = "Publikationen (am Besten doi/PMD usw.) eingeben"
TextBox12 = "Bewertung/Cave/Infos zur Begutachtung eingeben"
TextBox13 = "Kommentare zur bisherigen Zusamenarbeit eingeben"
TextBox14 = "Paraphe/Datum DD.MM.YYYY eingeben"
TextBox15 = "Paraphe/Datum DD.MM.YYYY eingeben"
End Sub