Public Variablen zurücksetzen

Guten Morgen Spezialisten,
in einer UF habe ich mehrere Public Variablen eingesetzt.
Je nach Aufruf durch Button werden die Variablen neu benannt (as String).
z.B Public ZAEHLERSTART = 1000, Public TEXTvZAEHLER = "Proj", Public ZEICHEN= "-"
oder
z.B Public ZAEHLERSTART = 2000, Public TEXTvZAEHLER = "Angebot", Public ZEICHEN= "/"
Dannach werden Combo, oder TextBoxen mit den Variablen eingelesen.
Das klapp alles.
Je nach Eingaben in Comboboxen oder TextBoxen werden die Variablen in einer
TextBox Gesamt angezeigt.
z.B TextBox1 = ZAEHLERSTART & ZEICHEN & TEXTvZAEHLER
Anzeige in TextBox1 = 1000 - Proj
Wenn ich nun die Aufruf ändere werden jedoch die Werte in Textbox1 zunächst beibehalten.
Anzeige in TextBox1 = 2000 - Proj
Ich habe versuch die Variablen zurück zu setzen mit
Die Textbox1 setzte ich immer mit .Value ="" zurück
TEXTvZAEHLER = ""
TEXTvZAEHLER = Empty
TEXTvZAEHLER = vbNullString
Wo liegt hier mein Denkfehler?
Danke!
Gruß und einen schönen Samstag
Hanni

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Hajo,
danke erstmals für Deine Antwort!
Ich habe mich falsch ausgedrückt.
Ich möchte nicht die Variablen neu benennen.
Public ZAEHLERTSTART As String
Public ZEICHEN As String
Public TEXT As String
Public DATUM as string

Private Sub CMD_A1_Click()
ZAEHLERSTART = ""
Zeichen = ""
TEXT = ""
ZAEHLERSTART = 1000
TEXTvZAEHLER = "Proj"
With CBOProj
.AddItem = (ohne)
.Additem = "Proj"
.Additem = "ProjNr"
end with
With CboZeichen
.Additem = ""
.Additem ="-"=
.Additem ="/"=
.listindex = 1
End with
With CboDatum
.Additem = ""
.Additem ="Datum"
.Additem ="DatumNeu"
.listindex = 1
End with
End Sub

Private Sub CBOProj_Change()
Select Case CBOProj.ListIndex
Case 0
TEXT = ""
Case 1
TEXT= "Proj"
Case 2
TEXT= "ProjNr"
end select
call Vorschau
End Sub

Private Sub CBODatum_Change()
Select Case CBODatum.ListIndex
Case 0
DATUM = ""
Case 1
DATUM= "Datum"
Case 2
DATUM= "DatumNeu"
end select
call Vorschau
End Sub

Private Sub CBOZeichen_Change()
Select Case CBOZeichen.ListIndex
Case 0
ZEICHEN = ""
Case 1
ZEICHEN = "-"
Case 1
ZEICHEN = "/"
end select
call Vorschau
End Sub

Sub Vorschau()
Textbox1.value = ""
Textbox1.value = ZAEHLERWERT & ZEICHEN & TEXT & ZEICHEN & DATUM
End Sub
Anzeige in Textbox1 = "1000 - Proj - Datum"
Das ist richtig!
Wenn ich jetzt den Aufruf ändere dann werden die Variablen wieder eingelesen!

Private Sub CMD_A2_Click()
ZAEHLERSTART = ""
ZEICHEN = ""
TEXT = ""
DATUM = ""
ZAEHLERSTART = 2000
TEXTvZAEHLER = "Angebot"
Dann folgt die Prozedur von oben
wenn jetzt das Makro
Call Vorschau dann steht in Textbiox1
Anzeige in Textbox1 = "2000 - Proj - Datum"
Die Anzeige in TextBox1 müsse lauten "2000-Angebot-Monat"
Warum funktioniert das nicht, bzw werden die Werte falsch übernommen.
Danke!
Gruß
Hanni

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Public Variablen zurücksetzen

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread