If Abfrage
26.01.2016 10:32:53
Flo
Ich benötige Hilfe bei der Richtigstellung eines Codes.
Ich möchte gern eine dreistufige IF abfrage im Visual Basic realisieren.
Dazu sollen 3 Spalten geprüft werden, und wenn alle Argumente stimmen soll die Zeile gelöscht werden.
Sub Filter()
Dim mySheets, oSH As Object
Set mySheets = Sheets(Array("Gestellbau", "Schweißerei"))
For Each oSH In mySheets
Dim varPlan() As Variant, varKW As Variant, varValues As Variant
Dim varRet As Variant
Dim lngR As Long, lngLastRow As Long, lngLastCol As Long
With oSH
lngLastRow = Application.Max(1, .Cells(.Rows.Count, 1).End(xlUp).Row)
lngLastCol = Application.Max(1, .Cells(1, .Columns.Count).End(xlToLeft).Column)
For Z = 2 To lngLastRow
If Cells(Z, 3) = "" Then
If Cells(Z, 4) = "" Then
If Cells(Z, 9) ZWFA Then cell.EntireRow.Delete
End If
End If
Next Z
End With
Next oSH
End Sub
Zeilen und Spalten werden richtig ermittelt. Funktioniert das auf diese weise überhaupt?
erbitte schnelle Hilfe.
Vielen Danke im voraus,
Mit freundlichen Grüßen
Flo