Suchergebnisse

Suchergebnisse 1-3 von insgesamt 3.

  • Benutzer-Avatarbild

    Zitat von Marco123: „Aus mit bisher unbekannten Gründen werden einige Daten jedoch doppelt übernommen.“Ich tippe darauf, dass die Daten in mehreren Excel-Dateien redundant gespeichert sind.

  • Benutzer-Avatarbild

    Dann hilft nur schreitweise durch die Schleife gehen und schauen, wann die Dopplungen auftauchen. Das nennt man Debugging und ist die Muttermilch des Programmierers. Auf den ersten Blick fällt mir auf, dass diese Zeile ​WB.Worksheets("Tabelle1").Range("E12:G12" & Sheets("Tabelle1").Cells(Rows.Count, 2).End(xlUp).Row).Copy vermutlich nicht das ist, was du willst. Ich glaube nicht, dass du von E12 bis G1212 kopieren willst. Zitat von Marco123: „Konntest Du den im Code irgendwelche garvierenden Sch…

  • Benutzer-Avatarbild

    Zitat von Marco123: „Was verursacht denn die Auswahl bis G1212“ Zitat von Marco123: „Range("E12:G12" & Sheets("Tabelle1").Cells(Rows.Count, 2).End(xlUp).Row)“Hier hängst du an den String "E12:G12"noch die letzte gefüllte Row der Tabelle an. Der zweite Teil muss raus. WB.Worksheets("Tabelle1").Range("E12:G12").Copy Konstruktive Kritik: Zitat von Marco123: „With Application .ScreenUpdating = False .Calculation = xlCalculationManual .EnableEvents = False End With“Wenn während dem Ablauf der Sub ein…