Beim kopieren von Quelldaten zu Zieldaten werden die Datum mit den beiden Makro
Sub Daten_Ersetzen Sub Datum_ändern
teilweise nicht richtig umgewandelt und ich finde den Fehler nicht. Ich stehe wieder mal auf dem Schlauch und bitte um eure Hilfe. Mit dankbaren Grüssen Martin
du hast eigentlich von mir vor längerer Zeit nötigen Zutaten schon eingebaut bekommen. Es wäre eigentlich nur eine neue Prozedur nötig, wo der umgekerhrte Weg gegangen werden muss, die Spalten zugeordnet werden müssen und i als Schleife die Spalte abklappert bis zum letzten Eintrag. Für den Monat Dez/Nov also so:
Code:
Sub Datum4() Dim i As Long For i = 7 To Tabelle1.Cells(Rows.Count, 30).End(xlUp).Row + 10 ' +10 oder höher -> da nicht sicher ob Geburtsdaten in Spalte vollständig If Mid(Range("AD" & i), 4, 3) = "DEZ" Then Range("AD" & i) = Left(Range("AD" & i), 3) & "12" & Right(Range("AD" & i), 5) End If If Mid(Range("AF" & i), 4, 3) = "DEZ" Then Range("AF" & i) = Left(Range("AF" & i), 3) & "12" & Right(Range("AF" & i), 5) End If If Mid(Range("AD" & i), 4, 3) = "NOV" Then Range("AD" & i) = Left(Range("AD" & i), 3) & "11" & Right(Range("AD" & i), 5) End If If Mid(Range("AF" & i), 4, 3) = "NOV" Then Range("AF" & i) = Left(Range("AF" & i), 3) & "11" & Right(Range("AF" & i), 5) End If Next i End Sub
Die fehlenden Monate schaffst du sicherlich selbst.
Guten Abend Uwe danke für deine Hilfe. Habe mal "Datum4" angepasst und angehängt. Aber es macht den anschein, dass du mir zuviel zugetraut hast. Wenn ich "Quelldaten zu Zieldaten" aktiviere, muss ich zusätzlich noch "Datum4" starten, dann funktioniert alles bestens. Irgendwie fehlt der zusätzliche Startbefehl für "Datum4" Ich sehe vor lauter Wald die Bäume nicht mehr, darum bitte ich noch einmal um Hilfe. Ein schöner Abend wünscht Martin
Datum wird nicht richtig umgewandelt
für deine Hilfe, es funktioniert 
.