Sub TabelleFiltern()" sowie das "EW" gelb markiert. Ich bekomme nicht heraus, was es da von mir _
will :-)
LG Hakan
Sub Alle() ' das hier aufrufen
Call Aus_FARMS_Einfügen
Call Zeilen_weg
Call ZeilenLöschen
End Sub
'----------------------------
Sub Aus_FARMS_Einfügen()
' Aus_FARMS_Einfügen Makro
' Fügt ungefilterete Rohdaten aus FARMS ein und eliminiert die Überschrift
' Tastenkombination: Strg+o
Range("B3").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Rows("3:3").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
ActiveWindow.SmallScroll Down:=12
Range("L25").Select
ActiveWindow.SmallScroll Down:=-48
End Sub
'----------------------------
Sub Zeilen_weg()
Dim TB, RR As Double, i As Double, ZE As Integer, Sp1 As Integer, Sp2 As Integer
Application.ScreenUpdating = False
ZE = 3 'wegen Überschrift
Sp1 = 11
Sp2 = 12
With ActiveWorkbook.Sheets("Vorbereitung")
RR = .Cells.SpecialCells(xlCellTypeLastCell).Row 'Letzte Zeile des gesamten Blattes
For i = RR To ZE Step -1
If .Cells(i, Sp1) "" Or .Cells(i, Sp2) "" Then
.Rows(i).Delete xlUp
End If
Next
End With
End Sub
'----------------------------
Sub ZeilenLöschen()
Dim varDaten As Variant
Dim LRow As Long
Dim i As Integer
'Hier die Werte eingeben, bei denen gelöscht werden soll
varDaten = Array("LSH", "H03", "Y04", "Y08")
With ActiveWorkbook.Sheets("Vorbereitung")
LRow = .Cells(.Rows.Count, 1).End(xlUp).Row
For i = 7 To 8
'Hier Bereich anpassen
.Range("A1:Z" & LRow).AutoFilter Field:=i, _
Criteria1:=varDaten, Operator:=xlFilterValues
.Range("A2:A" & LRow).SpecialCells(xlCellTypeVisible) _
.EntireRow.Delete
.ShowAllData
Next
.AutoFilterMode = False
End With
End Sub
Sub TabelleFiltern()
'Das Tabellenblatt aktivieren
ThisWorkbook.Worksheets("Vorbereitung").Activate
'Filtereinstellungen auf Null setzen
ActiveSheet.Range("B3:J45").AutoFilter
'Filter wählen - Kategorie "EW"
ActiveSheet.Range("B3:J45).Autofilter 3, "EW*"
'Information in ein anderes Tabellenblatt Kopieren
ThisWorkbook.Worksheets("Versand EW").Cells.Clear
'Informationen kopieren
ActiveSheet.Range("B3:J45").Copy
ThisWorkbook.Worksheets("Versand EW").Range("A4").PasteSpecial xlValues
End Sub
Sub TabelleFiltern()
'Das Tabellenblatt aktivieren
ThisWorkbook.Worksheets("Vorbereitung").Activate
'Filtereinstellungen auf Null setzen
ActiveSheet.Range("B3:J45").AutoFilter
'Filter wählen - Kategorie "EW"
ActiveSheet.Range("B3:J45).Autofilter 3, "FR*"
'Information in ein anderes Tabellenblatt Kopieren
ThisWorkbook.Worksheets("Versand EW").Cells.Clear
'Informationen kopieren
ActiveSheet.Range("B3:J45").Copy
ThisWorkbook.Worksheets("Versand FR").Range("A4").PasteSpecial xlValues
End Sub