Office: (Office 365) Daten Kopieren aus einer zweiten Datei

Helfe beim Thema Daten Kopieren aus einer zweiten Datei in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Ich weiss nicht ob dies Hier schon existiert. Leider habe ich noch nichts gefunden. Ich habe eine Excel Datei (Kunden Angaben) und eine zweite Datei... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von VOnCom, 14. Oktober 2021.

  1. VOnCom Neuer User

    Daten Kopieren aus einer zweiten Datei


    Ich weiss nicht ob dies Hier schon existiert.
    Leider habe ich noch nichts gefunden.
    Ich habe eine Excel Datei (Kunden Angaben) und eine zweite Datei (Mappe1).
    Wenn beide geöffnet sind kann ich aus den Kunden Angaben die Daten in die Mappe1 Importieren.
    Dies Funktioniert so.

    Sub Kopieren_einfach()
    On Error GoTo Fehler1
    '1. Anlagedaten
    Workbooks("Kunden Angaben").Worksheets("Kunden Angaben").Range("Q5").Copy _
    Workbooks("Mappe1.xlsm").Worksheets("Kunden Angaben").Range("Q5")
    Workbooks("Kunden Angaben").Worksheets("Kunden Angaben").Range("Q7").Copy _
    Workbooks("Mappe1.xlsm").Worksheets("Kunden Angaben").Range("Q7")
    Workbooks("Kunden Angaben").Worksheets("Kunden Angaben").Range("Q9").Copy _
    Workbooks("Mappe1.xlsm").Worksheets("Kunden Angaben").Range("Q9")
    UserForm2.Show
    Exit Sub

    Fehler1:
    Fehler1.Show
    Debug.Print Err.Description, Err.Number, Err.Source
    Exit Sub
    End Sub

    Jetzt würde ich gerne die Datei Kunden Angaben anpassen mit einer Variablen vorneweg.
    Dies besteht aus zwei Buchstaben (CA) und sechs Zahlen danach den Fixen Text (_Kunden Angaben).
    CA123456_Kunden Angaben

    Wie kann ich den Code so anpassen das dies so Funktioniert und ist dies überhaupt möglich?

    Danke
     
  2. Exl121150 Erfahrener User
    Hallo,

    was meinst du mit "die Datei 'Kunden Angaben' anpassen mit einer Variablen vorneweg"?
    Meinst du damit, dass du die Datei im Dateisystem umbenennen willst auf "CA123456_Kunden Angaben.xlsx"?
    1) Dann musst du die Datei "Kunden Angaben.xlsx" zuerst schließen, falls sie noch geöffnet ist.
    2) Dann das VBA-Statement Name "C:\Pfad\Kunden Angaben.xlsx" As "C:\Pfad\CA123456_Kunden Angaben.xlsx" ausführen, um sie umzubenennen.
    3) Die Datei mit neuem Namen eventuell wieder öffnen, falls nötig.

    Anmerkung: Obiges Makro kann man vereinfachen zu:
    Code:
    Sub Kopieren_einfach()
       Dim WsZiel As Worksheet
     
       On Error GoTo Fehler1
       '1. Anlagedaten
       Set WsZiel = Workbooks("Mappe1.xlsm").Worksheets("Kunden Angaben")
       With Workbooks("Kunden Angaben").Worksheets("Kunden Angaben")
          .Range("Q5").Copy WsZiel.Range("Q5")
          .Range("Q7").Copy WsZiel.Range("Q7")
          .Range("Q9").Copy WsZiel.Range("Q9")
       End With
      
       UserForm2.Show
      
       Exit Sub
      
    Fehler1:
       Fehler1.Show
       Debug.Print Err.Description, Err.Number, Err.Source
    
    End Sub
    
     
    Exl121150, 14. Oktober 2021
    #2
  3. VOnCom Neuer User
    Hi Danke.
    Ja das ist klar ich habe von verschiedenen Projekten die Kunden angaben und möchte jetzt die Projekt Nummer vorne hin schreiben. Dies ist nicht das Problem.
    Aber wenn ich die Datei mit dem neuen Name wider öffne (CA123456_Kunden Angaben.xls) dann funktioniert dies nicht mehr (ist ja auch klar da der Code nach Kunden Angabe sucht und nicht nach z.B. CA123456_Kunden Angaben).

    Ich möchte auch nicht den Code jedes mal für einen Kunden umschreiben.

    ich suche nach einer Möglichkeit wie z.B. ????????_Kunden Angaben.xls (?= Variable zahlen und/oder Buchstaben)

    wie kann ich dies umsetzen.
    Die vorneweg gegebene Nummer besteht immer aus ersten zwei Buchstaben und danach sechs Zahlen.

    Kannst du mir da auch weiter helfen?

    Gruss
    Pascal
     
  4. Exl121150 Erfahrener User

    Daten Kopieren aus einer zweiten Datei

    Hallo,

    dann statt einer Stringkonstanten "CA123456_Kunden Angaben.xls" einzelne Teile in Stringvariablen speichern und diese dann mit "&" verketten, zB.:
    Dim strPrefix As String, strProjNr As String, strDateiKunde As String
    strPrefix = "CA": strProjNr = "123456"
    Daraus wird dann durch
    strPrefix & strProjNr & "_Kunden Angaben.xls"
    ein Ausdruck, der den Stringwert "CA123456_Kunden Angaben.xls" enthält. Er kann einer weiteren Variablen zugewiesen werden, zB.:
    strDateiKunde = strPrefix & strProjNr & "_Kunden Angaben.xls"
    und die Stringvariable strDateiKunde kann dann anstelle der Stringkonstante eingesetzt werden.

    Die Namen und die Typen der Stringvariablen sollten vorher in einer DIM/PUBLIC/PRIVATE-Deklaration festgelegt werden !!!

    Siehe dazu eine Einführungsserie in die VBA-Programmierung:
    (1708) Better VBA - YouTube
     
    Exl121150, 14. Oktober 2021
    #4
  5. VOnCom Neuer User
    Danke für die angaben.
    Kannst du mir ein Beispiel machen?
    mit dem code?
    Danke Gruss
    Pascal
     
  6. Exl121150 Erfahrener User
    Hallo,

    das übersteigt leider meine (Er)kenntnis. Ich weiß nämlich immer noch nicht, für was ich VBA-Code schreiben soll. Für den irgendwie vermuteten Zweck habe ich Code-Vorschläge abgegeben. Vielleicht weiß jemand andere(r), was da an VBA-Code erwartet wird.
     
    Exl121150, 15. Oktober 2021
    #6
