Liebe VB-Paradise User,
ich stehe mal wieder vor einer Frage für die mir mittlerweile keine Lösung einfällt
In Spalte "D" habe ich eine Liste von Datumswerten. Diese Liste lese ich in ein Array ein und vergleiche im nächsten Schritt, ob das Datum aus dem Array größer ist als der "Datumswert -7 Tage". An sich funktioniert dies wunderbar.
Nun möchte ich aber, dass mir dann, wenn ein solcher Fall gefunden wird mir die Zeilennummer ausgegeben wird, in dem dieser Fall eintritt. Im Anschluss möchte ich nämlich hieraus eine weitere Variable aus anderen Zellen, die in dieser Zeile sind basteln.
Ich hoffe, Ihr habt eine Idee und schon mal vielen Dank für Eure Mühen.
Schöne Grüße
Jörg
Hier ein Testversuch:
Sub neuer_test()
Dim Date_Changed As Variant
Dim Datum_Vorwoche As Variant
Dim AnzZeilen As Variant
Datum_Vorwoche = Format(Now - 30, "yyyy-mm-dd")
Set zeilen = Sheets("Tabelle1")
AnzZeilen = zeilen.UsedRange.SpecialCells(xlCellTypeLastCell).Row
Date_Changed = zeilen.Range("d3:d" & AnzZeilen).Value
For i = 1 To AnzZeilen
If Date_Changed(i, 1) > Datum_Vorwoche Then
MsgBox Date_Changed(i, 1) & " / " & Datum
'MsgBox Date_Changed(i, 1).Address 'klappt nicht
ElseIf Date_Changed(i, 1) = "" Then
End If
Next i
End Sub
ich stehe mal wieder vor einer Frage für die mir mittlerweile keine Lösung einfällt
In Spalte "D" habe ich eine Liste von Datumswerten. Diese Liste lese ich in ein Array ein und vergleiche im nächsten Schritt, ob das Datum aus dem Array größer ist als der "Datumswert -7 Tage". An sich funktioniert dies wunderbar.
Nun möchte ich aber, dass mir dann, wenn ein solcher Fall gefunden wird mir die Zeilennummer ausgegeben wird, in dem dieser Fall eintritt. Im Anschluss möchte ich nämlich hieraus eine weitere Variable aus anderen Zellen, die in dieser Zeile sind basteln.
Ich hoffe, Ihr habt eine Idee und schon mal vielen Dank für Eure Mühen.
Schöne Grüße
Jörg
Hier ein Testversuch:
Sub neuer_test()
Dim Date_Changed As Variant
Dim Datum_Vorwoche As Variant
Dim AnzZeilen As Variant
Datum_Vorwoche = Format(Now - 30, "yyyy-mm-dd")
Set zeilen = Sheets("Tabelle1")
AnzZeilen = zeilen.UsedRange.SpecialCells(xlCellTypeLastCell).Row
Date_Changed = zeilen.Range("d3:d" & AnzZeilen).Value
For i = 1 To AnzZeilen
If Date_Changed(i, 1) > Datum_Vorwoche Then
MsgBox Date_Changed(i, 1) & " / " & Datum
'MsgBox Date_Changed(i, 1).Address 'klappt nicht
ElseIf Date_Changed(i, 1) = "" Then
End If
Next i
End Sub