Monat aktualisieren unter Bedingung
16.12.2020 10:03:12
Tamara
leider konnte ich mein Excel Problem mit folgenden Code nicht lösen. Vielleicht sieht der ein oder andere den Fehler oder kann mir einen anderen funktionierenden Code nennen.
Folgende Situation liegt vor: Es werden nur zwei Spalten einer Tabelle betrachtet. Die eine Spalte enthält Datumsangaben im Format MM.JJJJ und die andere Spalte enthält Statusangaben (von 0%-100%) und auch das Wort "Realisiert".
Nun sollen am Anfang eines jeden Monats (z.B. Anfang Oktober) alle Angaben mit dem vorherigen Monat (z.B. September) abgeändert werden in den aktuellen Monat (z.B. Oktober) unter der Bedingung, dass in der zweiten Spalte nicht "realisiert steht sondern eine Prozentzahl. Dies soll automatisch geschehen.
Anbei noch ein kleines Beispiel wie das aussieht:
Realisierung I Status
Jan 20 I Realisiert
Okt 20 I Realisiert
Dez 20 I 90%
Nov 20 I 100%
Der Code schaut folgendermaßen aus:
Sub Monat_Aktualisieren()
Worksheets("Tabelle1").Activate
Dim i As Long
Dim spalteDatum As String
Dim spalteStatus As String
spalteDatum = "A"
spalteStatus = "B"
If Date = DateSerial(Year(Date), Month(Date), 1) Then
For i = 1 To Cells(Rows.Count, spalteDatum).End(xlUp).Row
If IsDate(Cells(i, spalteDatum)) And DateDiff("m", Cells(i, spalteDatum), Date) = 1 _
_
Then
If Cells(i, spalteStatus).Value "realisiert" Then
Cells(i, spalteDatum).Value = DateSerial(Year(Cells(i, spalteDatum)), Month(Date), _
_
_
_
Day(Cells(i, spalteDatum)))
End If
End If
Next i
End If
End Sub
Der Fehler liegt wahrscheinlich in der fettgedruckten Zeile. Wenn ich es debugge, wird diese Zeile gelb markiert.
Danke für eure Hilfe!