die Datei ist angefügt.
https://www.herber.de/bbs/user/124558.xlsx
Die einzelnen Blätter werden aus einer Vorgängerdatei (2018)erzeugt, über VBA.
Was ich nicht hinkriege: Durch die Datumsverschiebung von 2018 auf 2019 sind bestimmte !! doppelte Datensätze drin, die ich löschen möchte.
die doppelten Datensätze werden in 2018 durch folgenden Code erzeugt, den ich mit tatkräftiger Unterstützung des Forums erstellt habe: (Dient hier nur der Info):
Sub SaSo()
For i = 1 To zahl
With Datei2019.Worksheets(i)
ZeileMax = .UsedRange.Rows.Count
For Zeile = ZeileMax To 7 Step -1
If Weekday(.Cells(Zeile, 2), vbMonday) > 5 Then
.Rows(Zeile).Copy
.Rows(Zeile + 1).Insert Shift:=xlDown
End If
Next Zeile
End With
Next i
End Sub
Was ich möchte:bei doppelten Datensätzen von Montag bis Freitag einen ! löschen, und falls ein Samstag oder Sonntag als einfacher Datensatz vorhanden, möchte ich ihn verdoppeln.
Ich hoffe ich habe mich nicht zu kompliziert ausgedrückt. DANKE!! Georg