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

Letzte Zeile, Spalte

Letzte Zeile, Spalte
08.12.2005 19:15:47
Iwanowitsch
Guten Abend,
wie ermittle ich die letzte Zeile und Spalte, wenn es Leerzeilen und Leerrspalten gibt?
UND:
Wenn die letzte, oder die letzten Zeilen auch Formeln enthalten und die Zeilen bzw Spalten somit LEER erscheinen, weil es eine WENN-Formel ist, deren Bedingung eben nicht erfüllt ist, also es steht eine Formel drin, aber die Zeile bzw. Spalte ist leer?
Also eigentlich zwei Fragen. Hat bitte jemand den VBA-Code für mich für BEIDE Fälle für Zeile und Spalte?
Herzlichen Dank und einen netten Gruß in die Runde
Iwan

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

Betreff
Datum
Anwender
Anzeige
AW: Letzte Zeile, Spalte
08.12.2005 21:27:39
HansH
Hallo Iwanowitsch,
vielleicht bringt dich das in beiden Fragen weiter:

Sub letzte_freie_Zeile()
Dim intSpalte As Integer, intmerkspalte As Integer, lngZeile As Long
For intSpalte = 1 To 256
If lngZeile < Cells(Rows.Count, intSpalte).End(xlUp).Row + 1 Then
lngZeile = Cells(Rows.Count, intSpalte).End(xlUp).Row + 1
intmerkspalte = intSpalte
End If
Next
MsgBox "Zeile " & CStr(lngZeile) & " in Spalte " & CStr(intmerkspalte)
End Sub

Gruß
Hans
AW: Letzte Zeile, Spalte
08.12.2005 21:35:53
Iwanowitsch
Guten Abend,
das hilft mir SEHR gut weiter.
Herzlichen Dank.
Iwan
Anzeige
AW: freut mich o. T.
08.12.2005 21:43:52
HansH

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige