Live-Forum - Die aktuellen Beiträge
Datum
Titel
04.11.2025 16:13:59
AddIn erstellen und mit Passwort schützen
04.11.2025 15:31:37
Die Summendifferenz zwischen 01.01. und heute berechnen
04.11.2025 13:05:47
Frage Bed.Format mit Reihenfolge
04.11.2025 11:17:34
Datumsberechnung Konfirmation
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
484to488
484to488
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Public Variablen setzten geht nicht

Forumthread: Public Variablen setzten geht nicht

Public Variablen setzten geht nicht
18.09.2004 14:15:42
Otto
Hallo allerseits,
ich versuche globale Variablen zu definieren und denen global Wert zu weisen, so daß sie im ganzen Projekt nur einmal definiert und mit Wert gefüllt werden und von jedem Modul mit ihren Werten erreichbar sind.
Dazu ein Beispiel:
https://www.herber.de/bbs/user/11036.xls
Hoffe ihr könnt mir helfen
Gruß, Otto
Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Public Variablen setzten geht nicht
Mike
Hallo Otto,
öffentliche Variablen deklarierst du so:
Public DeineVariable As String
(außerhalb eines Subs)
Grüße
Mike
AW: Public Variablen setzten geht nicht
18.09.2004 14:35:21
Otto
Hallo Mike,
danke für die Antwort.
Aber das war leider nicht meine Frage.
Soweit war ich auch ;-) Aber wie weise ich dieser Variable dann global einen Wert zu?
Wenn ich z.B. außerhalb der Prozedur folgendes eingebe
Public tbl1 As Worksheet
Set tbl1 = Worksheets("Tabelle1")
bekomme ich Fehlermeldung.
Wie kann ich es denn lösen? Ich möchte nicht in jedem Modul die Variable mit
Set tbl1 = Worksheets("Tabelle1")
setzen, sondern nur einmal global für das ganze Projekt.
Gruß
Otto
Anzeige
AW: Public Variablen setzten geht nicht
Mike
Hm...ok,
dann so?
So musst du immer nur diese 3 Buchstaben eingeben...gibt aber sicherlich bessere Lösungen...
Public Ws As Worksheet

Sub Wsh()
Set Ws = Worksheets("Tabelle1")
End Sub



Sub Test()
Wsh
MsgBox (Ws.Name)
Viele Grüße
Mike
End Sub

Anzeige
AW: nicht schlecht ...
18.09.2004 14:50:43
Otto
Hallo Mike,
vielen Dank für die schnelle Lösung.
Funktioniert ganz gut.
Ich fürchte , es gibt keine bessere Lösung dafür bei VBA.
Danke nochmal
Viele Grüße
Otto
AW: anderer Ansatz
18.09.2004 15:20:46
Otto
Hallo Reinhard,
danke für die Antwort. Aber mir ging es um die Public Variablen, wie man sie überhaupt global setzen kann.
Ich glaube VBA bietet keine solche Lösung an. Deswegen finde ich die Lösung von Mike am geeignetesten.
Viele Grüße
Otto
AW: anderer Ansatz
Ulf
Wenns wirklich eine Variable sein muss, gehts auch gar nicht anders!
Ulf
Anzeige
AW: Public Konstante
19.09.2004 13:33:46
Otto
Hallo Otto,
Meine Testumgebung: Excel 9.0 SR-1, Multilingual unter Windows 2000 SP-4
Wahrscheinlich suchst Du eine globale Konstante. Sie wird wie eine globale Variable in einem normalen Modul deklariert:

Gruß Otto
Anzeige
;

Forumthreads zu verwandten Themen

automatisch Berechnen funktioniert nicht
t4z

Hi Leute,
kann mir jmd folgendes Phänomen erklären?
Excel-Datei enthält Formeln, die auf andere Zellen innerhalb der Mappe referenzieren. Die Quelldaten ändern sich, jedoch die Formeln nicht. Unter Extras-Optionen-Berechnung ist "automatisch" aktiv. Ein Drücken auf F9 bringt keinen Erfo...
07.08.2008 17:13:07
Thread-ID: 1000040
3 Beiträge
ASCII für Minuszeichen geht nicht
Oswald_1968

Hallo an die Fachleute,
bin gerade dabei für einen Kollegen eine Registrierkasse zu programmieren.
Sieht so aus das es 15 Buttons gibt die er mit bestimmten Produkten und Preisen belegen kann.
Beim anklicken des Buttons wird das Produkt und Preis in eine Textbox zur übersicht geschr...
14.08.2008 00:11:00
Thread-ID: 1001689
5 Beiträge
Diagramm funktioniert nicht unter Ex 2007
Bernd

