Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1008to1012
1008to1012
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Variable - Konstante - auch nach End Sub?

Forumthread: Variable - Konstante - auch nach End Sub?

Variable - Konstante - auch nach End Sub?
09.09.2008 12:52:00
Tom
Hallo.
Jetzt weis ich bereis, dass das Thema Variablen die auch nach dem "End Sub" zur Verfügung stehen sollen so ein Thema ist.
Ich hab mich mal versucht zu belesen, peils aber noch nicht so ganz.
Wenn ich also in einer Zelle einen Wert stehen habe, den ich überall zur Verfügung haben möchte, dann bin ich mir nicht sicher wie ich das machen soll. Denn jedesmal nach einen "end sub" ist die festgelegte variable weg.
Gibt es denn mittels "Public const" eine Möglichkeit sowas zu erreichen?
Der Tom
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Variable - Konstante - auch nach End Sub?
09.09.2008 13:24:28
Andi
Hi,
Du musst die Variable in einem Stadard-Modul außerhalb der Prozeduren als Public-Variable deklarieren, dann steht sie in allen Prozeduren zur Verfügung.
Wenn der Wert aber ohnehin in einer Zelle steht, dann brauchst Du das eigentlich gar nicht, weil Du ja einfach auf die Zelle zugreifen kannst.
Schönen Gruß,
Andi
Anzeige
AW: Variable - Konstante - auch nach End Sub?
09.09.2008 14:04:03
Tom
Danke Ihr Beiden.
Leider komm ich damit nicht viel weiter.
Ich kann zwar eine const im Modul setzen, allerdings nicht den Inhalt einer Zelle.
Public Const Tom As String = Sheets("Vorgabewerte").Range("C2")
Da schimpt er übers "Range"
Und ja, ich könnte immer den Zelleninhalt nehmen und diesen auslesen. Ich wollte mur nur diese Zeile ersparen und statt dessen eine Variable nutzen die einen kurzen namen hat.
Der Tom
Anzeige
AW: Variable - Konstante - auch nach End Sub?
09.09.2008 14:24:00
Andi
Hi,
Du kannst einer Konstanten keinen Zellwert zuweisen; Zellwerte könnten sich ändern, und dies schließt die Verwendung einer Konstanten prinzipiell aus.
Du könntest entweder eine Public-Variable deklarieren, der Du dann aber noch innerhalb einer Prozedur den Zellwert zuweisen musst (zB im WorkbookOpen), oder Du greifst eben doch auf den Zellwert direkt zu.
Schönen Gruß,
Andi
Anzeige
AW: Variable - Konstante - auch nach End Sub?
10.09.2008 13:06:55
Tom
Ich nochmal,
also ich komm da nicht weiter. Entweder versteh ich da was nicht oder ich stell mich einfach nur zu blöd an.
Ich wollte in allen Arbeitsblattern und Modulen einen Wert haben den ich immer wieder aufrufen kann.
Dieser Wert soll aus einer Zelle entnommen werden.
Ziel ist es in dieser Zelle einen Dateinamen mit Pfad zu hinterlegen, auf den ich mich dann überall beziehen kann. Sonst musste ich ja in jedem Prozess erst den Wert aus dieser Zelle auslesen und das macht das ja alles so riesig.
Also wenn ich das bis jetzt richtig verstehe, dann muss ich in der Arbeitsmappe was mit "Workbook_Open()" einbringen und noch was zusätzlich in einem Modul...aber egal was ich Probiere, wenn ich das mit einem Zelleninhalt machen will geht das nicht...
Kann mir mal bite jemand ein komplettes Beispiel geben?
Danke
Der Tom
Anzeige
AW: Variable - Konstante - auch nach End Sub?
10.09.2008 13:27:07
Heiko
Hallo Tom.
wie kommst du darauf, Zitat von dir, was ist daran riesig ?!
"Sonst musste ich ja in jedem Prozess erst den Wert aus dieser Zelle auslesen und das macht das ja alles so riesig."
Habe mal ne Beispieldatei angehängt wo drei Möglichkeiten genutzt werden. Also die Info direkt aus der Zelle zu holen ist dabei immer die bestem, da immer aktuell und nicht abgängig wenn viel zwischen verschiedenen Mappen hin und her geschaltet wird.
https://www.herber.de/bbs/user/55298.xls
Gruß Heiko
PS: Rückmeldung wäre nett !
Anzeige
AW: Variable - Konstante - auch nach End Sub?
10.09.2008 15:05:46
Andi
Hi,
verwendest Du mittlerweile eine Variable, oder immernoch eine Konstante?
Schönen Gruß,
Andi
AW: Variable - Konstante - auch nach End Sub?
10.09.2008 15:14:03
Tom
Also ich habs jetzt so gelöst:
Das in "diese Arbeitsmappe"

