Monat aktualisieren unter Bedingung

Hallo liebe Community,
da ich an diesen Problem schon länger sitze und keine Lösung finde, wende ich mich hier an euch.
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 oder per Button geschehen.
Habt ihr Ideen wie ich das realisieren kann?
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%

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

nachfrage

25.11.2020 10:38:14

ralf_b

AW: nachfrage

25.11.2020 10:50:59

Tamara

PowerQuery na dann

25.11.2020 11:58:22

ralf_b

AW: PowerQuery na dann

25.11.2020 12:31:57

Tamara

AW: PowerQuery na dann

25.11.2020 12:39:28

peterk

AW: PowerQuery na dann

25.11.2020 12:54:45

Tamara

AW: PowerQuery na dann

25.11.2020 12:58:53

ralf_b

AW: PowerQuery na dann

01.12.2020 09:25:19

Tamara

AW: PowerQuery na dann

01.12.2020 09:56:34

ralf_b

AW: PowerQuery na dann

01.12.2020 16:28:57

Tamara

AW: PowerQuery na dann

01.12.2020 16:58:41

ralf_b

Formellösung xl365/xlWeb

25.11.2020 15:51:49

lupo1

werden sich bestimmt bald die PQ spezies hier drauf stürzen.
Wenn die Tabelle aktualisiert wird, sind die Spalten von denen wir reden auch importiert?
Wenn die Datei Makrocode enthält muß sie im format xlsm abgespeichert werden.
Somit ändert sich der Dateiname. Das könnte zum Problem werden wenn andere Prozesse darauf zugreifen wollen. Alternativ müsste der Code von außerhalb der Datei darauf zugreifen.
hiermmal ein Makro das in Spalte A und B die Werte sucht. Spalten sind einfach anpassbar.
Es wird ausgeführt wenn das Arbeitsblatt aktiviert wird.
Der code prüft ob es der 1.des Monats im aktuellen Jahr ist.
Dann arbeitet er sich durch die Datumsspalte.
Steht ein Datum drin und liegt das datum im Vormonat, dann wird auf Text ungleich "realisiert" geprüft. In dem Fall wird das Datum auf den aktuellen Monat angepasst.
einfügen mit rechtsklick auf Tabellennamen, code anzeigen. einfügen

Private Sub Worksheet_Activate()
Dim l As Long
Dim spalteDatum  As String
Dim spalteStatus As String
spalteDatum = "A"
spalteStatus = "B"
If Date = DateSerial(Year(Date), Month(Date), 1) Then
For l = 1 To Cells(Rows.Count, spalteDatum).End(xlUp).Row
If IsDate(Cells(1, spalteDatum)) And DateDiff("m", Cells(l, spalteDatum), Date) = 1 Then
If Cells(l, spalteStatus).Value  "realisiert" Then
Cells(l, spalteDatum).Value = DateSerial(Year(Cells(l, spalteDatum)), Month(Date),  _
Day(Cells(l, spalteDatum)))
End If
End If
Next l
End If
End Sub

Private Sub Worksheet_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

Beliebteste Forumthreads (12 Monate)

Monat aktualisieren unter Bedingung

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread