Export Funktion

Forumthread: Export Funktion

Export Funktion

04.04.2025 09:45:10

Max

Guten Morgen zusammen, ich habe ein kleines Problem. Ich habe hier bei Euch Hilfe bekommen mit einem Bestellformular. Ich wollte eine Export Funktion die nur Artikel die bestellt werden von einem Kunden in einen neuen Reiter exportiert und dieser dann an den Innendienst gesendet wird zum buchen.

Jetzt ist es so, dass ich das Bestellformular als Tabelle formatieren will, da ich Datenschnitte nutzen möchte. Die Export Funktion läuft aber dann nicht mehr einwandfrei.

Kann mir hier bitte jemand weiterhelfen?

Ich habe dazu eine Datei TEST, dort funktioniert es. Die Datei TEST2 wurde als Tabelle formatiert und dann funktioniert es direkt nicht mehr.

TEST https://www.herber.de/bbs/user/176574.xlsb
TEST 2 https://www.herber.de/bbs/user/176575.xlsb

Ich wäre Euch sehr verbunden.

VG

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Export Funktion

04.04.2025 11:14:49

UweD
AW: Export Funktion

04.04.2025 11:22:32

Max
AW: Export Funktion

04.04.2025 13:08:51

UweD
AW: Export Funktion

04.04.2025 14:07:30

UweD
Korektur

04.04.2025 15:03:51

UweD

AW: Export Funktion

04.04.2025 11:14:49

UweD

Hallo

Du möchtest hier Hilfe bekommen und lädst eine Datei hoch die Passwort geschützt ist.

AW: Export Funktion

04.04.2025 11:22:32

Max

Danke für die Info.

Passwort ist fcb123

AW: Export Funktion

04.04.2025 13:08:51

UweD

Hallo

Ich hab mir jetzt nur die Datei angesehen, die NICHT klappt.

Du muss genauer auf die Blätter referenzieren. Es ist nämlich sonst abhängig davon, welches Blatt gerade aktiv ist.

Nach der Klammer auch Ziel. eintragen

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

- gelöscht wird sonst ggf. ab Zeile 1 / du schreibst was ab Zeile 3.
- besser so

'Zieltabelle löschen  (A-E nur ab Zeile 3)

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

Das gleiche hier auch

With Worksheets("Expert")

     'LastZell in Tabelle1 ermitteln

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

- Da fehlt der Punkt vor End (muss sich auch auf Expert beziehen)
- Aber: Ergebnis ist aber immer 1, da in Spalte A nichts steht. Meinst du Spalte B / dann nach Count, eine 2

- sonst ist das Problem: dann wird z.B. bei

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

auch nur F2:P1 kopiert
- usw.

AW: Export Funktion

04.04.2025 14:07:30

UweD

Hallo

wenn du direkt die Intell. Tabelle ansprechen möchtest dann so in der Art:





'Makro für Einzelbestellungen



Sub Spalten_verschieben()

    Dim Ziel As Worksheet, j, LastZell As Long, Anz As Long, tbl As ListObject

    Set Ziel = Worksheets("Export")

    'Zieltabelle löschen  (A-E nur ab Zeile 3)

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

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

    Ziel.Range("A3:E" & LastZell).Clear

    

         

    With Worksheets("Expert")

         Set tbl = .ListObjects("Tabelle1")

         'Anzahl in Intell Tabelle1 ermitteln

         Anz = tbl.DataBodyRange.Rows.Count

         

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

         Ziel.Range("B2:E2").Copy Ziel.Range("B2:E" & Anz + 1)

         

         

         'Spalten nacheinander kopieren!!

          tbl.ListColumns(1).DataBodyRange.Copy

          Ziel.Range("K2").PasteSpecial xlPasteValues  'Material

          

          tbl.ListColumns(5).DataBodyRange.Copy

          Ziel.Range("L2").PasteSpecial xlPasteValues  'Material

          

          tbl.ListColumns(7).DataBodyRange.Copy

          Ziel.Range("F2").PasteSpecial xlPasteValues  'Bestellmenge

         

'...

         

         'Leerzeilen bei Bestellmenge löschen

          For j = Anz + 1 To 2 Step -1

              If Ziel.Cells(j, "F") = Empty Then

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

              End If

          Next j

          

          'Lauf-Nr. in Spalte A ausfüllen

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

          Ziel.Range("A2").Value = 1

          Ziel.Range("A2:A" & LastZell).DataSeries Type:=xlLinear, Step:=1

    End With

    

    'Zielsheet aktivieren

    Ziel.Activate

    Range("A1").Select

End Sub

LG UweD

Korektur

04.04.2025 15:03:51

UweD

Die Erklärung ist falsch.
Code war schon richtig

- Da fehlt der Punkt vor End (muss sich auch auf Expert beziehen)

- Da fehlt der Punkt vor Rows (muss sich auch auf Expert beziehen)

Forumthread: Export Funktion

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread