Letzte benutzte Zeile oder Zelle feststellen

Letzte benutzte Zelle oder Zeile feststellen via Cells.SpecialCells(xlCellTypeLastCell).Row, Excel.XlFindLookIn.xlValues
Const LastCell& = 65536 'max. Anzahl von Zeilen im Excel-Sheet
Sub Anpassen()
Dim wert$
'Letzte benutzte ZEILE feststellen
wert = Cells.SpecialCells(xlCellTypeLastCell).Row
'Letzte benutzte ZELLE in 3. Spalte feststellen (mit Function)
wert = GetEmptyLine(ActiveSheet, 3)
'Nicht benötigte Zeilen löschen...
If wert > 0 Then Rows(wert).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Delete Shift:=xlUp
End Sub
Function GetEmptyLine(ByRef objWorkSheet As Excel.Worksheet, _
ByVal lngColumn As Long) As Long
Dim xlRange As Excel.Range, xlEmpty As Excel.Range
Spalte selektieren - aber erst ab Zelle C12 (...oder komplette Spalte...)
Set xlRange = objWorkSheet.Range("C12:C" & LastCell) ' .Columns(lngColumn)
'Nächste leere Zelle suchen
Set xlEmpty = xlRange.Find(vbNullString, , _
Excel.XlFindLookIn.xlValues, , Excel.XlSearchOrder.xlByColumns)
'Wurde eine Zelle gefunden?
If (xlEmpty Is Nothing) Then
'Nein, 0 zurückgeben
GetEmptyLine = 0
Else
'Ja, Zeilennummer zurückgeben
GetEmptyLine = xlEmpty.Row
End If
Set xlEmpty = Nothing
Set xlRange = Nothing
End Function
Sponsoren und Investoren

Sponsoren und Investoren sind jederzeit herzlich willkommen!
Wenn Sie die Information(en) auf dieser Seite interessant fanden, freuen wir uns über eine kleine Spende. Empfehlen Sie uns bitte auch in Ihren Netzwerken (z. B. Twitter, Facebook oder Google+). Herzlichen Dank!

Nach oben Sitemap
Impressum & Kontakt