Variablen allen Worksheets verfügbar machen
31.08.2005 22:23:25
jens
hab wieder eine Anfängerfrage an Euch: Ich möchte Variablen, die ich aus verschiedenen Zellen eines Tabellenblattes auslese, anderen Tabellen innerhalb der selben Arbeitsmappe zur Verfügung stellen. Wenn ich die Variablen mit 'Public' deklariere erhalte ich die Fehlermeldung : Fehler beim Kompilieren - ungültiges Attribut. Obwohl ich denke, das ich auf dem richtigen Weg, bin muss ich wohl was falsch machen. Möglicherweise liegt es an dem Ort an welchem die Prozedur abgelegt ist. In der Online Hilfe ist in Zusammenhang mit der 'Public' Anweisung von der Modulebene die Rede. Leider ist mir der Unterschied zwischen Modulebene und Tabelle nicht ganz klar.
Sub Worksheet_Calculate()
Public maz As Integer, n As Integer, m As Integer
Public arrWerte(1 To 12, 1 To 50, 1 To 20) As Integer
Application.EnableEvents = False 'Ereignisse aussschalten
maz = Range("ah46") 'speicherwert auslesen
n = Range("a2") 'Monatsindex auslesen
m = Range("b2") 'Namensindex auslesen
arrWerte(m, n, 1) = maz 'Speicherwert dem Array zuordnen
Application.EnableEvents = True 'Ereignisse einschalten
End Sub
Danke im Vorraus
Jens