Public bzw. globale Variable??

Hallo Forum,
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.

Hier mal der Komplette Code, bissl Chaotisch aber funzt erstmal soweit, bis auf das ich die varEingabe eben nicht von woanders abfragen kann:


Sub WarenEingang()
'Prüfen des Wareneingangs
Dim wksEingang, wksBestellung, wksManuell, wkssicher As Worksheet
Dim varEingabe 'Variable für Eingabe in Zelle C2 im Blatt Wareneingang
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")
'Eingabe in C2 in Variablespeichern
varEingabe = wksEingang.Range("C2")
'1. Prüfung - 6stellige (NUR Zahlen) Dateieingabe in C2
If Len(varEingabe) = 6 And IsNumeric(varEingabe) Then
With wksManuell                                                                              _
' im Worksheet "Manuell"
For lngZeile = 3 To .Cells(.Rows.Count, 1).End(xlUp).Row                                 _
' für alle Artikelnummern in Spalte 1
If .Cells(lngZeile, 1).Value = Range("c2").Value Then                                _
' falls die Artikelnummer der eingegebenen entspricht
bManuell = True                                                                  _
' manuelle Eingabeart merken
Do
lngStueckzahl = Application.InputBox("        Der Artikel muss manuell  _
erfasst werden.  " & vbNewLine & "         Bitte geben Sie die gezählte Menge ein!", "Kein Barcode vorhanden", , 400, 200, Type:=1) ' tatsächliche Stückzahl erfragen
If (lngStueckzahl  0
Exit For                                                                         _
' hier ist die Suche beendet
End If
Next lngZeile                                                                            _
' solange, bis die Liste durchsucht wurde
End With
With wkssicher
'letzte Zeile in Spalte A
lngZeileLast = .Cells(.Rows.Count, 1).End(xlUp).Row
If lngZeileLast  0 Then
msgBox "Fehler-Nr. " & .Number & vbLf & .Description
End If
End With
End Sub

Die varEingabe muss für alle Module abrufbar sein. Schreibe ich anstelle wie oben public varEingabe As Integer kommt eben diese Fehlermeldung: Fehler beim Kompilieren Ungültiges Atribut in Sub oder Function...

Forumthread: Public bzw. globale Variable?

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

Mit globalen Variablen in Excel VBA arbeiten

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)