Sub makro()
    Dim maus_position As String
    maus_position = Selection.Address
    MsgBox "maus_position = Selection.Address --> " & maus_position

    maus_position = ActiveCell.Row
    MsgBox "maus_position = ActiveCell.Row --> " & maus_position

    maus_position = ActiveCell.Column
    MsgBox "maus_position = ActiveCell.Column --> " & maus_position
End Sub