|
Hallo zusammen,
ich habe eine größere Tabelle in welcher in Spalte E die Spediteure / Postdienstleister stehen.
mein Vorhaben ist nun, das jeder einzelne Spediteur (Spedition1,Spedition2,2MH,dpd usw.) in ein neues Tabellenblatt eingefügt wird.
Sub BedingteKopieZeilen()
Dim Zeile As Long
Dim ZeileMax As Long
Dim n As Long
With Tabelle1
ZeileMax = .UsedRange.Rows.Count
n = 1
For Zeile = 2 To ZeileMax
If .Cells(Zeile, 5).Value = "DPD" Then
.Rows(Zeile).Copy Destination:=Tabelle2.Rows(n)
n = n + 1
End If
Next Zeile
End With
End Sub
aufgrund das die Spediteure fortlaufend erweitert werden,
müsste ich es jeweils erweitern. Besteht die Option das dies automatisch geschieht ?
Ebenfalls springt er mit oben genannten Code immer in eine separate Datei.
Sorry, bin ein blutiger Anfänger und bin mir nichtmals sicher ob man es umsetzen könnte.
über ein wenig Starthilfe würde ich mich freuen :)
|