If Then Else
10.03.2005 11:50:20
Florian
ich habe ein sicherlich ganz simples Problem. Ich möchte mit meinem Makro die Spalte A durchsuchen. Hierbei soll das Makro alle Zeilen, die in der Spalte A ein bestimmtes Kriterium enthalten übergehen und nur die Zeilen in ein anderes Blatt übernehmen, die das Kriterium nicht erfüllen. Jetzt mein Problem: Ich habe nicht eines, sondern 38 Kriterien. Wie kann ich dies ohne 38 If/ElseIf Anweisungen realisieren. Mein Ansatz:
Private Sub CommandButton2_Click()
For n = 5 To 1500
If Sheets("Input").Columns("A").Rows(n).Text Is Not ? Then
Sheets("Input").Rows(n).Copy
Sheets("Rest").Activate
ActiveSheet.Range("A1500").End(xlUp).Offset(1, 0).Activate
ActiveCell.PasteSpecial (xlPasteAllExceptBorders)
Sheets("Input").Activate
End If
Next n
End Sub
Bei den Fragezeichen muss dann wohl die Anweisung stehen, die mir noch nicht bekannt ist...Kann mir jemand helfen?
Vielen Dank für Eure Antworten im Voraus!!!
Gruß, Florian