AW: letzte beschriebene zelle
WernerB.
Hallo Flo,
wie gefällt Dir das?
Sub Flo()
Dim Adr As String
On Error Resume Next
Adr = Cells(Cells.Find("*", Range("A1"), xlFormulas, , xlByRows, xlPrevious).Row, _
Cells.Find("*", Range("A1"), xlFormulas, , xlByColumns, xlPrevious).Column).Address(False,False)
On Error GoTo 0
If Adr <> "" Then
MsgBox "Die gesuchte Zelladresse ist: " & Adr, vbInformation, _
"Dezenter Hinweis für " & Application.UserName & ":"
Else
MsgBox "Das Blatt ist leer !", vbExclamation, _
"Dezenter Hinweis für " & Application.UserName & ":"
End If
End Sub
Viel Erfolg wünscht
WernerB.
P.S.: Dieses Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter !