Re: datenende finden
25.01.2003 19:40:06
Hajo_Zi
Hallo HannesLetzte Zeile der Spalte C (=3)
Zeile als Long Definieren
Cells(Rows.Count, 3).End(xlUp).Row
oder
[C65536].End(xlUp).Row verursacht aber fehler wenn 65536 nicht leer
Hinweis von ManuelaM
If [a65536] = "" Then
letzte = [a65536].End(xlUp).Row
Else
letzte = 65536
End If
Letzte Spalte der Zeile 4
Cells(4, Columns.Count).End(xlToLeft).Column
Fehler falls letzte Spalte belegt wird diese nicht erkannt
[IV4] End(xlToLeft).Column
nach Hinweis von ManuelaM geändert
If [IV4] = "" Then
letzte =[IV4].End(xlToLeft).Column
Else
letzte = 256
End If
Letzte Zelle in eine Tabelle
Sub Test()
Name = ActiveSheet.Cells.SpecialCells(xlLastCell).Address(False, False)
End Sub
Funktion schießt gelegentlich über Ziel hinaus nach löschen von Zeilen, Spalten vorher speichern
benuzter Bereich einer Tabelle
Sub Test()
Name = Sheets("Tabelle1").UsedRange.Address
End Sub
z.B. Name = ($A$1:$F$8)
Funktion schießt gelegentlich über Ziel hinaus nach löschen von Zeilen, Spalten vorher speichern
Letzte Zelladresse
(unabhängig von der Spalte) Zeilennummer ermitteln
Die allerletzte benutzte Zeile, unabhängig von der Spalte liefert:
MsgBox Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Row
Gruß hajo