Sortieren/Durchsuchen von Datum in einer Tabellen

Hallo,
ich bin zum ersten Mal in diesem Forum und hoffe, dass mir jemand weiterhelfen kann.Wenn ich in einer Excel-Tabelle eine Abfrage machen will, z.B.Tabelle mit mehreren Spalten, davon eine Datumsspalte mit 10 Zeilen mit verschiedenem Datum. Ich möchte diese mit einer Do-Schleife/For-Schleife durchsuchen und mit dem aktuellen Datum vergleichen. Ist das aktuelle Datum gefunden, so soll diese ganze Zeile markiert (z.B. rot) werden und weitergesucht werden bis zum Tabellenende. Gleichzeitig sollen die markierten Zellen in eine andere Tabelle kopiert werden und dort nacheinander aufgelistet werden!
Wie müsste die Do-Schleife aussehen. Mit den Do und For Schleifen bin ich nämlich nicht so stark vertraut. Leider habe ich kein passendes Bsp. gefunden, an dem ich mich orientieren könnte, so dass ich hoffe, dass jemand mir eine Vorgabe machen kann. ;-) ! Das Kopieren in ein anderes Tabellenblatt schaffe ich, aber wie vermeide ich, dass die Zeile überschrieben wird, statt in eine neue Zeile zu kopieren?
Für Eure Bemühungen bedanke ich mich im Voraus.
Mit freundlichen Grüßen.
Andreas

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub test() Dim i As Long, n As Long Cells.Interior.ColorIndex = xlNone n = 1 For i = 1 To 12 If Cells(i, 1) = Date Then Rows(i).Copy Destination:=Sheets("Tabelle2").Cells(n, 1) Rows(i).Interior.ColorIndex = 3 n = n + 1 End If Next End Sub

Sub test() Dim i As Long, n As Long Cells.Interior.ColorIndex = xlNone n = 1 For i = 1 To 12 Select Case Cells(i, 1).Value Case Is = Date Rows(i).Copy Destination:=Sheets("Tabelle2").Cells(n, 1) Rows(i).Interior.ColorIndex = 3 n = n + 1 Case Is = Date + 1 Rows(i).Copy Destination:=Sheets("Tabelle2").Cells(n, 1) Rows(i).Interior.ColorIndex = 3 n = n + 1 Case Is = Date + 2 Rows(i).Copy Destination:=Sheets("Tabelle2").Cells(n, 1) Rows(i).Interior.ColorIndex = 3 n = n + 1 End Select Next End Sub

Private Sub suche() Dim i As Integer Dim n As Integer Dim x As Integer Cells.Interior.ColorIndex = xlNone n = 1 Do n = n + 1 Loop Until IsEmpty(Sheets("Tabelle1").Cells(n, 1)) anz = n - 1 For i = 1 To anz If Cells(i, 1) = Date Then Do x = x + 1 Loop Until IsEmpty(Sheets("Tabelle2").Cells(x, 1)) Rows(i).Copy Destination:=Sheets("Tabelle2").Cells(x, 1) Rows(i).Interior.Color = vbRed End If Next i End Sub

Private Sub suche() Dim i As Integer Dim n As Integer Dim x As Integer sheets("UG").Cells.Interior.ColorIndex = xlNone n = 1 Do n = n + 1 Loop Until IsEmpty(Sheets("UG").Cells(n, 1)) anz = n - 1 For i = 1 To anz If Cells(i, 1) = Date Then Do x = x + 1 Loop Until IsEmpty(Sheets("dringende Termine").Cells(x, 1)) Rows(i).Copy Destination:=Sheets("dringende Termine").Cells(x, 1) Rows(i).Interior.Color = vbRed End If Next i End Sub

Ich habe versucht das in ein Select Case einzubetten, aber es tut sich nichts. Es wird nicht kopiert oder markiert, deswegen kann ich nicht überprüfen, ob es stimmt. Irgendwo muss ja ein Fehler sein. Kannst du vielleicht mal nach Fehlern durchschauen, wäre super!
MFG Andreas


Private Sub CommandButton2_Click()
Dim i As Integer
Dim n As Integer
Dim x As Integer
Sheets("UG").Cells.Interior.ColorIndex = xlNone
n = 2
Do
n = n + 1
Loop Until IsEmpty(Sheets("UG").Cells(n, 1))
anz = n - 1
For i = 1 To anz
Select Case Cells(i, 1).Value
Case Is = Date
Do
x = x + 1
Loop Until IsEmpty(Sheets("Dringende Termine").Cells(x, 1))
Rows(i).Copy Destination:=Sheets("Dringende Termine").Cells(x, 1)
Rows(i).Interior.Color = vbRed
Case Is = Date + 1
Do
x = x + 1
Loop Until IsEmpty(Sheets("Dringende Termine").Cells(x, 1))
Rows(i).Copy Destination:=Sheets("Dringende Termine").Cells(x, 1)
Rows(i).Interior.Color = vbRed
Case Is = Date + 2
Do
x = x + 1
Loop Until IsEmpty(Sheets("Dringende Termine").Cells(x, 1))
Rows(i).Copy Destination:=Sheets("Dringende Termine").Cells(x, 1)
Rows(i).Interior.Color = vbRed
End Select
Next i
End Sub

Private Sub CommandButton2_Click() Dim i As Integer Dim n As Integer Dim x As Integer Dim anz As Integer Sheets("UG").Cells.Interior.ColorIndex = xlNone n = 1 Do n = n + 1 Loop Until IsEmpty(Sheets("UG").Cells(n, 1)) anz = n - 1 For i = 1 To anz If Cells(i, 1) = Date Or Cells(i, 1) = Date + 1 Or Cells(i, 1) = Date + 2 Then Do x = x + 1 Loop Until IsEmpty(Sheets("dringende Termine").Cells(x, 1)) Rows(i).Copy Destination:=Sheets("dringende Termine").Cells(x, 1) Rows(i).Interior.Color = vbRed End If Next i End Sub

Private Sub CommandButton2_Click() Dim i As Integer Dim n As Integer Dim x As Integer Dim anz As Integer Sheets("UG").Cells.Interior.ColorIndex = xlNone n = 1 Do n = n + 1 Loop Until IsEmpty(Sheets("UG").Cells(n, 5)) anz = n - 1 For i = 1 To anz If Sheets("UG").Cells(i, 5) = Date Or Sheets("UG").Cells(i, 5) = Date + 1 Or Sheets("UG").Cells(i, 5) = Date + 2 Then Do x = x + 1 Loop Until IsEmpty(Sheets("dringende Termine").Cells(x, 5)) Rows(i).Copy Destination:=Sheets("dringende Termine").Cells(x, 5) Rows(i).Interior.Color = 3 End If Next i End Sub

Beliebteste Forumthreads (12 Monate)

Sortieren/Durchsuchen von Datum in einer Tabellen

22
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

309 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Sortieren/Durchsuchen von Datum in einer Tabellen

22 Beiträge zum Forumthread Beiträge zu diesem Forumthread

309 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

22
Beiträge zum Forumthread

Beiträge zu diesem Forumthread