Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 08:08:24
Pivot Vormonatsveränderung
26.04.2024 07:54:11
nur den ersten Eintrag in spalte zählen
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
144to148
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
144to148
144to148
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilenanzahl

Zeilenanzahl
11.08.2002 15: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
Anzeige
Re: Zeilenanzahl
11.08.2002 16: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 08: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


Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige