Hallo,
also ich habe nochmal etwas rumgebastelt.
Aktuell habe ich folgende Lösung gefunden: Es würde jetzt auch reichen nur die Spalte A anzufassen. Die Zellen rechts daneben können bleiben wie sie sind.
Also ich muss ein bestimmtes Datum suchen --> Das finde ich.
Dann muss ich 8 Zellen nach unten springen --> Funktioniert
Nun sollen aber diese und 3 weitere Zellen unten drunter auch markiert werden. --> Funkltioniert leider noch nicht.
Diese Selektion soll dann gelöscht werden und alles nach oben geschoben werden --> Funktioniert
Ein weiteres Problem ist, dass das Makro das Ganze in Spalte A und danach noch einmal in Spalte G machen soll.
Sub suchen1()
Dim rngFind As Range
Dim strDate As String
strDate = Worksheets("Codes").Range("H34").Value
If strDate = "" Then Exit Sub
Set rngFind = Cells.Find(DateValue(strDate), LookIn:=xlFormulas)
If Not rngFind Is Nothing Then
rngFind.Activate
Selection.FindNext(After:=ActiveCell).Activate
Else
MsgBox "Das Datum wurde nicht gefunden!"
Exit Sub
End If
Selection.Offset(8, 0).Select
Selection.Delete Shift:=xlUp
End Sub
|