Office: (Office 365) Daten aus einer Datei in andere Datei Kopieren u. Einfügen Dynamisch

Hallo zusammen,
ich verzweifle mal wieder.

ich habe zwei Dateien mit 10 Tabellenblätter (gleicher Aufbau).
In der Datei 1 (Quelldatei) gibt es ein Tabellenblatt mit dem Namen Mieter1
Datei 2 (Zieldatei) hat auch ein Tabellenblatt mit Mieter1
Nun will ich z.B die Zelle "C5" von Datei 1 nach Datei 2 in Zelle "X6" kopieren.

Code:

Private Sub Daten_vom_vorjahr_Click()
Dim sPfas As String
Dim wbQuelle As Workbook

'Pfad der Vorjahrdatei
sPfad = "\\SERVER1\martin\Abrechnungen_Ertingen\" & "Abrechnungsjahr " & Year(WSVerbrauch.Range("A3")) - 1 & "\" & "Abrechnung_" & Year(WSVerbrauch.Range("A3")) - 1 & ".xlsm"
'Datei Zählerinfos öffnen
Set wbQuelle = Workbooks.Open(sPfad) 'öffnet die Vorjahrdatei
wbQuelle.Worksheets("Mieter1").Range("C5").Copy  'Kopiert die Zelle C5 in der Vohrjahrsdatei im Tabellenblatt

ThisWorkbook.Worksheets("Mieter1").Range("X6").PasteSpecial xlPasteValues  'fügt den Wert ein
 wbQuelle.Close
End Sub

Der Code funktioniert so weit.
Ich möchte das ganze Dynamischer machen.
Also der Code soll auch dann Funktionieren wenn beide Tabellenblattnamen z.B Mieter2 ist. Es Ändert sich auch nur die Tabellenblattname.
Es könnte natürlich der Name des Aktive Tabellenblatt (Zieldatei)sei, denn der Code wird auf den Aktiven Tabellenblatt ausgeführt. Dieser müsste dann nur irgendwie auf die Quelldatei Übertragen werden.
eventuell so
wbQuelle.Name des ActivesTabellenblatt von Zieldatei.Range("C5").Copy

Das geht bestimmt mit PQ, aber damit komme ich überhaupt nicht klar.
Kann mir jemand helfen.
Danke im Voraus.
Gruß
Martin

 

Hallo

Warum muss es VBA sein??
Ich vermeide VBA und Registerformeln wo es nur geht und nutze nur PQ

 

Hallo,

du hast in deiner Zieldatei ein Arbeitsblatt, das in der Worksheet-Variablen "WSVerbrauch" gespeichert ist. In der Zelle "A3" dieses Blattes hast du ein Datum gespeichert, dessen Jahreszahl du verwendest, um die entsprechende Datei einzulesen.
Unterhalb dieser Zelle in Zelle "A4" diese Blattes kannst du zB. den Namen des einzulesenden/speichernden Arbeitsblattes eingeben, zB. "Mieter1" oder "Mieter2" oder ...

Ich glaube, dass der Code ja relativ einfach zu verstehen sein sollte, sodass du ihn noch an deine spezielle Arbeitsmappen/Arbeitsblatt-Umgebung anpassen kannst.

Code:

Private Sub Daten2_vom_vorjahr_Click()
   Dim sPfad As String
   Dim wbQuelle As Workbook
   Dim sWsName As String
   
   'In Zelle "A4" von WSVerbrauch ist der Name der Quell/Ziel-Arbeitsblätter enthalten, zB. "Mieter1" oder "Mieter2" oder ...
   sWsName = WSVerbrauch.Range("A4").Value
   
   'Pfad der Vorjahrdatei
   sPfad = "\\SERVER1\martin\Abrechnungen_Ertingen\" & "Abrechnungsjahr " & Year(WSVerbrauch.Range("A3")) - 1 & "\" & "Abrechnung_" & Year(WSVerbrauch.Range("A3")) - 1 & ".xlsm"
   'Datei Zählerinfos öffnen
   Set wbQuelle = Workbooks.Open(sPfad) 'öffnet die Vorjahrdatei
   wbQuelle.Worksheets(sWsName).Range("C5").Copy  'Kopiert die Zelle C5 in der Vohrjahrsdatei im Tabellenblatt
   
   ThisWorkbook.Worksheets(sWsName).Range("X6").PasteSpecial xlPasteValues  'fügt den Wert ein
   wbQuelle.Close
End Sub

 

Hallo zusammen
leider habe ich keine Mail bekommen das jemand auf meine Frage geantwortet hat. Deshalb melde ich mich erst jetzt.

@ PIVPQ
wie schon gesagt PQ und ich werden keine Freunde

@ Anton
dein Code werden ich in den nächsten Tagen mal Testen. Melde mich dann
Danke
Gruß
Martin

 

Hallo Martin,

warum musst du Daten von einer Datei in die andere kopieren? Das ist aus EDV-Sicht völliger Blödsinn. Ganz zu schweigen vom Aufbau der Datei(en). Gleichartige Daten gehören auf ein Tabellenblatt.

 

Hallo Klaus-Dieter,
generell hast du bestimmt recht.
Da es sich um eine Nebenkostenabrechnung handelt will ich ich halt jedes Jahr in einer Datei haben.
Da es sich hier auch nur um ein Privatvergnügen handelt will ich das ganze auch etwas übersichtlich gestallten
Gruß
Martin

 

Hallo Anton,
musste zwar ein wenig rum probieren aber dein Code hat letztlich geholfen

Code:

Private Sub Verbrauch_Vorjahr_Click()
Dim sPfad As String
   Dim wbQuelle As Workbook
   Dim BlattName As String
   BlattName = ActiveSheet.Name
 
   'Pfad der Vorjahrdatei
   sPfad = "\\SERVER1\martin\Abrechnungen_Ertingen\" & "Abrechnungsjahr " & Year(WSVerbrauch.Range("A3")) - 1 & "\" & "Abrechnung_" & Year(WSVerbrauch.Range("A3")) - 1 & ".xlsm"
   'Datei Zählerinfos öffnen
   Set wbQuelle = Workbooks.Open(sPfad) 'öffnet die Vorjahrdatei
                             'Kopiert Verbrauch Kaltwasser
   wbQuelle.Worksheets(BlattName).Range("C5").Copy  'Kopiert die Zelle C5 in der Vohrjahrsdatei im Tabellenblatt
   ThisWorkbook.Worksheets(BlattName).Range("X6").PasteSpecial xlPasteValues  'fügt den Wert ein
   Application.CutCopyMode = False

Gruß
Martin