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()

'Erste freie Zeile ausfindig machen
Dim last As Integer
last = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1

'Zugriff für
Cells(last, 1).Value = ComboBox1

'Projektträgerschaft
Cells(last, 2).Value = ComboBox2

'Geschlecht
Cells(last, 3).Value = ComboBox4

'Anrede
Cells(last, 4).Value = ComboBox3

'Titel
Cells(last, 5).Value = ComboBox5

'Name
Cells(last, 6).Value = TextBox1

'Position
Cells(last, 7).Value = TextBox2

'Institutionen
Cells(last, 8).Value = TextBox3

'Adresse
Cells(last, 9).Value = TextBox4

'Kontaktdaten
Cells(last, 10).Value = TextBox5

'Quelle
Cells(last, 11).Value = TextBox6 'Kategorie (intern)
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

'Kategorie (Akteur)
Cells(last, 13).Value = ComboBox6

'Bisherige Ansprachen / Begutachtungen
Cells(last, 14).Value = TextBox7

'Expertise (allgemein)
Cells(last, 15).Value = TextBox8

'Expertise (projektbezogen)
Cells(last, 16).Value = TextBox9

'CV
Cells(last, 17).Value = TextBox10

'Publikation
Cells(last, 18).Value = TextBox11

'Bewertung/Cave/Infos zur Begutachtung
Cells(last, 19).Value = TextBox12

'Kommentare
Cells(last, 20).Value = TextBox13

'Ersteintrag
Cells(last, 21).Value = TextBox14

'Aktualisiert
Cells(last, 22).Value = TextBox15

End Sub

Private Sub UserForm_Initialize()
'Zugriff für
With ComboBox1
.AddItem "Alle"
.AddItem "PT BMG"
.AddItem "PT GloGe"
End With

'Projektträgerschaft
With ComboBox2
.AddItem "PT BMG"
.AddItem "PT GloGe"
End With

'Anrede
With ComboBox3
.AddItem "Herr"
.AddItem "Frau"
End With

'Geschlecht
With ComboBox4
.AddItem "m"
.AddItem "w"
End With

'Titel
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

'Name
TextBox1 = "Vor-und Nachnamen eingeben"

'Position
TextBox2 = "Position innerhalb des Instituts eingeben"

'Institutionen
TextBox3 = "Institutionen eingeben"

'Adresse
TextBox4 = "Straße/Postleitzahl/Stadt/Land ISO-3166 Alpha-2 eingeben"

'Kontaktdaten
TextBox5 = "Telefonnummer/E-Mail-Adresse/Internetadresse eingeben"

'Quelle
TextBox6 = "Quelle für Gutachtereintrag eingeben"

'Kategorie (intern)
CheckBox1.Value = False
CheckBox2.Value = False
CheckBox3.Value = False
CheckBox4.Value = False
CheckBox5.Value = False

'Kategorie (Akteur)
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

'Bisherige Ansprachen / Begutachtungen
TextBox7 = "Bisherige Ansprachen / Begutachtungen eingeben"

'Expertise (allgemein)
TextBox8 = "Expertise (allgemein) eingeben"

'Expertise (projektbezogen)
TextBox9 = "Expertise (projektbezogen) eingeben"

'CV
TextBox10 = "CV eingeben"

'Publikation
TextBox11 = "Publikationen (am Besten doi/PMD usw.) eingeben"

'Bewertung/Cave/Infos zur Begutachtung
TextBox12 = "Bewertung/Cave/Infos zur Begutachtung eingeben"

'Kommentare
TextBox13 = "Kommentare zur bisherigen Zusamenarbeit eingeben"

'Ersteintrag
TextBox14 = "Paraphe/Datum DD.MM.YYYY eingeben"

'Aktualisiert
TextBox15 = "Paraphe/Datum DD.MM.YYYY eingeben"

End Sub

Ich hoffe irgendjemand kann mir weiterhelfen.

VG

Rafa