17.02.2022, 09:58
Hallo Zusammen
Mit folgendem Code lösche ich die Leere Zelle (Nicht Zeile) inkl der 2 Nachbarzellen
Nun zu meinen 2 Problemen
1.Problem
Der Code löscht mir Die Zelle A B und C und verschiebt mir natürlich alle unteren Zellen (unter Zeile 20) nach oben. Kann man irgendwie verhindern, dass die unteren Zellen nicht verschoben werden?
Der Hintergrund ist, dass ich diesen Code auf mehrere Bereiche benötige.
2.Problem
Es kommt eine Fehlermeldung, wenn mal keine Leerzeile gefunden wird. Hat jemand eine Idee, wie ich diesen Fehler abfangen kann?
Wäre toll wenn mir jemand helfen kann.
LG
Michael
Mit folgendem Code lösche ich die Leere Zelle (Nicht Zeile) inkl der 2 Nachbarzellen
Nun zu meinen 2 Problemen
1.Problem
Der Code löscht mir Die Zelle A B und C und verschiebt mir natürlich alle unteren Zellen (unter Zeile 20) nach oben. Kann man irgendwie verhindern, dass die unteren Zellen nicht verschoben werden?
Der Hintergrund ist, dass ich diesen Code auf mehrere Bereiche benötige.
2.Problem
Es kommt eine Fehlermeldung, wenn mal keine Leerzeile gefunden wird. Hat jemand eine Idee, wie ich diesen Fehler abfangen kann?
PHP-Code:
Sub loeschen_mehrere_Spalten() 'Suchmatrix Spalte A
Dim r1, r2, r3 As Range
Set r1 = Range("A1:A20").Cells.SpecialCells(xlCellTypeBlanks)
Set r2 = r1.Offset(0, 1)
Set r3 = r1.Offset(0, 2)
Union(r1, r2, r3).Select
Selection.Delete Shift:=xlUp
End Sub
Wäre toll wenn mir jemand helfen kann.
LG
Michael