Hey ich stehe gerade vor der Frage Excel zu sagen diese beiden befehle in einen zu packen kennt jemand die lösung wie man bei
If Cells(i, 4).Value = 0 And Not IsEmpty(Cells(i, 4))
für die stelle 4 einen zellbereich also z.b. von spalte 4 bis 10 angeben kann ???
Sub Dezember()
Dim i As Long
For i = Range("D1000").Row To 1 Step -1
If Cells(i, 4).Value = 0 And Not IsEmpty(Cells(i, 4)) Then
Rows(i).Hidden = True
Else
Rows(i).Hidden = False
End If
Next i
End Sub
Sub November()
Dim i As Long
For i = Range("E1000").Row To 1 Step -1
If Cells(i, 5).Value = 0 And Not IsEmpty(Cells(i, 5)) Then
Rows(i).Hidden = True
Else
Rows(i).Hidden = False
End If
Next i
End Sub
Sub Oktober()
Dim i As Long
For i = Range("F1000").Row To 1 Step -1
If Cells(i, 6).Value = 0 And Not IsEmpty(Cells(i, 6)) Then
Rows(i).Hidden = True
Else
Rows(i).Hidden = False
End If
Next i
End Sub
Danke^^