Layout bei Drop Down uebertragen
07.10.2013 06:57:45
Anna
Ich habe eine ActivXCombobox, nach Auswahl eines Wertes erscheint die dazugehoerige Tabelle- Problem: Es wird auschliesslich nur der Inhalt der Tabell wiedergegeben.
Kann mir heir vllt jemand weiterhelfen.
Hier ist mein Code, muss man da einfach nur noch was anhaengen?
Private Sub ComboBox1_Change()
Dim rngZiel As Range
Set rngZiel = Worksheets("Sheet1").Range("A3:D40") 'Bereich, in dem die Daten kopiert werden, _
damit ich am Ende auch die Fuellfarben etc. wiedergegeben bekomme?
Select Case ComboBox1.Value
Case "Function Groups"
rngZiel = Worksheets("Sheet2").Range("A2:D42").Value
Case "Folding Option"
rngZiel = Worksheets("Sheet2").Range("A43:D48").Value
Case "Feeder TZM"
rngZiel = Worksheets("Sheet2").Range("A49:D56").Value
Case "Wet Parts"
rngZiel = Worksheets("Sheet2").Range("A57:D71").Value
Case "Format Parts"
rngZiel = Worksheets("Sheet2").Range("A72:D76").Value
Case "Electrical Parts"
rngZiel = Worksheets("Sheet2").Range("A77:D79").Value
End Select
End Sub
Gruss Anna
Anzeige