Variable für mehrere Subs

[jules]

Hallo Zusammen,

folgender Ausgangscode:

Code:

Option Explicit

Public i As String

Sub A()
    i = 22  
End Sub

Sub Monat()
Januar:
If Range("C2") = "X" Or Range("C2") = "Y" Then
With Cells(i, 3)
       .Offset(0, 0).FormulaLocal = "=" .....

Ich habe versucht oben eine Variable "i" mit dem Wert "22" festzulegen, die dann weiter unten in verschiedenen Subs wieder aufgegriffen werden soll und anstelle von "i" dann der Wert "22" genommen werden soll.

Leider funktioniert es nicht so, wie ich es mir vorgestellt habe

Vielleicht könnt ihr mir helfen.

Viele Grüße,

Jules

[Kuwer]

Hallo Jules,

Public i As Long

Gruß Uwe

[jules]

Hallo Uwe,

danke für deine Antwort.

Leider bekomme ich einen Laufzeitfehler '1004': Anwendungs- oder objektdefinierter Fehler ..

[Gast 123]

Hallo Jules

wie der Kollege Uwe schon erklaerte gab es hier einen Deklarationsfehler!

Zahlen und Texte die im Code Konstant bleiben lege ich lieber in eine Const Anweisung oder Public Const wenn sie Öffentlich sind, 
z.B.:  Public Const i = 22   oder als Text  Public Const Pfad = "E:\Excel Forum" 

Weil ich i und j oft als Zaehler in For Next Schleifen benutze gebe ich Konstanten immer einen eigenen Namen der für ich sinnvoll ist:
z.B.   Public Const Farbe = 3   'für Schriftfarbe Rot   oder Public Const IFarbe = 4  'für Innenfarbe

mfg Gast 123

[jules]

Hallo Gast 123,

das ist ein guter Tipp!

Ich danke euch