Attribute VB_Name = "Modul4"
Option Explicit
'Tabellenblattgröße ermitteln
'rechte untere Ecke->Zeile,Spalte
'Parameter : Tabellenblattname
'
Sub tabgroe(name as String)
Dim last_row As Integer
Dim last_column As Integer
'
Sheets(name).Select
ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Activate
last_row = ActiveCell.Row
last_column = ActiveCell.Column
'
MsgBox "Die Tabelle " & name & " hat" & chr(10) & Str(last_row) & " Zeilen und " _
& chr(10) & Str(last_column) & " Spalten"
End Sub