Private Sub Workbook_Open()
PfadUndName = Workbooks("Gesamtauswertung.xls").Sheets("Vorgabewerte").Range("C2").Text
Mitarbeiterdatei = DateiName(PfadUndName, True)
End Sub


Das hier in ein Modul
Option Explicit
Public Mitarbeiterdatei As String
Public PfadUndName As String


Public Function DateiName(PfadUndName As String, Optional MitEndung) As String
Dim Pos As Integer, SuchZeichen As String
If PfadUndName = "" Then Exit Function
' Letzten Backslash suchen
Pos = 0
Do
PfadUndName = Mid(PfadUndName, Pos + 1)
Pos = InStr(1, PfadUndName, "\")
Loop Until Pos = 0
If IsMissing(MitEndung) Then MitEndung = True
If Not MitEndung Then
' Letzten Punkt suchen
For Pos = Len(PfadUndName) To 1 Step -1
If Mid(PfadUndName, Pos, 1) = "." Then
PfadUndName = Left(PfadUndName, Pos - 1)
Exit For
End If
Next Pos
End If
DateiName = PfadUndName
End Function


Somit erhalte ich bei "PfadUndName" den kompletten Pfad mit Dateiname
und bei
"Mitarbeiterdatei" erhalte ich nur die Datei mit Endung
msgbox PfadUndName ergibt z.B.
\\Ort\Ordner\Dateiname.xls
msgbox Mitarbeiterdatei ergibt dann
Dateiname.xls
Vielen Dank an alle die geholfen haben!
Der Tom

Anzeige
;

Forumthreads zu verwandten Themen

FIFO mit VBA (Endlosschleife?)
Bernhard

Hallo liebe Experten,
da ich in VBA noch ziemlich unbeleckt bin, habe ich zur Lösung einer FIFO Aufgabenstellung u.a. VBA Lösung ergoogelt, die eigentlich funktioniert, lediglich der 2. Teil Starting_Inventory läuft scheinbar in eine Endlosschleife. Was ist falsch? Habe auch ein Beispielda...
21.08.2008 21:06:36
Thread-ID: 1003636
24 Beiträge
On error 10 sekunden pause and resume
MBorn

Hallo,
weiß jemand, wie man bei einer Fehlermeldung (Fehlermeldung Laufzeitfehler 1004)
eine 10 sekündige Pause macht und dann Resume?
Gruß aus Berlin,
Born
25.01.2009 20:51:00
Thread-ID: 1043679
4 Beiträge
Anzeige
VBA Resume vier mal, dann Resume next
MBorn

Hallöle,
gibt es eigentlich sowas wie in der Überschrift beschrieben:
Resume 4 times: versuche das gleiche vier mal
Wenn es 4 x nicht klappt dann
Resume next: mach weiter
Ich hab noch nichts dazu gefunden, ihr vielleicht?
Danke,
Born
31.01.2009 16:52:00
Thread-ID: 1045686
6 Beiträge
On Error resume next
Dirk

Hallo zusammen,
habe Probleme mit dem Befehl on Error resume next. gilt dies nur für den nächsten Befehl, oder dann den rest der Prozedur? Kann ich die Fehlermeldungen wieder einschlten?
Mein Wissen langt nicht dafür :-)
03.02.2009 17:52:00
Thread-ID: 1046737
3 Beiträge
Excel4Makro - on error resume next
Michael

