CurrentRegion - Problem

Forumthread: CurrentRegion - Problem
2 Beiträge zu diesem Forumthread
Anzeige

Forumthread: CurrentRegion - Problem

31.10.2002 16:24:50

ewald

Hallo zusammen,

habe eine dymamische Tabelle die umfast 15 Zeilen und 7 Spalten
die mit Zahlen gefült ist. Die Tabelle beginnt in Zell A3

Mit der CurrentRegion-Eigenschaft möchte ich, dass CurrentRegion die Erste und zwei letzten Spalten und die Erste und letzte Zeile nicht berücksichtigt. Mit dem markierten Bereich will ich weiter rechnen z. B. Summenprodukt.

Ist es möchlich mit CurrentRegion oder bibt es andere Möglichkiten?

Bitte um hilfe.

Vielen Dank.

Grüße

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Re: CurrentRegion - Problem

31.10.2002 17:33:52

Jürgen
Re: CurrentRegion - Problem

31.10.2002 18:35:47

Uwe

Re: CurrentRegion - Problem

31.10.2002 17:33:52

Jürgen

Hallo Ewald,

sieh 'mal in der Online-Hilfe zu "CurrentRegion" nach. Dort ist ein Beispiel angegeben, wie mit der Resize-Eigenschaft die Größe eines Bereiches geändert wird.

Müßte Dir weiterhelfen.

Gruß
Jürgen

Re: CurrentRegion - Problem

31.10.2002 18:35:47

Uwe

Prima Idee Jürgen,
hat mir auch geholfen.
Und so siehts für Ewald aus:
Gruß Uwe

Sub test()
'aktive zelle in tabellenbereich setzen
Cells(3, 1).Select
'umfang feststellen
Set tabelle = ActiveCell.CurrentRegion
'umfang verschieben und verkleinern
tabelle.Offset(1, 1).Resize(tabelle.Rows.Count - 2, tabelle.Columns.Count - 3).Select
End Sub