ich bin Anfänger was VBA-Programmierung angeht und ich habe eine Frage. Anbei meine aufgezeichneten Macros. Kann man das nicht irgendwie zusammenfassen? Mit der Schleife oder so?
Folgende Infos zur Funktionalität meiner Mappe: Ich möchte gern von A8-A32 jeweils ein Dropdown mit diversen Kriterien haben und nach Auswahl eines Kriteriums eine Information in die Spalte recht daneben verknüpfen. Wie kann ich das erreichen??? Vielen Dank für Ihre Hilfe.
Meine Module:
Sub ComboboxFüllenBezug() 'Mitarbeiternamen
Worksheets("Arbeitszeitnachweis").ComboBox1.ListFillRange = _
"Projekt_MA!A1:A10"
End Sub
Sub ComboboxFüllenBezug3() 'ZMT_Beschreibungen
Worksheets("Arbeitszeitnachweis").ComboBox3.ListFillRange = _
"ZMT_Info!D4:D595"
End Sub
Sub ComboboxFüllenBezug4() 'ZMT_Gesamt
Worksheets("Arbeitszeitnachweis").ComboBox4.ListFillRange = _
"ZMT_Info!C4:C595"
End Sub
Sub ComboboxFüllenBezug5() 'ZMT_Gesamt
Worksheets("Arbeitszeitnachweis").ComboBox5.ListFillRange = _
"ZMT_Info!C4:C595"
End Sub
Sub ComboboxFüllenBezug6() 'ZMT_Gesamt
Worksheets("Arbeitszeitnachweis").ComboBox6.ListFillRange = _
"ZMT_Info!D4:D595"
End Sub
Sub ComboboxFüllenBezug7() 'ZMT_Gesamt
Worksheets("Arbeitszeitnachweis").ComboBox7.ListFillRange = _
"ZMT_Info!C4:C595"
End Sub
Sub ComboboxFüllenBezug8() 'ZMT_Gesamt
Worksheets("Arbeitszeitnachweis").ComboBox8.ListFillRange = _
"ZMT_Info!D4:D595"
End Sub
Sub ComboboxFüllenBezug9() 'ZMT_Gesamt
Worksheets("Arbeitszeitnachweis").ComboBox9.ListFillRange = _
"ZMT_Info!C4:C595"
End Sub
Sub ComboboxFüllenBezug10() 'ZMT_Gesamt
Worksheets("Arbeitszeitnachweis").ComboBox10.ListFillRange = _
"ZMT_Info!D4:D595"
End Sub
Sub ComboboxFüllenBezug11() 'ZMT_Gesamt
Worksheets("Arbeitszeitnachweis").ComboBox11.ListFillRange = _
"ZMT_Info!D4:D595"
End Sub
Meine Objekte:
Private Sub ComboBox1_Change()
ComboBox1.LinkedCell = "C8"
End Sub
Private Sub ComboBox11_Change()
ComboBox11.LinkedCell = "A12"
End Sub
Private Sub ComboBox4_Change()
ComboBox4.LinkedCell = "A8"
End Sub
Private Sub ComboBox3_Change()
ComboBox3.LinkedCell = "B8"
End Sub
Private Sub ComboBox5_Change()
ComboBox5.LinkedCell = "A9"
End Sub
Private Sub ComboBox6_Change()
ComboBox6.LinkedCell = "B9"
End Sub
Private Sub ComboBox7_Change()
ComboBox7.LinkedCell = "A10"
End Sub
Private Sub ComboBox8_Change()
ComboBox8.LinkedCell = "B10"
End Sub
Private Sub ComboBox9_Change()
ComboBox9.LinkedCell = "A11"
End Sub
Private Sub ComboBox10_Change()
ComboBox10.LinkedCell = "B11"
End Sub