Thema Datum  Von Nutzer Rating
Antwort
Rot Makro füllt Excel-Zellen nicht aus
07.09.2020 12:44:09 Rafa
NotSolved

Ansicht des Beitrags:
Von:
Rafa
Datum:
07.09.2020 12:44:09
Views:
55
Rating: Antwort:
  Ja
Thema:
Makro füllt Excel-Zellen nicht aus
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


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot Makro füllt Excel-Zellen nicht aus
07.09.2020 12:44:09 Rafa
NotSolved