| 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 |
|
zurück