Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
580to584
580to584
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilenzähler

Forumthread: Zeilenzähler

Zeilenzähler
08.03.2005 11:49:31
Sergej
Hallo lieber Helfer!!!!!!!
ich verwende folgenden Code, um zuleztbenuzte Zelle in der Spalte 6 zu ermitteln!!

Sub Zeilenzeller
Dim gn As Range
Set gn = ThisWorkbook.Sheets("Protokol").Cells(Rows.Count, CInt(6)).End(xlUp)
If IsEmpty(gn) = True Then
MsgBox "Keine Zelle mit Inhalt in Spalte 6  "
Else
ThisWorkbook.Sheets("Dummy").Range("B1") = rng.Row
ThisWorkbook.Sheets("Dummy").Range("B3") = rng.Address(False, False)
End If
End Sub

Dieser Code beginnt in der ersten Zeile in der 6-te Spalte zu zählen.
ich aber brauche, dass erst ab der Zeile Nr.10 gezählt wird !!!
Wie lässt es sich machen?
Ich bedanke mich in Voraus!!!
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Zeilenzähler
08.03.2005 11:59:41
Jens
Hallo Sergej,
nimm doch folgende Routine, die funktioniert in jedem Falle:

Sub Zeilenzaehler
Dim r As Long
r = 10 'Hier Startzeile festlegen
While Not IsEmpty(Cells(r,6).Value)
r = r + 1
Wend
If r = 10 then
MsgBox "Keine Zelle mit Inhalt in Spalte 6"
Else
MsgBox "Erste freie Zeile für Spalte 6 ist " & r
End if
End Sub

Gruß, Jens
Anzeige
AW: Danke Jens
08.03.2005 12:37:31
Sergej
Erstens Vielen Dank für deine Teilnahme!!!!!!!
Deiner Vorschlag funzt super, daran habe ich auch mal gedacht...
Wollte einfach diese Funktion irgendwie erweitern....
Cells(Rows.Count, CInt(6)).End(xlUp)
...einfach aus der Interese jetzt
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige