Thema Datum  Von Nutzer Rating
Antwort
18.11.2022 13:19:06 Bernd
Solved
18.11.2022 13:23:13 Gast11122
Solved
18.11.2022 14:19:55 Bernd
Solved
18.11.2022 16:13:07 Gast54888
Solved
18.11.2022 17:21:34 Gast53268
Solved
Blau 2 Dateien zwei Spalten werte suchen und wenn nicht vorhanden mit Werten füllen
21.11.2022 08:45:49 Bernd
Solved
21.11.2022 12:38:19 Gast91815
Solved
21.11.2022 12:41:13 Bernd
Solved
21.11.2022 14:23:33 Bernd
Solved
21.11.2022 12:40:24 Bernd
Solved
21.11.2022 15:44:51 Bernd
Solved
22.11.2022 16:24:16 Bernd
Solved

Ansicht des Beitrags:
Von:
Bernd
Datum:
21.11.2022 08:45:49
Views:
739
Rating: Antwort:
 Nein
Thema:
2 Dateien zwei Spalten werte suchen und wenn nicht vorhanden mit Werten füllen

Hallo Gast54888

Ich habe es mir jetzt erst einmal angeschaut und denke das ich damit erst einmal klar komme.

Was mir aufgefallen ist, ist das ich die beiden Sheets in 2 unterschiedlichen Dateien habe (Workbooks)

Also muss ich noch die verschiedenen Workbooks ansprechen und nicht nur die Sheets.

   ‘ Dim QPath As String ‘ Weiß ich noch nicht wie es verwendet wird und ob ich es brauche

   Dim QName As Workbook

   Dim QSheet As Worksheet

   ‘ Dim ZPath As String   ‘ Weiß ich noch nicht wie es verwendet wird und ob ich es brauche

   Dim ZName As String

   Dim ZSheet As String

 

'Set QPath = ActiveWorkbook.Path  ‘ Weiß ich noch nicht wie es verwendet wird und ob ich es brauche

Set QName = ActiveWorkbook 'Erstellt sich aus aktiver Quelldatei "Datenexport"

Set QSheet = ActiveSheet 'Erstellt sich aus aktiven Quellsheet "Meldung"

 'ZPath = "D:\Users\YYY\XXXXXXXXX\Desktop\Rohdaten\Dokumentation\" ‘ Weiß ich noch nicht wie es verwendet wird und ob ich es brauche

 ZName = "Test_Makro_Dokumentation_Test_Datenblatt.xlsm" ‘Zieldatei Dokumentation

 ZSheet = "Dokumentation Test" ‘ZielSheet Dokumentation

Kann ich jetzt einfach die Zeilen in:
With Worksheets(ZName & ZSheet) und 

With Worksheets(QName & QSheet) umbenennen, oder muss ich das anders machen?


Danke für deine Hilfe

Bernd


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen