Hallo zusammen,
ich habe eine Tabelle Namens "Angebot". In der Zeile D8 bis I8 sind die Überschriften, wie Anzahl Artikelname usw.
Von D9 bis D29 kann meine Artikel Anzahl und Namen auswählen bzw. eingeben.
Das heist, ich kann maximal 20 Artikel eingeben. Wenn ich 2 Artikel auswähle werden auch die Restlichen leerzeilen gelöscht.
Dies wird auch durch diese Code realisiert:
Sheets("Angebot").Activate

Dim i As Long, laR As Long
Application.ScreenUpdating = False
laR = Cells(Rows.Count, 4).End(xlUp).Row
For i = laR To 4 Step -1
If Cells(i, 4).Value = "" Then
Cells(i, 1).EntireRow.Delete
End If
Next i
Problem ist dabei, wie kann ich die Maske wiederherstellen?
Ziel 1: Inhalt von D9 bis D29 soll gelöscht werden, wenn Eintrag vorhanden
Zeil 2: Gelöschten Zeile sollen wiederhergestellt werden also D9 bis D29
Eine Beispiel Datei füge ich bei.
https://www.herber.de/bbs/user/15358.zip
Danke vorab und Gruß
Yilmaz