Hallo zusammen,
Folgende Ausgangssituation:
Ich habe mehrere Arbeitsblätter. In einem Arbeitsblatt stehen jeweils die Daten verschiedener Werkzeugmodell stehen. Die Verschiedenen Arbeitsblätter unterscheiden sich durch die Belastung der Werkzeuge.
In meinem Übersichtsblatt kann ich durch Dropdownmenüs 2 Werkzeuge aussuchen welche verglichen werden.
Nun soll ein Dropdown sozusagen vor die Maschinen Auswahl geschaltet werden.
Ich habe ein Dropdown in dem ich die Belastung auswählen kann.
Ein Auszug meines jetzigen Codes:
Dieser Code erlaubt es durch den Klick auf einen Button die Daten aus Tabelle 2 (Arbeitsblatt 2) für die Ausgewählten Werkzeuge zu laden.
Private Sub CommandButton1_Click()
Dim i As Integer 'Zähler für Schleife
Dim selection As String 'Ausgewähltes Werkzeug als String
Dim coulum As Integer 'Spalte in Auswahltabelle
Dim elements As Integer 'Anzahl der Werte
elements = 3 'Anzahl der Eigenschaften bis Wert 5
selection = Tabelle1.Cells(13, 2) 'Position der Auswahltabelle (3B)
Select Case (selection) 'Jedes Wahlfeld erhält eine Zuordnung zu einer Spalte aus Tabelle 2
Case "WerkzeugA"
coulum = 2
Case "WerkzeugB"
coulum = 3
Case "WerkzeugB"
coulum = 4
Case "WerkzeugC"
coulum = 5
Case "WerkzeugD"
coulum = 6
Case "WerkzeugE"
coulum = 7
End Select
For i = 1 To elements Step 1
Tabelle1.Cells(i + 13, 2) = Tabelle2.Cells(i + 1, coulum)
Next i
Problem-> Wie bekomme ich es hin, dass VBA erst durch die Auswahl der Belastung in das jeweilige Arbeitsblatt geht und dann die Daten heraus holt?
Vielen Dank im Voraus!
|