Suchergebnisse
Suchergebnisse 1-3 von insgesamt 3.
Hier erfahren Sie, wie einfach Sie Ihren Browser aktualisieren können.
-
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…
-
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…