Export bestimmter Spalten in eine neue Exceldatei

Max · 2024-04-24T11:56:21+00:00

Hallo zusammen, ich habe gestern eine ähnlich Anfrage gestellt. Die Lösung ist leider noch nicht zufriedenstellend. Ich habe eine schnelle Exceldatei gemacht um mein Problem zu erklären. Diese habe ich hier hochgeladen: https://www.herber.de/bbs/user/168982.xlsx Ich benötige aus dem Reiter Export einen neue Exceldatei mit einer begrenzen Anzahl an Spalten die vorgegeben ist. Die Export Datei ist auf SAP zugeschnitten und liefert nur Daten die nötig sind um den Auftrag dort hochzuladen. Ich habe einen Reiter Bsp. gemacht. So soll die Export Datei aussehen. Könnte mir hier bitte jemand mit dem passenden Makro unter die Arme greifen? Onur hat mir bereits geholfen, allerdings benötige ich nur die Artikel in der neuen Datei die auch wirklich bestellt werden, also eine Bestellmenge in Spalte G haben.

Hallo Max

kleine Schönheitsfehler, wenn man die Originaldatei nicht hat. War aber schnell gefunden.
Ändere bitte den Code wie unten, dann klappt es auch in der Originaldatei - Zwei Fehler:
Ich habe nicht damit gerechnet das in der 1. Zeile mal nur ein Sold To Wert xtehen kann!
Dann stimmt meine rsn Berechnung nicht mehr, das habe ich auf Find Methode umgestellt!
2. Fehler _ bei Do Until SoldSpa > LastSpa war das "=" zuviel du hast ja nur eine Spalte!
Wenn man über 20 Jahre VBA programmiert findet man solche Fehler in einer Minute.

mfg Piet

With Worksheets("Expert")

     'Datum + Kunde in Variable laden

     Datum = .Cells.Find(what:="RDD", LookAt:=xlWhole).Cells(2, 1)

     Kunde = .Cells.Find(what:="Purchase Order", LookAt:=xlPart).Cells(2, 1)

     rsn = .Cells.Find(what:="Order Reason", LookAt:=xlWhole).Column

     

     '1. Sold To Spalte und Letzte Sold Spalte ermitteln

     SoldSpa = .Range("A1").End(xlToRight).Column

     LastSpa = .Range("IV1").End(xlToLeft).Column

     'LastZell in Tabelle1 ermitteln (Material Spalte)

     LastZell = .Cells(Rows.Count, 4).End(xlUp).Row

     z = 1   '1.Zeile in Zieltabelle



     'Spalten bis "Sold To" kopieren

     Do Until SoldSpa > LastSpa

Hallo

ich weiss nicht welchen Code onur schreibt, will aber meinen nicht in die Tonne kloppen.
Ich gehe davon aus das die Spalten B bis E immer gleiche Werte behalten sollen. Nur A wird nicht kopiert.
Sonst musst du diese Zeile ändern: -- Ziel.Range("B2:E2").Copy Ziel.Range("A2:E" & LastZell)

mfg Piet

Sub Spalten_verschieben()

Dim Ziel As Worksheet, j, LastZell As Long

Set Ziel = Worksheets("Bsp")

LastZell = Ziel.Cells(Rows.Count, 6).End(xlUp).Row

Ziel.Range("F2:P" & LastZell).Clear



With Worksheets("Expert")

     'LastZell in Tabelle1 ermitteln

     LastZell = .Cells(Rows.Count, 1).End(xlUp).Row

     'Spalte B bis E immer ausfüllen (Werte aus Zeile2)

     Ziel.Range("B2:E2").Copy Ziel.Range("B2:E" & LastZell)

     

     'Spalten nacheinander kopieren!!

     .Range("A2:A" & LastZell).Copy Ziel.Range("K2")  'Material

     .Range("F2:F" & LastZell).Copy Ziel.Range("L2")  'Bestellmenge

     .Range("H2:L" & LastZell).Copy Ziel.Range("F2")  'Sold (fünfer Block)



      'Leezeilen bei Bestellmenge löschen

      For j = LastZell To 2 Step -1

          If Ziel.Cells(j, 12) = Empty Then

             Ziel.Rows(j).Delete shift:=xlUp

          End If

      Next j

End With

End Sub

Export bestimmter Spalten in eine neue Exceldatei

Forumthread: Export bestimmter Spalten in eine neue Exceldatei

22
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Export bestimmter Spalten in eine neue Exceldatei

Forumthread: Export bestimmter Spalten in eine neue Exceldatei

22 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

22
Beiträge zum Forumthread

Beiträge zu diesem Forumthread