Wenn du schon soweit bist, brauchst du eigentlich nur noch eine DoWhile-Schleife mit .FindPrevious hinzufügen um die Nullen auszuschließen. Probier mal.
Dim lngLetzteZeile As Long
Dim lngLetzteSpalte As Long
Dim LastFilledCell As Range
With Sheets("1A Fuchs tobi").Range("L2:AO40")
'letzte Zeile ermitteln
Set LastFilledCell = .Find(What:="*", _
After:=.Cells(1), _
LookIn:=xlValues, _
LookAt:=xlWhole, _
SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious, _
MatchCase:=False)
Do While LastFilledCell.Value = 0
Set LastFilledCell = .FindPrevious(After:=LastFilledCell)
If LastFilledCell.Address = .Cells(1).Address Then Exit Do
Loop
lngLetzteZeile = LastFilledCell.Row
'letzte Spalte ermitteln
Set LastFilledCell = .Find(What:="*", _
After:=.Cells(1), _
LookIn:=xlValues, _
LookAt:=xlWhole, _
SearchOrder:=xlByColumns, _
SearchDirection:=xlPrevious, _
MatchCase:=False)
Do While LastFilledCell.Value = 0
Set LastFilledCell = .FindPrevious(After:=LastFilledCell)
If LastFilledCell.Address = .Cells(1).Address Then Exit Do
Loop
lngLetzteSpalte = LastFilledCell.Column
End With
Gruß Mr. K.
|