|
Hallo Zusammen
Da ich leider kein Profi bin in VBA..........Möchte gerne von Euch wissen ob es machbar ist diesen Code zu kürzen oder zu vereinfachen?
Ich möchte gerne den Code erweitern von Spalte F bis W und dann jede Zelle anpsprechen gemäss beispiel
Link: Dropbox
----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Private Sub ComboBox1_DropButtonClick()
'Dropdown_Menu_Auswahl
Dim intz As Integer
Dim Bereich1 As Range
intz = ThisWorkbook.Worksheets("Menu_1_Auswahl").Range("A" & Rows.Count).End(xlUp).Row
Set Bereich1 = Range(Worksheets("Menu_1_Auswahl").Cells(2, 1), Worksheets("Menu_1_Auswahl").Cells(intz, 1))
ComboBox1.RowSource = Bereich1.Address(External:=True)
'Wenn Produkt dann
If ComboBox1.Text = "" Then
TextBox6.Value = ThisWorkbook.Worksheets("Menu_1_Auswahl_DE").Range("A2").Value 'A Zelle
TextBox16.Value = ThisWorkbook.Worksheets("Menu_1_Produkt_Artikel").Range("A2").Value 'A Zelle
TextBox21.Value = ThisWorkbook.Worksheets("Menu_1_Auswahl_DE").Range("A2").Value 'A Zelle
ElseIf ComboBox1.Text = ThisWorkbook.Worksheets("Menu_1_Auswahl").Range("A3") Then 'A Zelle
TextBox6.Value = ThisWorkbook.Worksheets("Menu_1_Auswahl_DE").Range("A15").Value 'A Zelle
TextBox16.Value = ThisWorkbook.Worksheets("Menu_1_Produkt_Artikel").Range("A4").Value 'A Zelle
TextBox21.Value = ThisWorkbook.Worksheets("Menu_1_Auswahl_DE").Range("A5").Value 'A Zelle
ElseIf ComboBox1.Text = ThisWorkbook.Worksheets("Menu_1_Auswahl").Range("A4") Then 'A Zelle
TextBox6.Value = ThisWorkbook.Worksheets("Menu_1_Auswahl_DE").Range("B15").Value 'B Zelle
TextBox16.Value = ThisWorkbook.Worksheets("Menu_1_Produkt_Artikel").Range("B4").Value 'B Zelle
TextBox21.Value = ThisWorkbook.Worksheets("Menu_1_Auswahl_DE").Range("B5").Value 'B Zelle
ElseIf ComboBox1.Text = ThisWorkbook.Worksheets("Menu_1_Auswahl").Range("A5") Then 'A Zelle
TextBox6.Value = ThisWorkbook.Worksheets("Menu_1_Auswahl_DE").Range("C15").Value 'C Zelle
TextBox16.Value = ThisWorkbook.Worksheets("Menu_1_Produkt_Artikel").Range("C4").Value 'C Zelle
TextBox21.Value = ThisWorkbook.Worksheets("Menu_1_Auswahl_DE").Range("C5").Value 'C Zelle
ElseIf ComboBox1.Text = ThisWorkbook.Worksheets("Menu_1_Auswahl").Range("A6") Then 'A Zelle
TextBox6.Value = ThisWorkbook.Worksheets("Menu_1_Auswahl_DE").Range("D15").Value 'D Zelle
TextBox16.Value = ThisWorkbook.Worksheets("Menu_1_Produkt_Artikel").Range("D4").Value 'D Zelle
TextBox21.Value = ThisWorkbook.Worksheets("Menu_1_Auswahl_DE").Range("D5").Value 'D Zelle
ElseIf ComboBox1.Text = ThisWorkbook.Worksheets("Menu_1_Auswahl").Range("A7") Then 'A Zelle
TextBox6.Value = ThisWorkbook.Worksheets("Menu_1_Auswahl_DE").Range("E15").Value 'E Zelle
TextBox16.Value = ThisWorkbook.Worksheets("Menu_1_Produkt_Artikel").Range("E4").Value 'E Zelle
TextBox21.Value = ThisWorkbook.Worksheets("Menu_1_Auswahl_DE").Range("E5").Value 'E Zelle
End If
End Sub
|