Makro

Forumthread: Makro

Makro

21.01.2004 18:48:52

Martin

Hallo
Wie kann ich mir von A6 bis zu letzte benutzte Zelle in Spalte D im Tabellenblatt mit einem Makro die Inhalt Löschen oder die Zeilen entfernen?
Besten Dank für eure Vorschläge!
Gruß Martin

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Makro

21.01.2004 19:36:12

K.Rola
AW: Makro

21.01.2004 19:37:23

Beni

AW: Makro

21.01.2004 19:36:12

K.Rola

Hallo,
Option Explicit


Sub wech()
Dim lzD As Long
lzD = 65536: If [d65536] = "" Then lzD = [d65536].End(xlUp).Row
''Inhalte löschen
Range(Cells(6, 1), Cells(lzD, 4)).ClearContents
''Zeilen löschen
'Rows("6:" & lzD).Delete
End Sub

Gruß K.Rola

AW: Makro

21.01.2004 19:37:23

Beni

Hallo Martin,
Gruss Beni


Sub löschen()
r = Cells(65536, 4).End(xlUp).Row
Range(Cells(6, 1), Cells(r, 4)) = "" 'Inhalte löschen
Range(Cells(6, 1), Cells(r, 4)).EntireRow.Delete ' Zeilen löschen
End Sub

Forumthread: Makro

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread