Daten über UserForm speichern???
Uwe S.
Kann mir jemand sagen ob ich Werte die ich in eine Steuerelement (ComboBox
etc.) in einer UserForm eingebe speichern kann ohne sie in einer Tabelle zu
hinterlegen damit ich sie beim nächsten öffnen der Datei wiederverwenden
kann ???
Gruß und Dank
Uwe
Peter Huber
Combobox dauerhaft mit Werten füllen
Private Sub UserForm_Initialize()
With UserForm1.cboProdukt 'cboProdukt ist der Name der ComboBox wenn
'deine einen anderen Namen
hat mußt du den eintragen
.AddItem "Nelken"
.AddItem "Rosen"
.AddItem "Gerbera"
.AddItem "Tulpen"
.AddItem "Sonnenblumen"
'Damit wird Die box mit den Werten Nelken usw. gefüllt
'jeder AddItem Befehl stellt einen Wert da
.ListIndex= 0 'wählt Nelken als Voreintrag aus
End With
End Sub
Mehr Informationen in der Hilfe unter
CommandBarComboBox-Objekt
Ciao Peter
--
Peter Huber
Homepage: www.rundumadum.de
E-Mail: pe...@rundumadum.de
Sie brauchen ein Makro
klicken Sie hier
http://www.rundumadum.de/Macro_Programmieren/macro_programmieren.html
Susanne Gann
"Uwe S." <Str...@t-online.de> schrieb im Newsbeitrag
news:a5gd0o$j4v$01$1...@news.t-online.com...
du kannst den Index oder den Text per VBA als Bereichsname festlegen. Das
kann auch unsichtbar für den Anwender erfolgen - ähm ich meine, dass der
Wert unter Einfügen\ Namen\ definieren gar nicht auftaucht. Ich habe gerade
kein Codebeispiel bei der Hand, aber falls du damit nicht weiterkommst,
kannst du dich gerne nochmal melden, dann suche ich das kurz.
Grüße
Susanne Gann
Uwe S.
Voran herzlichen dank an Susanne und Peter für Eure Hilfe :-)
Leider habe ich mein Problem offensichtlich nicht richtig beschrieben.
Ich möchte Werte in zB. eine ComboBox oder in eine TextBox eingeben und
diese dauerhaft in einem VBA - Code speichern ohne diese Werte dierekt in
einem VBA - Code einzugeben oder sie in einer Tabelle zu hinterlegen.
Die Idee diese als konstante Bereichsnamen zu hinterlegen ist zwar sehr gut
aber nicht so elegant.
Gibt es dafür eine andere Möglichkeit ???
Gruß und herzlichen Dank vorab
Uwe
Hallo Uwe
End With
End Sub
Ciao Peter
"Susanne Gann" <ga...@0711office.de> schrieb im Newsbeitrag
news:edlJVH2vBHA.2172@tkmsftngp02...
Wilfried Butzek
>
> Hallo zusammen ...
> Voran herzlichen dank an Susanne und Peter für Eure Hilfe :-)
> Leider habe ich mein Problem offensichtlich nicht richtig beschrieben.
> Ich möchte Werte in zB. eine ComboBox oder in eine TextBox eingeben und
> diese dauerhaft in einem VBA - Code speichern ohne diese Werte dierekt in
> einem VBA - Code einzugeben oder sie in einer Tabelle zu hinterlegen.
> Die Idee diese als konstante Bereichsnamen zu hinterlegen ist zwar sehr gut
> aber nicht so elegant.
> Gibt es dafür eine andere Möglichkeit ???
Hallo Uwe,
möglicherweise habe ich Dein Problem nicht verstanden,
dann bitte ich jetzt schon um Entschuldigung, aber...
gespeichert wird im (flüchtigen RAM), solange die
Anwendung sich ebenda aufhält ;-))
oder
in einer Datei (Deine Arbeitsmappe) auf der Festplatte;
ggf. kannst Du die Daten auch in einer Textdatei (ähnlich
Deiner Arbeitsmappe - eben nur Text).
Mit freundlichem Gruß
Wilfried
Uwe S.
Dank Dir für Deine Hilfe ...
Kannst du mir noch ein tip geben wie ich die Daten zB. in einem Text -
Editor speichern kann.
Die Richtung oder ein Beispiel würde mir reichen.
Gruß und Dank im voraus
Uwe
"Wilfried Butzek" <Wilfrie...@t-online.de> schrieb im Newsbeitrag
news:a5mef8$u0o$05$1...@news.t-online.com...
Wilfried Butzek
>
> Hi Wilfried
> Dank Dir für Deine Hilfe ...
> Kannst du mir noch ein tip geben wie ich die Daten zB. in einem Text -
> Editor speichern kann.
> Die Richtung oder ein Beispiel würde mir reichen.
Hallo Uwe,
das kannst Du z.B. machen, indem Du die Eingaben
einer Textbox eines Userforms per Klick auf einen
Commandbutton in eine Textdatei schreibst.
Beispiel:
Private Sub CommandButton1_Click()
' In dieser Beispiel-Prozedur werden Eingaben, die
' in einer UserForm-Textbox getätigt wurden, im
' On_Click_Event des CommandButtons in eine Textdatei
' geschrieben und dort gespeichert.
Dim strText As String
' Der Variablen "strText" den Wert der Textbox des
' Userforms zuweisen.
strText = UserForm1.TextBox1.Text
' Öffnen der Testdatei im Modus "Append".
Open "E:\Offivba\Excel_NG\Import_Export\Eingabedaten.txt" _
For Append As #1
' Anfügen des in der Variablen "strText" gespeicherten
' Wertes der Textbox des Userforms.
Write #1, strText
' Textdatei schliessen.
Close #1
End Sub
Beachte, daß in der Textdatei nur Text steht. Falls Du die
Werte später wieder in Excel verwenden willst, mußt Du sie
ggf. wieder in den passenden Datentyp konvertieren
(siehe Dir auch die VBA-Onlinehilfe zu Write, Print, Put,
Input, Get an).
Mit freundlichem Gruß
Wilfried
Uwe S.
Danke Dir für Deine Hilfe hat mir sehr weitergeholfen !!!
Gruß Uwenews:a5p1c0$lpp$01$1...@news.t-online.com...