|
Hallo,
ich möchte eine Datei erstellen, die mir überprüft ob es zum Projekt aktuell einen Vertrag gibt und wenn ja, ob dieser noch eine Restlaufzeit hat oder nicht.
Mein Code sieht im moment so aus:
Private Sub VerträgePrüfen()
Dim i As Integer
Dim Datum As Date
Dim x As String
x = ja 'Programm soll nur die Projekte prüfen, bei denen Verträge vorhanden sind
Datum = Date 'heutiges Datum festlegen
i = 2 'Programm soll erst ab Zeile 3 anfangen zu prüfen
Do Until IsEmpty(Cells(1, i)) 'Programm soll solange laufen, bis es am Ende der Tabelle ankommt
i = i + 1
MsgBox (i) 'hab ich nur eingefügt um zu sehen wo genau er abbricht
If Cells(5, i) = x Then
If Cells(7, i) = Date Then MsgBox ("Vertrag erneuern für" & Sheets("Tabelle1").Cells(2, i).Value) 'Wenn das Datum heute ist oder in der Vergangenheit liegt, soll er die MsgBox mit entsprechender Projektnummer ausgeben. Bisher habe ich nur den Befehl, wenn das Datum gleich dem heutigen Datum ist.
End If
Loop
End Sub
Das Programm bricht immer in Zeile 14 ab, obwohl diese gefüllt ist (Tabelle geht bei im Moment bis Zeile 192 (es werden aber über die Zeit noch mehr dazu kommen).
Auch der Abgleich mit dem Datum klappt nicht.
Ich hab nun schon sehr viel bei Google gesucht, konnte aber leider nichts finden, was mir irgendwie hätte weiterhelfen können. Vielleicht gibt es ja hier den ein oder anderen, der mir helfen kann.
LG
Elli
|