Zeilen ohne Inhalte kopieren und löschen
08.10.2020 15:56:08
Martina
ich weiß das es etwas "unschön" ist sich einen Code aus einem Forum zu benutzen und diesen für seine Zwecke anzupassen. Da ich aber sehr neu in der VBA Welt bin und da Ideen habe, wusste ich mir nicht aders zu helfen und benötigte bitte Hilfe.
Ich habe eine Excel-Liste in welcher ab Zeile 8 in jeder 2 Zeile von B - Q Namen teils über Dropdown eingetragen werden. Nach jeder Zeile sind die Makros um die darüberliegende Zeile zu speichern.
Nun können Zeilen welche ich nicht mehr benötige einzeln per Makro in eine Datenbank kopier werden, und diese Zeile wird dann geleert. (Formeln, Rahmen, Bedingte Formatierungen und Farben bleiben an Ort und stelle)
Nun sollten die unteren Zeilen automatisch nach oben rutschen, sodass ich keine leeren Zeilen mehr habe (sollte eine zwischen drin die Datenbank gewandert sein) und immer nach untenscrollen muss. Ich kommen hier mit Cut.Destination nicht ganz zurecht, da mir dieses ja die komplette Zeile ausschneidet.
Sub Schaltfl?che1_Klicken()
Dim WsZiel As Worksheet
Dim wsQuelle As Worksheet
Dim i As Long
Dim j As Long
Set wsQuelle = ThisWorkbook.Worksheets("Tabelle1")
Set WsZiel = wsQuelle.Parent.Worksheets("Tabelle1")
With wsQuelle
i = 6
Do While i Ich was das ich Quelle und Ziel entfernen könnt aber vielleicht wird dann alles noch umgebaut.
Vielen Lieben Dank .