Zeilenanzahl

Forumthread: Zeilenanzahl
2 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Zeilenanzahl

Zeilenanzahl

11.08.2002 17:19:50

Eugen

Hallo Forum
Wie kann ich aus einem definierten Tabellen-Bereich „Bereich“ die Anzahl der Zeilen und Spalten auslesen.
Es ist zwar ein alter Hut aber ich komme einfach nicht dahinter, habe wohl ein Brett vorm Kopf.

Danke im Voraus
Eugen

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Re: Zeilenanzahl

11.08.2002 18:15:09

Andre
Re: Nicht ganz. Danke

12.08.2002 10:16:03

Eugen

Re: Zeilenanzahl

11.08.2002 18:15:09

Andre

Hallo,
ThisWorkbook.Sheets("tabelle1").Activate
ActiveSheet.[A1].Select
Selection.CurrentRegion.Select
vargesamtzeilen = Selection.Rows.Count
vargesamtspalten = Selection.Columns.Count
Application.CutCopyMode = False
gruss andre

Re: Nicht ganz. Danke

12.08.2002 10:16:03

Eugen

Hallo Andre
Das war es wohl aber, leider nicht ganz.
Ich wollt die Anzahl der Zeilen und Spalten aus dem Namen "Bereich" auslesen ohne den Bereich zu seletieren.
Aber ich habe es jetzt, Dank deinen Stichworten, hinbekommen.

Sub xx()
Dim Bereich As Object, Zeile As Single, Spalte As Single, Zeilen As Single, Spalten As Single
ThisWorkbook.Sheets("tabelle1").Activate
Set Bereich = ActiveSheet.[Bereich]
Spalte = Bereich.Column 'Listeanfang Spalte
Zeile = Bereich.Row 'Listeanfang Zeile
Spalten = Bereich.Columns.Count 'Spaltenanzahl
Zeilen = Bereich.Rows.Count 'Zeilenanzahl
End Sub
Dank nochmahl
Eugen