Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 10:11:03
Dateiname plus Wenn vorhanden dann "(1)" anhängen.
23.04.2024 09:45:43
mehrere Bedingungen verknüpfen und mehr
23.04.2024 08:59:38
Bedingte Formatierung
23.04.2024 08:56:21
Mehrzeilige Zellen in einzelne Zeilen aufteilen & auswer
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
860to864
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
860to864
860to864
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

860to864: 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

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
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
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige