ohne euch klappts mal wieder nicht.
In einer Sub habe ich eine Variable folgendermassen deklariert:
Dim varEingabe
bla bla
varEingabe = wksEingang.Range("C2")
bla bla
Ich möchte nun von einem anderen Modul aus auf diese Variable zugreifen bzw. sie auf Knopfdruck in einer MsgBox augeben.
Ich probiere nun schon wieder seid Stunden dran rum und ich bekomme es einfach nicht hin.
Bei meiner googlelei hies es, man soll ein Standard-Modul erstellen und einfach folgendes rein tun:
Public varEingabe As integer
Aber natürlich funktioniert das nicht ;) kam mir gleich ein wenig zu einfach vor ;o). Denn auch dieses Modul sollte ja ersteinmal gesagt bekommen was varEingabe denn eigentlich beinhaltet oder?
Habs in dem Standardmodul auch einfach mal blauäugigerweise mit folgendem probiert:
Sub publicVar()
Dim wksEingang As Worksheet
Public varEingabe as Integer
Set wksEingang = Worksheets("Wareneingang")
varEingabe = wksEingang.Range("C2")
End Sub
Und logisch. Nichts. Mein Mudul "modvarabfrage" gibt eine leere MsgBox aus:
Sub letzteeingabe()
' Tastenkombination: Wahltaste+Befehlstaste+l
msgBox "" & varEingabe & ""
End Sub
Ich habe auch versucht einfach die Variable in meinem "grossen" Arbeitsplatt GLEICH als Public-Variable zu definieren:
Sub WarenEingang()
Public varEingabe As Integer 'Variable für Eingabe in Zelle C2 im Blatt Wareneingang
Dim wksEingang, wksBestellung, wksManuell, wkssicher As Worksheet
Dim rngSuchen As Range
Dim lngZeile, lngZeileLast As Long
Dim bManuell As Boolean
Dim lngStueckzahl As Long
On Error GoTo Fehler
Set wksEingang = Worksheets("Wareneingang")
Set wksBestellung = Worksheets("Bestellungen")
Set wksManuell = Worksheets("Manuell")
Set wkssicher = Worksheets("Sicherung")
bla..
bla..
Da kommt aber sofort: "Fehler beim Kompilieren Ungültiges Attribut in Sub oder Function"
Kann mir irgendjemand einen Tip geben was ich falsch mache?
Es muss doch möglich sein, auf die im wksEingan zu letzt eingegebene, 6 stellige Zahl (eben die varEingabe) von anderen Modulen aus zuzugreifen...bzw. diese ausgeben zu lassen..
am verzweifeln bin.... :(
Mal wieder tausend Dank für jeglichen Tip an eine (auch wenns schon besser wird) VBA-Anfängerin
Grüsse
J.