Thema Datum  Von Nutzer Rating
Antwort
Rot Dateneingrenzen beim kopieren
10.06.2024 12:48:20 Roland
Solved
10.06.2024 16:07:20 Alwin Weisangler
Solved
12.06.2024 14:18:11 Roland
Solved
11.06.2024 08:54:36 Alwin Weisangler
Solved

Ansicht des Beitrags:
Von:
Roland
Datum:
10.06.2024 12:48:20
Views:
338
Rating: Antwort:
 Nein
Thema:
Dateneingrenzen beim kopieren

Hallo,

Habe leider von Kollegen eine Mako übernommen, und habe jetzt gesehen das die Datei fast 43MB hat was aber nur daran liegt,

das das Makro fehlerhaft konzipiert ist. Es kopiert leider alle Spalten bis EXCEL Ende es sollten aber natürlich nur jene Daten kopiert werden die vorhanden sind, eine Referenzspalte müsste ich noch definieren (Annahme Spalte 1)

Wie müsste man den Code anpassen das nur Zeilen mit Dateninhalt kopiert werden.

Sub _atkuell_erstellenNEU()
Dim old As Object, Ziel As Object
Dim Spalten, Spalte, Zielspalte As Long
  
  Spalten = Array("I:I", "AG:AG", "O:O", "B:B", "H:H", "S:S", "AH:AH", "Z:Z")
  Set old = ThisWorkbook.Sheets("IX")
  Set Ziel = ThisWorkbook.Sheets("Akutell")
  Application.ScreenUpdating = False
  Zielspalte = 1
  With Ziel
    For Each Spalte In Spalten
      old.Range(Spalte).Copy
      .Cells(1, Zielspalte).PasteSpecial xlPasteColumnWidths
      .Cells(1, Zielspalte).PasteSpecial xlPasteFormats
      .Cells(1, Zielspalte).PasteSpecial Paste:=xlPasteAllMergingConditionalFormats
      .Cells(1, Zielspalte).PasteSpecial xlPasteValues
  
    Zielspalte = Zielspalte + Range(Spalte).Columns.Count
    Next Spalte
    Application.CutCopyMode = False

Danke Roland


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 Dateneingrenzen beim kopieren
10.06.2024 12:48:20 Roland
Solved
10.06.2024 16:07:20 Alwin Weisangler
Solved
12.06.2024 14:18:11 Roland
Solved
11.06.2024 08:54:36 Alwin Weisangler
Solved