Msgbox soll gefilterte Daten ausgeben

Sub Workbook_Open() Dim Datum As Date Dim Heute As Date Dim Titel As String Datum = Date + 60 Heute = Date Worksheets(1).Activate Range("A6:B6").AutoFilter Field:=2, Criteria1:="=" & CDbl(Heute) If ...... Then MsgBox "..........." End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit 'Sub Workbook_Open() Sub test() Dim Datum As Date Dim Heute As Date Dim Titel As String Dim Ausgabe As String Dim c As Range, aus As Range Dim i As Long Dim w1 As Worksheet Datum = Date + 60 Heute = Date Set w1 = Worksheets(1) w1.Range("A6:B6").AutoFilter Field:=2, Criteria1:="=" & CDbl(Heute) i = w1.Cells(w1.Rows.Count, 1).End(xlUp).Row If i >= 7 Then Set c = w1.Range(w1.Cells(7, 1), w1.Cells(i, 1)).SpecialCells(xlCellTypeVisible) For Each aus In c Ausgabe = Ausgabe & aus.Value & vbLf Next Else Ausgabe = "Kein Datum gefunden" End If MsgBox Ausgabe End Sub

Sub Workbook_Open() Dim Datum As Date Dim Heute As Date Dim Titel As String Dim Rng As String Dim LR As Double Dim Z Datum = Date + 60 Heute = Date With Worksheets(1) .Range("A6:B6").AutoFilter Field:=2, Criteria1:="= " & CDbl(Heute) LR = .Cells(Rows.Count, 2).End(xlUp).Row 'letzte Zeile der Spalte B For Each Z In .Range("B6:B" & LR).SpecialCells(xlCellTypeVisible) Rng = Rng & Z.Text & vbLf Next MsgBox Rng End With End Sub

Sub Workbook_Open() Dim Datum As Date Dim Heute As Date Dim Titel As String Dim Rng As String Dim LR As Double Dim Z Datum = Date + 60 Heute = Date With Worksheets(1) .Range("A6:B6").AutoFilter Field:=2, Criteria1:="= " & CDbl(Heute) LR = .Cells(Rows.Count, 2).End(xlUp).Row 'letzte Zeile der Spalte B If LR = 6 Then MsgBox "nichts gefunden": Exit Sub For Each Z In .Range("B6:B" & LR).SpecialCells(xlCellTypeVisible) Rng = Rng & Z.Text & vbLf Next Rng = Left(Rng, Len(Rng) - 1) ' letzter Zeilenumbruch weg MsgBox Rng End With End Sub

Sub Workbook_Open() Dim Datum As Date Dim Heute As Date Dim Titel As String Dim Ausgabe As String Dim c As Range, aus As Range Dim i As Long Dim w1 As Worksheet Dim SP As Integer 'Spalte für Filter SP = 14 Datum = Date + 60 Heute = Date Set w1 = Worksheets(1) w1.Range("A6:O6").AutoFilter Field:=SP, Criteria1:="=" & CDbl(Heute) i = w1.Cells(w1.Rows.Count, SP).End(xlUp).Row If i >= 7 Then Set c = w1.Range(w1.Cells(7, SP), w1.Cells(i, SP)).SpecialCells(xlCellTypeVisible) Ausgabe = "Folgende Begriffe wurden gefunden..:" & vbLf For Each aus In c Ausgabe = Ausgabe & aus.Value & vbLf Next Else Ausgabe = "Kein Datum gefunden" End If MsgBox Ausgabe End Sub

Hallo Uwe,
danke nochmal. hat alles gut geklappt. Ich habe es jetzt so wie ich es möchte.
Eine ultimativ letzte Frage:).
Wenn ich den unwahrscheinlichen Fall habe, dass ich mal am Anfang nur eine Zeile habe und, Datum ist Kann man das noch irgendwie abfangen ?
Vielen Dank
gruß
Sascha
übrigens: hier mein angepasster code auf meien tabelle

Sub Workbook_Open()
Dim Datum As Date
Dim Heute As Date
Dim Titel As String
Dim Ausgabe As String
Dim c As Range, aus As Range
Dim i As Long
Dim w1 As Worksheet
Dim SP As Integer 'Spalte für Filter
SP = 14
Datum = Date + 60
Heute = Date
Set w1 = Worksheets(1)
w1.Range("A4:O4").AutoFilter Field:=SP, Criteria1:="=" & CDbl(Heute)
i = w1.Cells(w1.Rows.Count, SP).End(xlUp).Row
If i >= 5 Then
Set c = w1.Range(w1.Cells(5, SP), w1.Cells(i, SP)).SpecialCells(xlCellTypeVisible)
Ausgabe = "Folgende Messmittel müssen in den nächsten 8 Wochen kalibriert werden:" & vbLf
For Each aus In c
Ausgabe = Ausgabe & aus.Offset(0, -10).Value & vbLf
Next
Else
Ausgabe = "Es steht keine Kalibrierung in den nächsten 8 Wochen an"
Worksheets(1).ShowAllData
End If
MsgBox Ausgabe
End Sub

Sub Workbook_Open() Dim Datum As Date Dim Heute As Date Dim Titel As String Dim Ausgabe As String Dim c As Range, aus As Range Dim i As Long Dim w1 As Worksheet Dim SP As Integer 'Spalte für Filter SP = 14 Datum = Date + 60 Heute = Date Set w1 = Worksheets(1) w1.Range("A4:O4").AutoFilter Field:=SP, Criteria1:="=" & CDbl(Heute) i = w1.Cells(w1.Rows.Count, SP).End(xlUp).Row If i >= 5 Then Set c = w1.Range(w1.Cells(5, SP), w1.Cells(i, SP)).SpecialCells(xlCellTypeVisible) Ausgabe = "Folgende Messmittel müssen in den nächsten 8 Wochen kalibriert werden:" & vbLf For Each aus In c Ausgabe = Ausgabe & aus.Offset(0, -10).Value & vbLf Next Else Ausgabe = "Es steht keine Kalibrierung in den nächsten 8 Wochen an" Worksheets(1).ShowAllData End If MsgBox Ausgabe End Sub

Beliebteste Forumthreads (12 Monate)

Msgbox soll gefilterte Daten ausgeben

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Msgbox soll gefilterte Daten ausgeben

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread