Office: Text in zelle geschrieben

Hallo miteinander,

ich habe ein Userform mit einer Combobox2 die aus einer anderen Tabelle befüllt wird. In anderen Tabelle steht in Spalte A der Text, der in der Combobox2 ausgewählt wird und in der Spalte B seht dann die Zahl die er in die Zelle einträgt. Diese Zahl wird dann benötigt um weitere Berechnungen mit einer Formel durchzuführen. Jetzt wird aber Text übergeben und keine Zahl. Jetzt kann die Formel natürlich nicht rechnen.

PHP:

         Private Sub ComboBox2_DropButtonClick()
Dim I As Integer
ComboBox2.ColumnWidths = "0 Pt;30 Pt;40 Pt"
ComboBox2.Clear
For I = 3 To 40
ComboBox2.ColumnCount = 2
ComboBox2.TextColumn = 2
ComboBox2.AddItem Sheets("TZ").Cells(I, 2)
ComboBox2.List(I - 3, 1) = Sheets("TZ").Cells(I, 1)

Next I


End Sub


:)

 

ich sehe in Deinen Code nicht wo was an Spalte B übergeben wird.
der Fehler ist =Combobox1 da Combox Text enthlt. benutze Umwandlungsfunktionen z.b, Cdbl()

Im Forum kann der Beitrag als erledigt markiert werden. Also mache es unten links mit Klick auf den Schalter "als erledigt setzen", falls Problem gelöst.
Der Zustand des Beitrages wird dann in der Übersicht angezeigt und man braucht sich diese Beiträge nicht mehr ansehen.

 

Hi Wolf,

wenn du den Wert an die Zelle übergibst, dann musst du ihn vorher in eine Zahl umwandeln - z.B. = CDbl(....)

 

mein Lösungsansatz wäre in diese Richtung gegangen, aber es funktioniert natürlich nicht.

PHP:

         ComboBox2.List(I - 3, 1) = Sheets("TZ").Cells(I, 1).Value = ComboBox2


 

Du wolltest was in die Tabelle schreiben also sollte die Tabbel auch als erstes stehen.
Mein Vorschlag und Karion Vorschlag hat Dir nicht gefallen.
Da Du diese Lösungen nicht anwenden willst, wird es wohl keine Lösung geben.

 

Wenn der ausgewälte Wert aus der 2. Spalte der ComboBox an die Zelle übergeben werden soll, dann nach diesem Prinzip:

Code:

 

Hallo Karin,

ich habe jetzt viele Varianten ausprobiert, dass ich den Text in einer Zahl in meine Tabelle bekomme, leider hat nichts funktioniert.

Jetzt habe ich eine Lösung mit deiner Hilfsspalte gemacht und nehme diese Formel dafür "=WERT(O5)" und jetzt klappt die Formelberechnung.

Gruss
Wolf

 

Hi Wolf,

weshalb denn so umständlich wenn es auch einfacher geht - so wie ich beschrieben habe...

Übrigens sehe ich nach wie vor nicht, wie dein Code für das Eintragen der Auswahl in die Zelle aussieht - bisher hast du nur den Code gepostet, der die ComboBox aus den Zellen füllt. Lade doch einfach mal eine Beispielmappe hoch.

 

Hallo Karin,

das ist der Code zum Übertragen in die Tabellenzelle:

PHP:

         Private Sub CommandButton1_Click()
Dim Zeile As Long
Dim datDateTime As Date
Dim blnCheck As Boolean

blnCheck = Len(TextBox1) <= 6 Or Len(TextBox1) = 6

If Not blnCheck Then
MsgBox "Falsche Eingabe in Produzierte Menge!", 48, "Hinweis"
TextBox1.SetFocus
Exit Sub
End If

With Worksheets("Arbeitszeiten")
Zeile = .Cells(.Rows.Count, 2).End(xlUp).Row + 1
If Zeile < 5 Then Zeile = 5

.Cells(Zeile, 1).Value [color="Blue"][/color]= Format(Date, "dddd")
.Cells(Zeile, 2).NumberFormat = "m/d/yyyy"
.Cells(Zeile, 2).Value = Date
.Cells(Zeile, 3).Value = Format(Time, "hh:mm")
.Cells(Zeile, 5).Value = Cells(5, 4).Value
.Cells(Zeile, 6).Value = Cells(6, 4).Value
.Cells(Zeile, 7).Value = Cells(7, 4).Value
.Cells(Zeile, 8).Value = UserForm.TextBox1.Value
.Cells(Zeile, 12).Value = UserForm.TextBox2.Value
.Cells(Zeile, 13).Value = UserForm.TextBox3.Value
.Cells(Zeile, 9).Value = UserForm.ComboBox1.Value
.Cells(Zeile, 15).Value = UserForm.ComboBox2.Value

.Cells(Zeile, 10).Value = UserForm.TxT.Value
Worksheets("Stoppuhr").CommandButton1.Caption = "(STOPP) Uhr läuft!"
Range("Z1").Value = Zeile
UserForm.TxT.Text = ""
Unload UserForm
End With
End Sub


 

Hi Wolf,

zum Füllen der ComboBox2 würde ich nicht das DropBottonClick-Ereignis sondern das Enter-Ereignis verwenden:

Code:

Bei mir bewirkt dein Code im DropBottonClick, dass nach Auswahl eines Eintrags diese Auwahl nicht mehr in der ComboBox angezeigt wird.


Bei dir steht in ComboBox2 in der 2. Spalte die Zahl die übertragen werden soll? Dann ändere die Zeile in deinem Code zum Übertragen wie folgt:

Code:

Du kannst anstelle CDbl auch CLng verwenden, falls es sich um keine Dezimalzahlen handelt.

Falls sich dein CommandButton1 auf dem UserForm befindet, kannst du anstelle UserForm.ComboBox2... auch Me.ComboBox2... (und das für alle Steuerelemente) schreiben - ist etwas kürzer.

 

Hallo Karin,

was kann ich noch anderes sagen: „ du bist einfach die Beste!"

Vielen Dank für deine Bemühungen und ich bin leider immer noch ein
Anfänger im VBA, aber ich habe wieder was dazu gelernt.

LG Wolf38