Clever-Excel-Forum

Hallo zusammen,

als VBA-Neuling probiere ich momentan, eine Datenzeile aus Datei A in eine neue Datei B zu kopieren, wo die Daten nach und nach gesammelt werden sollen. Das klappte über die Aufzeichnung bereits auch sehr gut:

Zitat:Sub Makro3()
    Rows("4:4").Select
    Application.CutCopyMode = False
    Selection.Copy
    Workbooks.Open Filename:="I:\Datensammlung.xlsx"
    Worksheets("Gesamt").Rows("8:8").Insert Shift:=xlDown
    Rows("8:8").Select
    ActiveSheet.Paste
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveWorkbook.Save
    ActiveWindow.Close
End Sub

Die zu kopierende Datenzeile in Datei A kann aber zu verschiedenen Gruppen gehören (Die Zugehörigkeit ist in Zelle C4 definiert), weshalb ich nicht einfach nur will, dass sie in Datei B ins Arbeitsblatt "Gesamt" kopiert werden, sondern in Abhängigkeit von der Gruppenzugehörigkeit ins Arbeitsblatt "Gruppe1", "Gruppe2" oder "Gruppe3". Ich habe leider keine Ahnung, wie ich dafür den Bezug zu Zelle C4 herstelle.

Kann mir da jemand weiterhelfen? Vielen Dank für Eure Hilfe!
Hoffe es war nachvollziehbar formuliert.

Gruß

Denke ich hab es.

Zitat:Sub Makro3()
Dim varGruppe As String
varGruppe = ThisWorkbook.Worksheets("Daten").Range("C4").Text
    Rows("4:4").Select
    Application.CutCopyMode = False
    Selection.Copy
    Workbooks.Open Filename:="I:\Datensammlung.xlsx"
    Worksheets(varGruppe).Rows("8:8").Insert Shift:=xlDown
    Rows("8:8").Select
    ActiveSheet.Paste
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveWorkbook.Save
    ActiveWindow.Close
End Sub

Falls keiner eine elegantere Lösung kennt, würde ich das Thema wieder schließen ;)