Clever-Excel-Forum

Hallo zusammen,

könntet Ihr mir bitte bei folgendem Thema helfen?

In einem Makro gibt es folgende Deklarationen:

Const AnzEingaben = 10
Dim a(AnzEingaben) As Integer 'Array

Das Makro funktioniert auch bestens mit diesen Festlegungen.
Aber wie kann ich dieselbe Funktionalität erreichen, wenn ich anstelle der Const-Anweisung für die Werte der "AnzEingaben " einen Zellenwert verwenden möchte"

Wenn ich folgendes festlege funktioniert das Ganze nicht.
Dim AnzEingaben
AnzEingaben = ActiveSheet.Range("A1").Value
Dim a(AnzEingaben) As Integer

Vielleicht könnt Ihr mir da auf die Sprünge helfen.

Hallo,

versuche es mal so:

Code:
Option Explicit

Sub test()

    Dim AnzEingaben

    AnzEingaben = ActiveSheet.Range("A1").Value

    Dim a() As Integer

    ReDim a(AnzEingaben)

End Sub

Code:
Sub M_reicht()

  ReDim sn([A1])

  MsgBox UBound(sn)

End Sub

Super Klaus-Dieter,

vielen Dank, funktioniert bestens.

Wünsche Dir noch einen schönen Abend.

Hallo snb,

Dir auch vielen Dank für diese Lösung, funktioniert bestens!

1. Lege einen Namen für Deine Eingabezelle fest. Z. B. AnzEingaben für Zelle D7 in Tabelle2. Damit wird Dein Programm von Zeilen- und Spalteneinfügungen und -löschungen oberhalb und links von Tabelle2!D7 unabhängig.

2. ReDim ArrayFürZeilen(1 To Range("AnzEingaben")) As Long
Gib Deinem Array einen Namen, der sagt, wofür es gut ist. Gib die Untergrenze und Obergrenze explizit an, damit Dein Programm von Option Base unabhängig ist. Nimm Long an Stelle von Integer, damit bei 65536 nicht Schluss ist.

3. Und verwende immer Option Explicit.

sharky51

Klaus-Dieter

snb

sharky51

Sulprobil