Hallo,
Nachdem ich eines meiner Probleme selbst gelöst habe, doch noch einmal zu dem Problem, dass ich einem Chart in Excel 2003 über VBA neue Bereiche zuordnen kann, wenn ich die Datei aber unter Excel 2007 öffne, bekomme ich eine Fehlermeldung.
Vielleicht findet sich ja doch noch jema...
20.08.2008 12:37:17
Thread-ID: 1003172
3 Beiträge
Anzeige
Warum funktioniert der Code nicht ?
TomTom


Hi,
ich habe auf meinem Scheet 2 Textboxen untereinander (1 und 2)
Da werden nun daten reingeladen. Entsprechend der Texteingabe, werden auch die Textboxen entsprechend hoch. Mein Ziel war es, wenn in der Textbox1 so viel Text drin steht, dass die Untere Kante der Textbox1 über di...
10.09.2008 13:22:37
Thread-ID: 1008773
3 Beiträge
Select in BeforeSave funktioniert nicht. Bug?
Stefan


Hi!
Hab grad ein sehr merkwürdiges Problem. Vielleicht hat das von euch schon mal wer gesehen und weiß woran das liegt.
Die Select-Methode auf ein Worksheet Objekt funktioniert in einem bestimmten Fall nicht. Und zwar wenn sie in einer Sub aufgerufen wird, die von Workbook_BeforeSa...
10.09.2008 21:29:57
Thread-ID: 1008923
6 Beiträge
Makro geht und geht doch nicht
David

Hallo VBA-Profis,
ich wollte einem anderen Forumsmitglied hier helfen und habe auch alles soweit hinbekommen, aber an einem Problem bin ich gerade verzweifelt.
In der Datei:
Die Datei https://www.herber.de/bbs/user/55435.xls wurde aus Datenschutzgründen gelöscht
wird beim Änder...
16.09.2008 15:02:10
Thread-ID: 1010129
9 Beiträge
In der Sackgasse .... Befehl geht einfach nicht
greenhorn

Hallo Profis,
ich bin am verzweifeln. Ich habe eine Code zusammengebastelt der automatische E-Mails versendet wenn Werte in Excel überschritten werden.
Private Declare Function ShellExecute Lib "Shell32.dll" _ Alias "ShellExecuteA" (ByVal hWnd As Long, _ ByVal lpOperation As String, B...
17.09.2008 12:27:13
Thread-ID: 1010325
6 Beiträge
Anzeige
Makro: Mail erzeugen funktioniert noch nicht
Ralf

Hallo,
folgendes Makro zur Erzeugung einer Mail funktioniert noch nicht.
Sub Mail_Stammdaten() Dim ob, mailitem As Object Set ob = CreateObject("outlook.application") Set mailitem = ob.CreateItem(0) On Error Resume Next With mailitem .Subject = "Neuanlage in Decalog" .To = "gerhard.ju...
18.09.2008 16:07:50
Thread-ID: 1010784
8 Beiträge
Do Until - Schleife verlassen funktioniert nicht.
Stefan

Hallo Excelfreunde, bitte um Hilfe.
Do Until - Schleife mit Exit Do verlassen funktioniert nicht.
Abbruchbedingung: If TPFehlt = 1 Then Exit Do
Trotz längerem Suchen habe ich nicht herausgefunden, warum die Fehlermeldung kommt.
Sub Zuordnen() Dim letzteZeile As Integer, Nr As...
22.09.2008 20:53:34
Thread-ID: 1011569
3 Beiträge
Anzeige
Grafik in Userform funktioniert nicht
SteffenS

Hallo Zusammen,
der angehängte Code funktioniert unter Excel 2003 unter Excel 2007 funktioniert er leider nicht.
Woran kann dies liegen?
Option Explicit
Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" ( _
ByVal lpClassName As String, _
ByVal lpWi...
24.09.2008 21:08:48
Thread-ID: 1012169
7 Beiträge
SVERWEIS funktioniert nicht
sascha76er

Hallo,
hoffentlich kann mir jemand hier helfen, bei mir funktionieren die SVERWEISE für die Spalten
AI, AQ, AR, AS
nicht.
Leider ist meine Liste größer wie 300 kb, deshalb musste ich die Liste bei einem 1Klickhoster bereitstellen.
Liste: http://www.mediafire.com/?oxyk0vmb21x...
08.10.2008 11:23:24
Thread-ID: 1014967
7 Beiträge
Makro geht mit Blattschutz nicht - trotz unprotect
donald

Hallo,
ich hab nochmal eine Frage. Ich hab ein paar Zellen meines Blatts mit dem Blattschutz ausgestattet. Und jetzt funktioniert mein Makro nicht, obwohl ich protect/unprotekt ins Makro reingeschrieben habe:
Sub FarbeSortieren() ActiveSheet.Unprotect Password:="esm-win" Range("S12...
23.10.2008 16:41:43
Thread-ID: 1018743
5 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige