Code(s) funktionieren nicht
Harald
anbei 2 Code - Versuche, die ich selbst gekocht habe. Bitte kein Gelächter. Hab schon gemerkt, dass Sie nicht funktionieren. Hängt vermutlich nur an Kleinigkeiten.
Sub falschesDatum()
Dim d As Range
For Each d In Worksheets("Sheet 1").Range("A2:A8")
If Cells(d, 1) <> Right(ActiveWorkbook.Name, 8) Then
Cells(d, 1).EntireRow.ClearContents
End If
Next d
End Sub
Sub falschesDatum2()
For d = 2 To 8
If Cells(d, 1) <> Right(ActiveWorkbook.Name, 8) Then
Cells(d, 1).EntireRow.ClearContents
Next d
End Sub
Der Code soll Folgendes bewirken.
Wenn in Spalte A das Datum (zB. 20040104)nicht mit der Datumsangabe im Dateinamen übereinstimmt (z.B.NIO_FS20040104), die Zeileninhalte der Zeile gelöscht werden.
Übereinstimmende Datumsangaben bleiben.
Nur im Bereich A2 bis A8, da Zellinhalte B9:B12 stehen bleiben müssen.
Habe schon an eine Schleife gedacht, die in A8 startet und auf A2 hochläuft. Dazu fehlt mir allerdings noch der Kenntnisstand.
Gruß
Harald