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

860to864: For 1 To letzte beschrieben Zeile

Forumthread: For 1 To letzte beschrieben Zeile

For 1 To letzte beschrieben Zeile
03.04.2007 18:57:00
Christian
Hallo habe ein kleines Problem was ich sicherlich auch im Archiv gefunden hätte wenn ich wüßte nach welchem Schlagwort ich suchen muss.
Habe eine For-Schleife die von 1 bis zur letzten beschriebenen Zeile laufen soll.
Kann mir jemand den Code dafür gegeben.
Danke
Gruß
Christian
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: For 1 To letzte beschrieben Zeile
03.04.2007 19:24:03
fcs
Hallo Christian,
etwa so: 

Sub test()
Dim wks As Worksheet, Zeile As Long
Set wks = ActiveSheet 'oder auch = Worksheets("Tabelle1")
With wks
For Zeile = 1 To .Cells.SpecialCells(xlCellTypeLastCell).Row
'Code
MsgBox "Wert Zeile: " & Zeile & "  | Spalte 2:  " & .Cells(Zeile, 2).Value
Next Zeile
End With
End Sub

Gruß
Farnz
Anzeige
AW: For 1 To letzte beschrieben Zeile
03.04.2007 19:25:00
Armin
Hi Cristian,
Worksheets(1).Cells(Rows.Count, 1).End(xlUp).Row
Gruß Armin
;

Beliebteste Forumthreads (12 Monate)

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