Thema:

Daten Kopieren aus einer zweiten Datei

Die Seite wird geladen...
  1. Daten Kopieren aus einer zweiten Datei - Similar Threads - Daten Kopieren zweiten

  2. Daten kopieren und in nächste frei Zelle einfügen

    in Microsoft Excel Hilfe
    Daten kopieren und in nächste frei Zelle einfügen: Hallo liebe User, ich bin schon seit einiger Zeit auf der Suche nach der richtigen Lösung. Ich hoffe das ihr mir weiterhelfen könnt. Ich habe ein Tabellenblatt mit dem Namen „Daten1“ Und ein...
  3. Aktuelles Datum suchen und Daten kopieren

    in Microsoft Excel Hilfe
    Aktuelles Datum suchen und Daten kopieren: Hallo, ich habe ein wenig gestöbert, aber bekomme meine Lösung selber nicht zusammen gebastelt. Ich habe 2 Tabellenblätter "Rechnung" und "Übersicht" In dem Tabellenblatt "Übersicht" steht in...
  4. Kopieren von Daten aus Excel

    in Microsoft Excel Tutorials
    Kopieren von Daten aus Excel: https://eus-streaming-video-rt-microsoft-com.akamaized.net/d55258d1-67a0-4f74-afc8-d48b4291f9fa/4ed9958b-3b97-43be-b672-6a2089b7_1280x720_834.mp4 Probieren Sie es aus! Nutzen Sie die...
  5. Ich kann auf einem Blatt keine Daten kopieren und einfügen

    in Microsoft Excel Tutorials
    Ich kann auf einem Blatt keine Daten kopieren und einfügen: Ich kann auf einem Blatt keine Daten kopieren und einfügen Excel für Microsoft 365 für Mac Excel 2019 für Mac Excel 2016 für Mac Excel für Mac 2011 Mehr......
  6. Sheet ansprechen und Daten kopieren

    in Microsoft Excel Hilfe
    Sheet ansprechen und Daten kopieren: Hallo zusammen, Ich möchte gerne in einer ListBox Daten aus einem Tabellenblatt (Spalte A, Zeile 2.....x) darstellen. Bisher habe ich RowSource verwendet: ListBox_Name.RowSource = "Namen!a2:all...
  7. Daten aus Mastersheet in neues Blatt aus Vorlagesheet kopieren

    in Microsoft Excel Hilfe
    Daten aus Mastersheet in neues Blatt aus Vorlagesheet kopieren: Hallo und Guten Morgen, möchte sämtliche (gelb markiert) Daten aus einem ''Mastersheet''-Blatt in mehreren neuen Datenblätter kopieren (pro Zeile neues Datenblatt), welche jedoch in einem...
  8. VBA Daten aus zwei Tabellen in eine dritte kopieren

    in Microsoft Access Hilfe
    VBA Daten aus zwei Tabellen in eine dritte kopieren: Hallo zusammen, ich möchte die ID aus meinem HF und die ID aus meinem UFO in eine dritte Tabelle kopieren. HF: tblSTD_Lag SubSTDAufID SubSTD_ID_f und tblfertSTD fertSTDID tblfertSTD und...
  1. Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
    Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
    Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.
    Information ausblenden