Hilfe beim Workbook Open Event

[Butterkeks]

Hallo zusammen, 

nun muss ich doch einmal aktiv nach Hilfe fragen, da mich langes Suchen im Web oder auch das Durchforsten meines Excel Buchs nicht weitergebracht haben. 

Aber vielleicht sehe ich ja auch vor lauter Wald den Baum nicht mehr. 

Folgender Code läuft beim Öffnen der Datei durch: 

Code:

Private Sub Workbook_Open()

Dim ilng        As Long


With Sheets("Dashboard")

    For ilng = 11 To 20
        If .Range("K" & CStr(ilng)).Value = Date - 1 Then Exit For
    Next ilng
    .Range("G" & CStr(ilng)).Value = ""
    .Range("J" & CStr(ilng)).Value = ""
    .Range("K" & CStr(ilng)).Value = ""
    .Range("L" & CStr(ilng)).Value = ""
 
End With

End Sub

In den Spalten H & J befindet sich eine Formel drin, daher wird diese nicht gelöscht. 

Jetzt zu meiner Frage. 

Wie kann ich den oben stehenden Code so abändern, dass er alle Einträge die unter dem gelöschten Bereich Automatisch nach oben verschoben werden, damit es nicht zu Hässlichen Lücken kommt. 

Ich wäre für jede Hilfe sehr Dankbar und freue mich auf eure Antworten. 

Krümmelige Grüße
Butterkeks

[Kuwer]

Hallo,

Code:

    .Range("G" & CStr(ilng)).Delete xlShiftUp
    .Range("J" & CStr(ilng)).Delete xlShiftUp
    .Range("K" & CStr(ilng)).Delete xlShiftUp
    .Range("L" & CStr(ilng)).Delete xlShiftUp

Gruß Uwe

[Butterkeks]

Hallo Kuwer, 

erst einmal vielen Dank für deine schnelle Antwort. 

Der Code macht was er soll, allerdings macht er mir auch die SVERWEIS Formel, die in den Spalten H und J stehen kaputt, indem er den Zellbezug auf G entfernt und durch den #BEZUG ersetzt.

Als Beispiel: 

In H11 steht jetzt drin:

=WENNFEHLER(SVERWEIS(#BEZUG!;Tabelle3!$A$2:$H$49;2;FALSCH);"")

In H12 steht nun:

=WENNFEHLER(SVERWEIS(G11;Tabelle3!$A$2:$H$49;2;FALSCH);"")

Ich habe schon versucht den Zellbezug auf G11 mittels F4 zu fixieren, aber mit dem selben Resultat. 

Ich wäre dir sehr Dankbar, und allen anderen natürlich auch, wenn man mir hier nochmal Helfen kann. 

Krümmelige Grüße
Butterkeks

[Butterkeks]

Hallo nochmal, 

hier hat sich ein Schreibfehler eingeschlichen. 

In den Spalten H & I sind die Formel drin und nicht in H & J wie in den letzten beiden Posts von mir geschrieben. 

Krümmelige Grüße
Butterkeks

[HKindler]

Hi,

test mal folgendes:

Code:

Private Sub Workbook_Open()
Dim ilng        As Long
With Sheets("Dashboard")
    For ilng = 11 To 20
        If .Range("K" & CStr(ilng)).Value = Date - 1 Then Exit For
    Next ilng
    If ilng <= 20 Then
        With Intersect(.Rows(ilng + 1 & ":21"), .Range("G:G"))
            .Copy .Offset(-1)
        End With
        With Intersect(.Rows(ilng + 1 & ":21"), .Range("J:L"))
            .Copy .Offset(-1)
        End With
    End If
End With
End Sub

Da du keine Beispieldatei geliefert hast, kann ich es selbst nicht testen!

[Butterkeks]

Grüße HKindler

ich danke dir vielmals für deine tolle Hilfe. 

Dein Code macht genau das, was ich mir vorgestellt habe. 

Krümmelige Grüße
Butterkeks