Guten Abend. Habe mal wieder ein kleines Problem mit einem Kopiervorgang und möchte den Code von mir, mittels Forum kopiert und abgeändert, gleich anhängen.
Ich möchte Zeilen kopieren wenn eine gewisse Bedingung erfüllt ist. Zur Erklärung:
In den Spalten "F" und "G" befindet sich unterschiedlicher Text den ich mit "*" bezeichnen will, also alles anzeigen wo Text vorhanden.
In der Spalte "H" soll ein Wert (Zahl) <=100 als Suchkriterium gelten. Es soll jeder Wert mit entsprechendem Inhalt in der Tabelle erscheinen. So etwas wie und/oder Funktion.
Ich bitte möglichst um Unterstützung. Danke und Gruß Josef
Ich möchte Zeilen kopieren wenn eine gewisse Bedingung erfüllt ist. Zur Erklärung:
In den Spalten "F" und "G" befindet sich unterschiedlicher Text den ich mit "*" bezeichnen will, also alles anzeigen wo Text vorhanden.
In der Spalte "H" soll ein Wert (Zahl) <=100 als Suchkriterium gelten. Es soll jeder Wert mit entsprechendem Inhalt in der Tabelle erscheinen. So etwas wie und/oder Funktion.
Ich bitte möglichst um Unterstützung. Danke und Gruß Josef
Code:
Sub test()
Dim a As Long, i As Long
Application.ScreenUpdating = False
a = 2
For i = 1 To 10000
With Worksheets("Tabelle1")
If .Cells(i, "F") = "Neue Verordnung" Or .Cells(i, "G") = "Keine SEPA" _
Or .Cells(i, "H") = "<=100" Then
.Rows(i).Copy _
Destination:=Worksheets("Tabelle2").Rows(a)
a = a + 1
End If
End With
Next i
Application.ScreenUpdating = True
End Sub