Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
684to688
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
684to688
684to688
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Array Name & Public

Array Name & Public
24.10.2005 16:19:20
Bernd
Hallo,
ich bekomme leider bei folgendem Sachverhalt die Schreibweise nicht hin:
In einem Modul deklariere ich versch. Array als Public
Arr_PDaten_Test1
Arr_PDaten_Test2
usw.
Test steht hier für die Namen der Tabellen.
Da das befüllen des Array immer nach dem gleichem Schema abläuft, wollte ich
alles in einer Schleife abarbeiten. Um erst einmal die Namen der Tabellen zu ermitteln mache ich folgendes:
x = Workbooks(ADDIN_PDaten).Worksheets.Count
ReDim Arr_Name(x)
For i = 2 To x
Arr_Name(i) = Workbooks(ADDIN_PDaten).Worksheets(i).Name
Next i
Und nun komme ich nicht weiter...
Wie muss es richtig lauten:
ReDim Arr_PDaten_?&?Arr_Name(i)?&?(i_rows, i_cells)
Ich bekomme immer einen Syntaxfehler und weiß schon nicht mehr, was ich noch testen soll ;-)
Und die zweite Frage, wie kann ich die versch. Array jetzt als Public deklarieren ?
Vielen Dank für einen Tip
Bernd

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Array Name & Public
25.10.2005 09:53:04
MichaV
Hallo Bernd
das geht nicht. Du kannst keine Variablennamen zusammensetzen. Dir stehen mindestens 2 Möglichkeiten zur Verfügung:
In ein Standart- Modul schreibst Du:


Option Explicit
Public Arr


Option Explicit
Private Sub Workbook_Open()
Dim i%
'3D- Array. 1. Dimension ist der Index des Sheets, 2. und 3. Dimension sind die Daten
For i = 1 To Sheets.Count
  ReDim Arr(1 To Sheets.Count, 1 To 5, 1 To 8)
Next
'oder mit benutzerdefiniertem Datentyp
'hier kannst Du Dir neben dem Index auch noch den Namen des Sheets merken
'Sheetsname und Daten liegen in zwei getrennten Variablen.
ReDim tArr(1 To Sheets.Count)
For i = 1 To Sheets.Count
  ReDim tArr(i).aWerte(1 To 5, 1 To 5)
  tArr(i).sName = Sheets(i).Name
  tArr(i).aWerte(1, 1) = "11"
  tArr(i).aWerte(1, 2) = "12" 'usw
Next
Gruss- Micha
PS: Rückmeldung wäre nett.
Anzeige
AW: Array Name & Public
Bernd
Hi Micha,
ich hoffe nicht, dass hier bald 2 Antworten stehen - irgendwie ist die erste
message im Nirwana verschwunden.
Auf jeden Fall war es eine tolle Hilfe von Dir.
Mit ein wenig Umorganisieren spare ich mir damit etliche Zeilen Programmcode.
Herzliche Dank und Gruß
Bernd
Danke für Deine Rückmeldung! owT
27.10.2005 09:20:55
MichaV
.

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige