Thema Datum  Von Nutzer Rating
Antwort
Rot Bemerkungsspalte mit Artikelnummer verknüpfen
19.07.2021 15:26:56 Laurids
NotSolved
19.07.2021 15:55:17 Gast56873
NotSolved
19.07.2021 21:33:33 Gast7777
NotSolved

Ansicht des Beitrags:
Von:
Laurids
Datum:
19.07.2021 15:26:56
Views:
42
Rating: Antwort:
  Ja
Thema:
Bemerkungsspalte mit Artikelnummer verknüpfen

Hallo zusammen,

 

ich bräuchte eine Lösung für ein Problem, undzwar habe ich 2 Tabellen in verschiedenen Dateien. In der Originaldatei werden die Daten aus der Tabelle kopiert und in meine Zieldatei überschrieben, damit ich dann damit arbeiten kann. Die Daten enthalten Artikelnummern, und verschiedene Daten über den jeweiligen Artikel. In meiner Zieldatei habe ich auch noch eine Bemerkungsspalte, die in meiner Originaldatei nicht gegeben ist. Wenn sich jetzt die Daten jeweils aktualisieren, kann es vorkommen, dass die Bemerkungen verrutschen und nicht mehr zu der jeweligen Artikelnummer passen. Nun ist meine Frage, wie kann ich das Makro so umschreiben, damit die Bemerkungen nach dem Aktualisieren, trotzdem richtg geordnet sind. Das Makro welches ich schon geschrieben habe, kopiert grade nur die Daten in die Zieldatei. 

Dim Datei As String
    
    Datei = ".............xlsx"

    Workbooks.Open Filename:=Datei
    Sheets("Bericht 1").Select       '   Umbennenen mit der Seite von der Herkunfts Datei
    Range("D5:D500").Copy
    Windows("List_aktuell.xlsm").Activate
    Sheets("Daten").Select
    Range("D7").PasteSpecial Paste:=xlPasteValues
    
    Workbooks.Open Filename:=Datei
    Sheets("Bericht 1").Select       '   Umbennenen mit der Seite von der Herkunfts Datei
    Range("F5:I500").Copy
    Windows("List_aktuell.xlsm").Activate
    Sheets("Daten").Select
    Range("E7").PasteSpecial Paste:=xlPasteValues
    
    
    Workbooks.Open Filename:=Datei
    Sheets("Bericht 1").Select       '   Umbennenen mit der Seite von der Herkunfts Datei
    Range("N5:N500").Copy
    Windows("List_aktuell.xlsm").Activate
    Sheets("Daten").Select
    Range("L7").PasteSpecial Paste:=xlPasteValues
    
    
    Workbooks.Open Filename:=Datei
    Sheets("Bericht 1").Select       '   Umbennenen mit der Seite von der Herkunfts Datei
    Range("P5:AY500").Copy
    Windows("List_aktuell.xlsm").Activate
    Sheets("Daten").Select
    Range("N7").PasteSpecial Paste:=xlPasteValues
    
    ActiveSheet.Range("$A$6:$BL$1000").AutoFilter Field:=2, Criteria1:="<>"
    
    
    

 End Sub

 

Meine Überlegung wäre es, die eingetragenen Bemerkungen mit der Artikelnummer vor dem Kopiervorgang zu speichern und nach dem Aktualisieren, entsprechend der Artikelnummer wieder einzufügen. Allerdings weiß ich nicht genau wie ich das schreiben soll sad.

Ich hoffe ihr könnt mir da helfen. Ein Beispielcode würde mir schon reichen, dann könnte ich das auf die Tabellen übertragen.

Vielen Dank im voraus

 

 

 


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

Thema Datum  Von Nutzer Rating
Antwort
Rot Bemerkungsspalte mit Artikelnummer verknüpfen
19.07.2021 15:26:56 Laurids
NotSolved
19.07.2021 15:55:17 Gast56873
NotSolved
19.07.2021 21:33:33 Gast7777
NotSolved