habe hier im Forum eine interessante Funktion gefunden- sehr brauchbar. Hatte Christan mal entworfen.
Damit wir die letzte beschriebene Zelle gefunden. Das Funktioniert sehr gut.
Ist es möglich, diese FunKtion etwas abzuändern?
* Beim finden der letzten Zeile auch dort hin springen.
* In der MSG Box eine weitere Funktion einzubinden- mit: Befehlsschaltfläche Löschen, die dann folgendes löschen wird-
- Löschen der Letzten Zeile plus 10 weitere nach oben ( z.B. wenn bei 50 die letzte war- dann bis 40 löschen, oder bei 477- dann bis 467 löschen.
Function LastCol(wks As Worksheet) As Long
Dim lngFirst As Long, lngLast As Long, lngTmp As Long
With Application
If .CountA(wks.Cells) = 0 Then Exit Function
If .CountA(wks.Columns(wks.Columns.Count)) Then
LastCol = wks.Columns.Count: Exit Function
End If
lngLast = wks.Columns.Count
Do While lngLast > lngFirst + 1
lngTmp = (lngFirst + lngLast) \ 2
If .CountA(wks.Columns(lngTmp).Resize(, lngLast - lngTmp)) Then _
lngFirst = lngTmp Else lngLast = lngTmp
Loop
If .CountA(wks.Columns(lngLast)) Then LastCol = lngLast Else LastCol = lngFirst
End With
End Function
Oder wird das gar nichts?
Eine fertige Funktion wäre mir lieb.
Danke für Eure Hilfe.
MfG Leon