Vba excel kombinationsfeldern

Computer: Software & Programmierung Office Software
1

Hallo
Also ich habe ein userform mit 5 Kombinationsfeldern, 1 Txtfeld und
3 Befehlbuttons. Die eingegeben Daten werden in eine Tabelle chronologisch geschrieben. Das Problem: schreibt alle Eingabe aber nur der Name der letzte Kombinationsfeld. Hier ist der Listing:

RowCount = Worksheets(„Add new Stock“).Range(„A1“).CurrentRegion.Rows.Count
With Worksheets(„Add new Stock“).Range(„A1“)
.Offset(RowCount, 0).Value = Me.cboBeer.Value
.Offset(RowCount, 1).Value = Me.txtTotalStock.Value
.Offset(RowCount, 0).Value = Me.cboCocktails.Value
.Offset(RowCount, 1).Value = Me.txtTotalStock.Value
.Offset(RowCount, 0).Value = Me.cboDrinks.Value
.Offset(RowCount, 1).Value = Me.txtTotalStock.Value
.Offset(RowCount, 0).Value = Me.cboAlco.Value
.Offset(RowCount, 1).Value = Me.txtTotalStock.Value
.Offset(RowCount, 0).Value = Me.cboChampagne.Value
.Offset(RowCount, 1).Value = Me.txtTotalStock.Value
.Offset(RowCount, 3).Value = Format(Now, „dd/mm/yyyy“)
End With

In mein Bespiel schreibt nur der Name Champagne. Kann mir jemand bitte
sagen was ich falsch mache?
Vielen Dank in voraus
arauca

2

chronologisch geschrieben. Das Problem: schreibt alle Eingabe
aber nur der Name der letzte Kombinationsfeld. Hier ist der
Listing:
In mein Bespiel schreibt nur der Name Champagne. Kann mir
jemand bitte
sagen was ich falsch mache?

Hi Aurauca,

du schreibst immer in die gleiche Zeile, logo siehst du dann nur die letzten Einträge, in dem Fall Champagne.

Wenn du da 5 Comboboxen hast und 3 glaub Textboxen hast musst du in 8 Spalten was schreiben um eien Chronologie zu erreichen.

Du schreibst quasi Combobox1 in A1, Textbox1 in B1
dann Combobox2 in A1, Textbox2 in B1, usw.usw.
Logisch das dann zum Schluß in A1 der Wert von ComboboxX und in B1 der Wert von textBoxX steht,
X ist in dem Fall halt zufällig der Sekt :smile:

Gruß
Reinhard

3

Hi Reinhard
danke für dein Antwort. Ich habe 5 Kombinationsfelder und 1 txtbox.
Möchte aber das der Auswahl der cboboxen nur in eine Spalte geschrieben wird. Meine Tabelle hat: 1 Spalte (Auswahl der cbobox), 2te Spalte (txtbox), 3te (Datum). Wie lautet das code für schreiben in der erste Spalte?
gruß
arauca

4

Möchte aber das der Auswahl der cboboxen nur in eine Spalte
geschrieben wird. Meine Tabelle hat: 1 Spalte (Auswahl der
cbobox), 2te Spalte (txtbox), 3te (Datum). Wie lautet das code
für schreiben in der erste Spalte?

Hi Aarauca,

den ersten Code brauchst du 5mal, ungetesteter Ansatz:

Option Explicit
'
Private Sub cboBeer()
Call Notieren(cboBeer.Value)
End Sub
'
Sub Notieren(Wert)
Dim rowcount As Long
With Worksheets("Add new Stock")
 rowcount = .Range("A" & Rows.Count).End(xlUp).Row + 1
 .Cells(rowcount, 1).Value = Wert
 .Cells(rowcount, 2).Value = txtTotalStock.Value
 .Cells(rowcount, 3).Value = Format(Now, "dd/mm/yyyy")
End With
End Sub

Gruß
Reinhard

5

Hi Reinhard

Option Explicit
’
Private Sub cboBeer()
Call Notieren(cboBeer.Value)
End Sub
’

bei Private Sub cboBeer() kommt die Fehlermeldung:
Das Element ist bereits in einem Objektmodul vorhanden, von der dieses
Objektmodul abgeleitet wird.

Gruß
arauca

6

Private Sub cboBeer()
Call Notieren(cboBeer.Value)
End Sub
’

bei Private Sub cboBeer() kommt die Fehlermeldung:
Das Element ist bereits in einem Objektmodul vorhanden, von
der dieses
Objektmodul abgeleitet wird.

Hi Arauca,

bastle mal bitte eine kleine Beispieldatei mit den 5 Comboboxen und dem Textfeld wo dieser Fehler kommt und lad sie mal hoch bei http://www.hostarea.de
Gruß
Reinhard

7

Hi Reinhard

hat sich erledigt, habe gefunden!!!
Danke und Gute Nacht
arauca