Datenrückgabe aus Auswahl in Combobox in definierte Zelle
21.11.2020 16:21:58
Robin
da ich ein ziemlicher VBA "Neuling" bin würde ich mich gerne an euch wenden um vielleicht hier Hilfe für mein Problem zu bekommen. Zu meinem Anliegen. Ich versuche gerade eine Q-Matrix zu erstellen die "interaktiv" über eine Userform gefüllt wird sobald ich einen Namen eines Mitarbeiters über eine Combobox auswähle (das funktioniert auch). Somit bekomme ich alle für mich relevanten bzw. verfügbaren Daten des jeweiligen Mitarbeiters angezeigt. Sollte nun eine Qualifikation in einem bestimmten Bereich stattfinden ,möchte ich über weitere Comboboxen (in Summe 7 die als Module beschrieben sind) die die Werte 0,25,50,75,100 schon enthalten (realisiert mit RowSource) , eine Auswahl treffen und diesen geänderten Wert dann in die Tabelle ausgeben. Ist das möglich?
anbei der von mir geschriebene Code. Habe mir hunderte Videos und Tutorials angeschaut und versucht das beste für mich herauszuziehen. Habe gelesen das es bei Excel meist mehr als eine Variante gibt die zum Ergebnis führt, vielleicht bin ich auch in der total falschen Richtung unterwegs. Vielleicht gibt es auch eine übersichtlichere Variante so etwas anzulegen aber wie gesagt, ich war froh das ich das soweit schon hinbekommen habe :-) .
Hoffe jemand kann mir hierbei helfen :-)
Schon Vielen vielen Dank
Gruß Robin
----------------------------------------------------------------------------
'Arbeitsblatt aktivieren
Private Sub Worksheet_Activate(Tabelle1)
End Sub
'Anzeigen der Dateien
Private Sub CommandButton1_Click()
Dim Name As String
Dim sy As Long
Set Rng = Range("B:AZ") 'Auswahlbereich Daten
by = Application.WorksheetFunction.VLookup(Mitarbeiter.Value, Rng, 4, False) 'PNummer
cy = Application.WorksheetFunction.VLookup(Mitarbeiter.Value, Rng, 5, False) 'KNummer
dy = Application.WorksheetFunction.VLookup(Mitarbeiter.Value, Rng, 2, False) 'Bereich
ey = Application.WorksheetFunction.VLookup(Mitarbeiter.Value, Rng, 3, False) 'Schicht
fy = Application.WorksheetFunction.VLookup(Mitarbeiter.Value, Rng, 6, False) 'Haupt_Funktion
gy = Application.WorksheetFunction.VLookup(Mitarbeiter.Value, Rng, 10, False) ' _
Modul_1_SOLL_Sicherheitsunterweisung
iy = Application.WorksheetFunction.VLookup(Mitarbeiter.Value, Rng, 13, False) 'Modul_2_SOLL
jy = Application.WorksheetFunction.VLookup(Mitarbeiter.Value, Rng, 16, False) 'Modul_3_SOLL
ky = Application.WorksheetFunction.VLookup(Mitarbeiter.Value, Rng, 19, False) 'Modul_4_SOLL
ly = Application.WorksheetFunction.VLookup(Mitarbeiter.Value, Rng, 22, False) 'Modul_5_SOLL
my = Application.WorksheetFunction.VLookup(Mitarbeiter.Value, Rng, 25, False) 'Modul_6_SOLL
ny = Application.WorksheetFunction.VLookup(Mitarbeiter.Value, Rng, 28, False) 'Modul_7_SOLL
oy = Application.WorksheetFunction.VLookup(Mitarbeiter.Value, Rng, 11, False) 'Modul_3_IST
py = Application.WorksheetFunction.VLookup(Mitarbeiter.Value, Rng, 14, False) 'Modul_4_IST
qy = Application.WorksheetFunction.VLookup(Mitarbeiter.Value, Rng, 27, False) 'Modul_5_IST
ry = Application.WorksheetFunction.VLookup(Mitarbeiter.Value, Rng, 20, False) 'Modul_6_IST
sy = Application.WorksheetFunction.VLookup(Mitarbeiter.Value, Rng, 23, False) 'Modul_7_IST
ty = Application.WorksheetFunction.VLookup(Mitarbeiter.Value, Rng, 26, False) 'Modul_7_IST
uy = Application.WorksheetFunction.VLookup(Mitarbeiter.Value, Rng, 29, False) 'Modul_7_IST
PNummer.Value = by
KNummer.Value = cy
Bereich.Value = dy
Schicht.Value = ey
Funktion.Value = fy
SollSicherh.Value = gy
Modul2.Value = iy
Modul3.Value = jy
Modul4.Value = ky
Modul5.Value = ly
Modul6.Value = my
Modul7.Value = ny
ComboBox1.Value = oy
ComboBox2.Value = py
ComboBox3.Value = qy
ComboBox4.Value = ry
ComboBox5.Value = sy
ComboBox6.Value = ty
ComboBox7.Value = uy
End Sub
'Zurücksetzen der aktuellen Auswahl
Private Sub CommandButton4_Click()
Mitarbeiter.Value = "" 'DropBox Mitarbeiter
PNummer.Value = "" 'PNummer
KNummer.Value = "" 'KNummer
Bereich.Value = "" 'Bereich
Schicht.Value = "" 'Schicht
Funktion.Value = "" 'Haupt_Funktion
SollSicherh.Value = "" 'Modul_1_SOLL_SicherheitU
Modul2.Value = "" 'Modul_2_SOLL
Modul3.Value = "" 'Modul_3_SOLL
Modul4.Value = "" 'Modul_4_SOLL
Modul5.Value = "" 'Modul_5_SOLL
Modul6.Value = "" 'Modul_6_SOLL
Modul7.Value = "" 'Modul_7_SOLL
ComboBox1.Value = "" 'Modul_2_IST
ComboBox2.Value = "" 'Modul_3_IST
ComboBox3.Value = "" 'Modul_4_IST
ComboBox4.Value = "" 'Modul_5_IST
ComboBox5.Value = "" 'Modul_6_IST
ComboBox6.Value = "" 'Modul_7_IST
ComboBox7.Value = "" 'Modul_8_IST
End Sub
'Formular schließen
Private Sub CommandButton3_Click()
Unload Me
End Sub