ich habe mir eine Personalplanung gebaut.
Diese soll beim Öffnen der Datei einen Filter setzen und danach nach nicht leeren Zellen in einer bestimmten Spalte suchen.
Der Code tut auch was ich möchte, jedoch wird mir das gefilterte Ergebnis nach dem Öffnen nicht angezeigt.
Ich bin ein wenig verzweifelt
Anbei der Quellcode:
Option Explicit
Private Sub Workbook_Open()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Application.EnableEvents = False
Worksheets("Planung").EnableAutoFilter = True
Call Filtersetzen
Call Heute
Application.EnableEvents = True
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub
____________________________________________________
Public Sub Filtersetzen()
' Filter Makro
Call Zeilenzaehlen
With Worksheets("Planung").Range("$A$8:$NQ$" & lngZeile)
.AutoFilter
.AutoFilter Field:=2, Criteria1:= _
"=Asklepios", Operator:=xlOr, Criteria2:="=DP_HH_TG"
End With
End Sub
_____________________________________________________________________
Public lngZeile As Long
Public Sub Zeilenzaehlen()
lngZeile = 9
Do While Worksheets("Planung").Cells(lngZeile, 1).Value ""
lngZeile = lngZeile + 2
Loop
lngZeile = lngZeile - 1
End Sub
____________________________________________________
Public Sub Fahrzeugzuweisung()
Dim lngEinsatz As Long
lngEinsatz = 9
Do While Worksheets("Planung").Cells(lngEinsatz, 1).Value ""
If Worksheets("Planung").Cells(lngEinsatz, 4).Value "" Then
Worksheets("Planung").Rows(lngEinsatz).Hidden = False
Worksheets("Planung").Rows(lngEinsatz + 1).Hidden = False
End If
lngEinsatz = lngEinsatz + 2
Loop
End Sub
Vielen Dank für eure Hilfe.
Gruß Jan