Suche Experten für Hilfe

Hallo Gemeinde!
Ich habe mir folgendes vorgestellt:
Ich habe 3 Tabellenblätter vor mir. In jedem Blatt ist in Spalte L eine Zahl von 1-6 eingetragen. Nun wird erst auf Blatt 1 ein Autofilter gesetzt, der nach der Zahl 1 sortiert, alle Zeilen kopiert und in ein neues Tabellenblatt einfügt. Dann wird der Autofilter auf 2 gesetzt, alles kopiert etc. Dann das ganze mit Blatt2 und dann mit Blatt3.
In dem neuen Tabellenblatt sollte alles untereinander eingefügt werden. Wenn alles vorhanden ist, sollen die Spalten B-I gelöscht werden und es kann nach der Spalte B sortiert werden.
Nun stehen in SpalteA Namen und in SpalteB die Zahlen 1-6.
Jetzt sollte in die Zeilen 1-3 ein Header eingefügt werden, der wie folgt aussieht:
(A1)Lieferant1
(B3)Liefercode (C3)ArtNr. Lieferant (D3)ArtNr. Hersteller (F3)Im Korb
Nun stehen in der Spalte B3 die Liefercodes von 1-6 und in den anderen Spalten der entsprechende Rest.
Es sollten nun, sobald sich der Liefercode z.B. von 1 auf 2 ändert, unter die letzte Zeile der 1er zwei Leerzeilen und dann wieder der Header eingefügt werden.
Ist das irgendwie realisierbar?
Falls es gewünscht ist kann ich eine selbst per Hand erstelle Musterlösung zum Verständnis anhängen.
Gruß und schon mal vielen vielen Dank,
Dominik

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi Dominik,
sorry. Hab den Rest der Woche keine Chance an dem Projekt weiterzumachen.
Ja...es waren einige Sachen unklar und daher ist mein Codeaufbau eindeutig zu umständlich. hab gleich Meeting, daher nur auf die Schnelle ein einfacherer Aufbau


Sub Bestellung()
'Dim blatt
Dim i As Integer, x As Integer
Dim Lrow As Integer, Zrow As Integer
Dim zwks As Worksheet
With Application
.DisplayAlerts = False 'Meldungen aus
.EnableEvents = False 'Ereignisprozeduren aus
.ScreenUpdating = False 'Bildschirmflackern aus
End With
For test = 1 To Sheets.Count
If Sheets(test).Name = "Bestelldaten" Then Sheets(test).Delete
Next test
Application.DisplayAlerts = True 'Meldungen ein
Worksheets.Add after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = "Bestelldaten"
'Set zwks = Worksheets("Bestelldaten")
x = 2
For blatt = 1 To 3
Lrow = Sheets(blatt).Cells(Rows.Count, 12).End(xlUp).Row
For i = 2 To Lrow
If Sheets(blatt).Cells(i, 12).Value <= 1 And Sheets(blatt).Cells(i, 12).Value <= 6 Then
Sheets(blatt).Range(Sheets(blatt).Cells(i, 1), Sheets(blatt).Cells(i, 13)).Copy Range(Cells(x, 1), Cells(x, 13))
x = x + 1
End If
Next i
Next blatt
Sheets("Bestelldaten").Columns.AutoFit
'   hier noch per Rekorder das Sortieren einfügen
With Application
.EnableEvents = True 'Ereignisprozeduren ein
.ScreenUpdating = True 'Bildschirmflackern ein
End With
End Sub

Viel Erfolg noch
Gruss Harald

Beliebteste Forumthreads (12 Monate)

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread