Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1156to1160
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Bereich löschen

Bereich löschen
Koenig
Guten Tag,
ein weiteres kleines Problem, ich möchte gern einen Bereich per Makro löschen. Und zwar den Bereich zwischen B6 und
1. Solange in Spalte A Werte stehen und
2. Solange in Zeile 1 Werte stehen.
Im Moment habe ich diesen Code
Range(Cells(6, "b"), Cells(16000, "BV")).Delete Shift:=xlUp
aber der benötigt relativ lang.
Ich bin wieder über jede Idee dankbar.
Schönen Tag

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Bereich löschen
11.05.2010 08:46:54
ChrisL
Hi
Vielleicht so?
Sub t()
Dim letzteZeile As Long
letzteZeile = Range("A65536").End(xlUp).Row
Application.Calculation = xlCalculationManual
Range("B1:IV" & letzteZeile).Delete
Application.Calculation = xlCalculationAutomatic
End Sub
cu
Chris
AW: Bereich löschen
11.05.2010 09:39:10
Koenig
Vielen Dank, leider ändert es an der Löschdauer noch nichts, Gibt es noch eine Möglichkeit die Letzte Spalte zu ermittlen die noch Daten enthält und diese dann in den Code einzufügen?
AW: Bereich löschen
11.05.2010 10:01:19
ChrisL
Ob es was bringt ist eine andere Frage, aber dennoch...
Sub t()
Dim letzteZeile As Long, letzteSpalte As Byte
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
With ActiveSheet
letzteZeile = .Range("A65536").End(xlUp).Row
letzteSpalte = .UsedRange.Columns.Count
.Range(.Range("B1"), .Cells(letzteZeile, letzteSpalte)).Delete
End With
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub
cu
Chris
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige