Globaler Array II
29.02.2008 16:11:09
Fred
ich bin absoluter Neuling was VBA angeht und habe ein grundlegendes Verständnisproblem mit Arrays:
Ich möchte, dass folgende Arrays in jedem Modul, d.h. für alle Makros vorhanden sind?
'#######################################################################################
' HIER WIRD FESTGELEGT, WO SICH ZU KOPIERENDE TABELLEN BEFINDEN
ReDim drucksheets(1 To 6, 1 To 1)
ReDim druchrange(1 To 6, 1 To 1)
drucksheets = Array("GuV", "GuV", "Bilanz", "Bilanz", "KFR", "KFR") '
druckrange = Array("B10:M45", "B49:M76", "B10:M72", "B47:M60", "B10:M54", "B47:M60")
'#######################################################################################
Wie geht das? Ich habe folgendes probiert:
Public drucksheets as Variant. Das scheint aber nicht zu funktionieren. Zumindest funktioniert folgender Code in einem anderen Modul nicht:
For i = 1 To anzdb
X = zeilenindex(i, 1)
Sheets(drucksheets(X - 1)).Range(druckrange(X - 1)).Copy
Next i
Was mache ich falsch?
Vielen Dank für eure Hilfe!!!
Gruß
Fred