Hallo allerseits,
ich habe hier eine historisch gewachsenes sehr sehr umfangreiche Tabelle mit einer Mischung aus Excel4Makros und VBA.
Da liegt meine Problem. Ich suche den Befehl "on error resume next" also "fehler überspringen" für Excel4Makros. Kann mir da jemand helfen?
LG
...
16.12.2009 08:42:38
Thread-ID: 1124248
2 Beiträge
On Error Resume ohne Funktion an einem PC
Günter

Hallo Zusammen,
ich habe eine Fehler bei der Anwendung von "On Error Resume Next".
Hier die Funktion in der is es einsetze:
Public Function shape_Exists(Blatt As Object, shpName As String) As Boolean Dim Bild As Shape On Error Resume Next Set Bild = Blatt.Shapes(shpName) shape_Exi...
05.07.2010 15:01:05
Thread-ID: 1165466
8 Beiträge
OptionButtons per VBA: Automation Error
Sven

Hallo liebe Herber-Gemeinde,
ich hab grad das Problem, dass ich in einer langen Liste in einem Arbeitsblatt Optionbuttons _ per VBA hinzufügen möchte. Dazu benutze ich folgenden Code: With ActiveSheet For i = 2 To ende .OLEObjects.Add(ClassType:="Forms.OptionButton.1", Link:=False, Displa...
20.07.2010 19:50:33
Thread-ID: 1167914
3 Beiträge
VBA: deutsche OK - englische Version: Error 13
Dominik

Folgeproblem:In einem Arbeitsblatt, erstellt in Excel 2000, kann in einer Zelle die Zeit ohne ":" eingegeben werden. Der ":" wird durch folgendes Makro ersetzt:Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Row 20 Or Target.Column 9 Then Exit Sub
FormatTime (Target....
03.05.2002 12:58:38
Thread-ID: 118198
4 Beiträge
Anzeige
If Rows.Hidden = True Then End
Karsten

Hallo,
Eine Frage:
Der folgende Code besagt doch, wenn Zeilen versteckt (ausgeblendet) sind, dann gehe zu End. Warum läuft er in beiden Fällen bei mir weiter? Oder wie wird er richtig geschrieben?
If Rows.Hidden = True Then End
Danke für eure Hilfe.
Gruß
Karsten
20.11.2010 16:32:04
Thread-ID: 1187947
12 Beiträge
Anzeige
VBA Abfrage on error - nur 1 mal OK
chris

Hallo VBA Experten,
ich muss euch um Hilfe bitten.
Ich habe unten einen Code bei dem die Fehlerroutine nicht so klappt wie ich es mir vorstelle.
Es muss ein neuer Tabellenblattname eingegeben werden.
Dann wird die tabelle "Regal_leer" kopiert und entsprechend umbenannt.
Gebe...
28.02.2011 14:06:52
Thread-ID: 1203349
8 Beiträge
VBA arbeitsmappenübergreifend
Thomas Stache

Hallo,
ich würde gern meinen VBA-Code aus der Arbeitsmappe mit den Eingabe- bzw. Steuerdaten auslagern, so dass ich von vielen Steuer-Arbeitsmappen auf eine Code-Basis zugreifen kann. Bisher hab ich es nur geschafft, innerhalb eines Projektes Zugriff zu bekommen. Weiß jemand Rat?Thomas(S)
24.05.2002 11:35:25
Thread-ID: 123424
2 Beiträge
On Error Resume Next
Markus

Hallo zusammen,
kann mir jemand sagen, warum das Makro unter Excel 2007 nicht läuft?
im 2003 lief es tadellos!
Danke. Gruß Markus
Sub Vorgaben_Import1() On Error Resume Next Dim strPfad As String Workbooks.Open Filename:=strPfad & Environ("UserProfile") & "\Desktop\" &am...
03.06.2011 15:00:26
Thread-ID: 1217231
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige