Forums Neueste Beiträge
 

Auswahl einer ComboBox ausgeben

05/09/2008 - 10:02 von Harald Schlüter | Report spam
Guten Morgen Zusammen,

ich möchte die Auswahl, die in einer ComboBox ausgwàhlt wurde in eine
Excel-Zelle schreiben und habe folgendes Makro (Ausschnitt):

Sheets("start").Activate
Cells(32, 1).Value = frm.cmbDomesticCurrency.Value
Cells(32, 1).Value = frm.cmbTargetCurrency.Value
Cells(32, 1).Value = frm.txtPreis.Value

Der Wert aus dem txt-Feld (Cells(32, 1).Value = frm.txtPreis.Value)
wird ausgegeben; die anderen beiden (ComboBox-Werte) nicht.

Kann mir jemand weiterhelfen?

Besten Dank und viele Grüße

Harald
 

Lesen sie die antworten

#1 Melanie Breden
05/09/2008 - 10:31 | Warnen spam
Hallo Harald,

"Harald Schlüter" schrieb:

ich möchte die Auswahl, die in einer ComboBox ausgwàhlt wurde in eine
Excel-Zelle schreiben und habe folgendes Makro (Ausschnitt):

Sheets("start").Activate
Cells(32, 1).Value = frm.cmbDomesticCurrency.Value
Cells(32, 1).Value = frm.cmbTargetCurrency.Value
Cells(32, 1).Value = frm.txtPreis.Value

Der Wert aus dem txt-Feld (Cells(32, 1).Value = frm.txtPreis.Value)
wird ausgegeben; die anderen beiden (ComboBox-Werte) nicht.



du schreibst alle drei Werte in die gleiche Zelle.
Dabei überschreibst du natürlich die ersten beiden Eintràge wieder und
nur der letzte Wert belibt bestehen.

Du musst das Tabellenblatt auch nicht aktivieren, um Werte hineinzuschreiben.
Referenziere stattdessen genau.

Weiterhin sind die Werte der TextBoxen Text, auch wenn du die Value-Eigenschaft angibst.
Wandel die Textwerte vor dem Übertrag in Zahlenwerte um:

With Sheets("start")
.Cells(32, 1).Value = CDbl(frm.cmbDomesticCurrency.Text)
.Cells(33, 1).Value = CDbl(frm.cmbTargetCurrency.Text)
.Cells(34, 1).Value = CDbl(frm.txtPreis.Text)
End With


Mit freundlichen Grüssen
Melanie Breden

- Microsoft MVP für Excel -

Ähnliche fragen