Code anpassen - Zeilen ausblenden
10.01.2005 09:50:05
Sascha
nutze folgenden Code um eine Auswertung/Druck zu machen.
Nun würde ich gerne das vor dem Sortieren noch die Zeilen ausgeblendet werden, bei denen in der Spalte H die Begriffe "Fonds" und "Bausparen" vorkommen.
Wäre super, wenn mir jemand helfen könnte, Danke vorab
Private Sub CommandButton1_Click()
Dim qWks As Worksheet, tarWks As Worksheet
Set qWks = Sheets("AES_Dat")
Set tarWks = Sheets("Liste_LV_offen")
qWks.Columns("B:I").Copy
With tarWks
.Select
.Range("A1").PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
.Range("A1").Select
With Selection
.AutoFilter
.AutoFilter Field:=7, Criteria1:="="
.AutoFilter Field:=1, Criteria1:="kauz"
End With
.Columns("A:H").Sort Key1:=.Range("C1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
.PrintOut Copies:=1, Collate:=True
.AutoFilterMode = False
.Cells.ClearContents
End With
Sheets("Druck").Select
End Sub
Gruß Sascha