Hallo ihr Lieben,
vielleicht kann mir jemand von euch helfen, das wär super!
Ich habe eine Tabelle mit verschiedenen Datumswerten in Spalte K. Der programmierte Code soll nun alle Zellen in Spalte K daraufhin überprüfen, ob der Wert kleiner ist als das heutige Datum. Ist das so soll der dazugehörige Wert aus Spalte B in das Array "speicher" übertragen werden. Danach soll die Tabelle so gefiltert werden, dass nur die Zeilen angezeigt werden dessen B-Spaltentext im Array steht.
Hier mein Code:
Private Sub Workbook_Open()
Dim wks As Worksheet
Dim letztezeilek As Long
Dim i As Integer
Dim speicher As String
Set wks = ThisWorkbook.Worksheets("Aktualität bwb.de")
With wks
letztezeilek = Range("K4").End(xlDown).Row
For i = 4 To letztezeilek
If Cells(i, 11).Value < Date Then
speicher = Cells(i, 2).Value
Else
End If
Next i
If speicher <> Leer Then
MsgBox speicher, vbInformationvbokonly, "Es müssen Seiten auf Aktualität geprüft werden!"
Else
End If
End With
End Sub
Es wird leider nur das erste Ergebnis der Schleife in der Messagebox ausgegeben. Es müssten aber mehrere sein.
Die Filter funktion fehlt noch.
Weiß jemand von euch wie die beiden Probleme zu lösen sind?
Vielen Dank!
Gin
|