Office: (Office 2010) Makro Mehrere Werte übernehmen

BlinkyBill · 20. November 2018

Ich erstelle für diese Frage mal ein Neues Thema. Habe es an das alte nur angehängt und es passt daher nicht mehr zum Titel.

Dank fleißiger Helfer ist es mir gelungen die Namen nun zu übernehmen und das manuell eingetragene wird automatisch mitsortiert.
Jetzt ist aber die Frage, wie muss ich den Code verändern, damit zwei oder noch mehr Werte übernommen werden?
Wenn ich ich also will dass nicht nur der Name, sondern auch die Kostenstelle oder die Personalnummer von 'MaxMustermann' in alle 12 Monate übernommen wird. Natürlich geht das mit Sverweis aber wenn man es professionell machen will, dann auch richtig ;-)

Option Explicit

'
'Kopiere alle Namen der Spalte A im Blatt "Jahresübersicht" in alle 12 Monatsblätter.
'Die restlichen Spalten werden nicht kopiert.
'
Sub KopiereNamen_nach_Monatsblätter()

Dim zlEnd As Long
Dim varMon As Variant

'Ermittle das Blatt "Jahresübersicht" und die letzte verwendete Zeilennummer in Spalte A (=zlEnd)
With wsZielblatt("Jahresübersicht", zlEnd)
'Durchlaufe alle Monatsarbeitsblätter:
For Each varMon In MonatsListe()
'Kopiere die Namen aus Spalte A ab A4 in "Jahresübersicht" in das jeweilige Monatsblatt ab A6:
.Range("A4:A" & zlEnd).Copy Destination:=Sheets(varMon).Range("A7")
Next varMon
End With

End Sub
'
'MonatsListe(0)="Jan.", MonatsListe(1)="Feb.", ..., MonatsListe(11)="Dez."
'
Function MonatsListe() As Variant
MonatsListe = Array("Jan.", "Feb.", "März", "April", "Mai", "Juni", "Juli", "Aug.", "Sep.", "Okt.", "Nov.", "Dez.")
End Function
'
'1) Der Funktion "wsZielblatt" wird im Parameter "strBlatt" der Name des Arbeitsblattes übergeben,
' zB. "Jahresübersicht" oder "Jan."
'2) Die Funktion gibt daraufhin als Rückgabewert das betreffende Arbeitsblatt-Objekt zurück
' und im Rückgabe-Parameter "LztZeile" die Zeilennummer des letzten Wertes in Spalte A
' dieses Arbeitsblattes.
'
Function wsZielblatt(strBlatt As Variant, ByRef LztZeile) As Worksheet
Set wsZielblatt = ActiveWorkbook.Worksheets(strBlatt)
With wsZielblatt
LztZeile = .Cells(.Rows.Count, 1).End(xlUp).Row
End With
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Irgendwo muss ja bestimmt key2 rein. Aber wo? Ich hab schon ein bisschen rumprobiert, aber leider erfolglos

http://www.office-hilfe.com/support/showthread.php/23043-Excel-Makro-auf-allen-Seiten

Office: (Office 2010) Makro Mehrere Werte übernehmen

Makro Mehrere Werte übernehmen

Makro Mehrere Werte übernehmen

Makro Mehrere Werte übernehmen - Similar Threads - Makro Werte übernehmen

Zeilen mit bestimmten Wert in andere Tabelle (VBA Makro)

Makro zum einfügen des Wertes aus Nachbarzelle

Kombinationsfelder gleichzeitig auf "Wert 1" rücksetzen

VBA Makro: Tabelle nach 2 Kriterien durchsuchen & in diese Zeile weitere Werte eintragen

VBA Werte aus Tabellenblätter kopieren WENN

Makro: Ersetze die ersten 10 Werte zwischen 50 und 100

Wert aus Inputbox in Makro übernehmen