Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
660to664
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
660to664
660to664
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Makro erweitern

Makro erweitern
02.09.2005 10:59:14
Achim
Hallo Excel Freunde
Mein Makro sucht nach der ersten leeren Zelle. Macht es auch!!
Wer kann erweitern?
Wenn leere Zelle gefunden ab da dann lösche alle inhalte rechts bis Spalte ZZ
und alles darunter.

Sub ersteleerezellesuchen()
Sheets("Test").Select
Dim S As String
Dim i As Long
With ActiveSheet
i = 0
Do
i = i + 1
S = Cells(i, "A")
If Len(S) = 0 Then
Cells(i, "A").Activate
Exit Do
End If
Loop While i < 65535
End With
End Sub

Danke Achim h.

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

Betreff
Datum
Anwender
Anzeige
AW: Makro erweitern
02.09.2005 11:14:04
Nepumuk
Hallo Achim,
ich bin mir nicht ganz sicher, ob ich dich richtig verstanden habe. Teste mal:
Sub ersteleerezellesuchen()
    Sheets("Test").Select
    Range(Cells(Cells(Rows.Count, 1).End(xlUp).Row + 1, 1), _
        Cells(Rows.Count, Columns.Count)).ClearContents
End Sub

Gruß
Nepumuk
Excel & VBA – Beispiele
Anzeige
AW: Makro erweitern
02.09.2005 11:55:24
u_
Hallo,
Spalte ZZ gibbet nich.
Kurz und bündig:

Sub loeschen()
Range(Cells(1, 1).End(xlDown).Offset(1, 0), Range("IV65536")).ClearContents
End Sub

Gruß
Geist ist geil!
AW: Makro erweitern o.T.
05.09.2005 11:44:05
Achim
Danke hat geklappt!!!

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige