Meldungen mit MsgBox
18.01.2004 17:17:44
Erich M.
habe aus dem Forum eine Übersicht verschiedener Meldungen durch
die MsgBox. Nun hätte ich gerne eine Ergänzung, siehe letzte Meldung:
Sub Meldungen()
MsgBox ("Die aktuelle Zelle ist: ") & Selection.Cells.Address
MsgBox Selection.Cells(1).Address
MsgBox ("Der aktivierte Zellbereich ist: ") & ActiveSheet.UsedRange.Address
MsgBox ("Die letzte Zelle ist: ") & Cells.SpecialCells(xlCellTypeLastCell).Address
MsgBox Cells.SpecialCells(xlCellTypeLastCell).Count
MsgBox Cells.SpecialCells(xlCellTypeLastCell).NumberFormatLocal
MsgBox ("Die letzte Zeile ist: ") & Cells.SpecialCells(xlCellTypeLastCell).Row
MsgBox ("Die letzte Spalte ist: ") & Cells.SpecialCells(xlCellTypeLastCell).Column
' MsgBox ("Die letzte Zeile der Spalte A ist: ") & ' wie muss der Code lauten??
End Sub
Besten Dank für eine Hilfe!
mfg
Erich