Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
868to872
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
868to872
868to872
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

ListBox-Einträge als Datum u. Zahl übergeben

ListBox-Einträge als Datum u. Zahl übergeben
18.05.2007 10:42:00
Lenhard
Moin Moin!
Nun ist leider ein Beitrag von mir ins Archiv "abgerutscht". Da ich aber aus eigener Kraft noch nicht weiter komme, muss ich mich noch mal an Euch und ganz besonders an Dich, Josef (Du hattest mir ja bereits primär sehr geholfen!), wenden.
Ich kann mittlerweile (Dank Josefs Hilfe!!) aus einer ListBox in einem UserForm1 Werte in ein neues UserForm2 übergeben.
Mein Problem: TextBoxen übergeben ja Text. Ich möchte aber ein Datum als Datum übergeben und eine Zahl als Zahl übergeben.
Wo muss ich bei meinen Wünschen ansetzen? Muss aus der ListBox des UserForm1 bereits ein "Datumsformat" übergeben werden? ...oder muss der entsprechenden TextBox im UserForm2 gesagt werden, was für ein Format sie hat?
----------------
Übergeben tue ich folgendermaßen (das Grundskript kommt von Josef):

Private Sub ListBoxErgebnisse01_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
'Bei Doppelklick Datum an Textbox, Zahl an TextBox übergeben
If ListBoxErgebnisse01.ListIndex > -1 Then
With UF_PatientenAendern
.TextBoxGebDat = ListBoxErgebnisse01.List(ListBoxErgebnisse01.ListIndex, 5) '### HIER  _
DATUM ###
.TextBoxKV = ListBoxErgebnisse01.List(ListBoxErgebnisse01.ListIndex, 10)    '### HIER  _
ZAHL ###
.Show
End With
End If
End Sub


Danke für Eure Hilfe!!
Gruß aus dem hohen Norden!
Lenhard
-----------------
P.S. Hallo Josef! Ich hoffe das Du dieses hier liest. Vielleicht hast Du es schon gemerkt. Ich hatte noch einen anderen Beitrag eröffnet:
https://www.herber.de/forum/messages/870716.html
Meine Beiträge hängen drehen sich aber eigentlich um ein Projekt, welches ich zu vollenden versuche... Ich mache nur einzelne Beiträge, weil sich immer neue Fragestellungen ergeben und ich wegen der Übersichtlichkeit dieses von Vorteul finde.

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: ListBox-Einträge als Datum u. Zahl übergeben
18.05.2007 10:49:43
Josef
Hallo Lenhard,
TextBoxen enthalten, wie der Name ja schon sagt, immer Text.
Um das Datum Formatiert zu übergeben kannst du z.B.

= Format(ListBoxErgebnisse01.List(ListBoxErgebnisse01.ListIndex, 5), "dd.mm.yyyy")


verwenden.
um Zahlen umzuwandeln verwendest du


= CDbl(ListBoxErgebnisse01.List(ListBoxErgebnisse01.ListIndex, 10))


Beidemale muss allerding sichergestellt sein, das die TB auch wirklich ein Datum bzw. eine Zahl beinhalten.
In die Tabelle schreibst du die Werte so


'Datum
= CDate(ListBoxErgebnisse01.List(ListBoxErgebnisse01.ListIndex, 5))
'Zahl
= CDbl(ListBoxErgebnisse01.List(ListBoxErgebnisse01.ListIndex, 10))


Gruß Sepp

Anzeige
AW: ListBox-Einträge als Datum u. Zahl übergeben
18.05.2007 11:04:00
Lenhard
Vielen Dank Josef!!
Genau das wars!!! Nun läuft's in diesem Bereich! ...und ich schau weiter!!
Gruß!
Lenhard

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige