Office: (Office 2010) Makro (VBA) um Wert evtl mit Hilfe von SUMMEWENNS in eine andere Tabelle schreiben

Hallo zusammen,

vielleicht hat einer von euch eine Idee, um mir bei meiner Herausforderung zu helfen.

Ich habe eine Tabelle1:



Die Werte zu den Personen würde ich gerne über den CommandButton1 den Personen in Tabelle2 zuordnen.



Kann mir dabei jemand helfen?

 

Nachdem ich noch ein bisschen weiter gesucht habe, bin ich auf die .Find Funktion gestoßen.

Hier eine Lösung die für mich funktioniert:

Private Sub CommandButton1_Click()
Worksheets("Tabelle2").Cells(Worksheets("Tabelle2").Range("a2:a9").Find(What:=ActiveSheet.Range("A1").Value, LookIn:=xlValues).Row, 2).Value = ActiveSheet.Range("A2")
Worksheets("Tabelle2").Cells(Worksheets("Tabelle2").Range("a2:a9").Find(What:=ActiveSheet.Range("B1").Value, LookIn:=xlValues).Row, 2).Value = ActiveSheet.Range("B2")
Worksheets("Tabelle2").Cells(Worksheets("Tabelle2").Range("a2:a9").Find(What:=ActiveSheet.Range("C1").Value, LookIn:=xlValues).Row, 2).Value = ActiveSheet.Range("C2")
Worksheets("Tabelle2").Cells(Worksheets("Tabelle2").Range("a2:a9").Find(What:=ActiveSheet.Range("D1").Value, LookIn:=xlValues).Row, 2).Value = ActiveSheet.Range("D2")
End Sub