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

Kann mir jemand sagen was diese Zeile hier heißt?

Kann mir jemand sagen was diese Zeile hier heißt?
27.06.2002 09:08:53
Niko
Sub DeleteB()
Dim i As Long, j As Long, maxzeilen As Long
maxzeilen = Range("A65536").End(xlUp).Row ' <----was bringt diese Zeile vor allem das End ???
i = 1
j = 0
Do While i < maxzeilen
If Cells(i, 2).Value = "" Then ' wenn in der 2. Spalte nichts steht dann
Rows(i).Delete ' löschen !!
j = j + 1
If i + j >= maxzeilen Then Exit Sub
i = i - 1
End If
i = i + 1
Loop
End Sub

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

Betreff
Datum
Anwender
Anzeige
Letzte beschriebene Zelle in Spalte A (n/t)
27.06.2002 09:20:25
@lex
-
Re: Kann mir jemand sagen was diese Zeile hier heißt?
27.06.2002 09:21:13
MikeS
Hallo,

mit Range("A65536").End(xlUp).Row

wird der Variablen "maxzeilen" die letzte beschriebene Zeile
(geprüft wird Spalte A) übergeben.

Ciao MikeS


und xlup bzw xldown ist Leserichtung?
27.06.2002 09:25:01
Niko
DANKE

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige