Inhalt Kombinationsfeld in Tabelle übernehmen

Guten Tag,
ich möchte den Inhalt eines Kombinationsfeldes in eine Excel Tabelle übernehmen. Mit eine UserForm, in dem das Kombinationsfeld eingebaut ist. Darin stehen 2 Werte, die auswählbar sind.
Der Code dieses Kombinationsfeldes ist:

Private Sub ComboBox1_Change()
Range("G23") = ComboBox1
End Sub

In der Excel Tabelle ist eine Spalte, die mit G23 beginnt und dann weitergeführt wird (G23:G100)
Der Wert, der aus dem Kombinationsfeld übernommen werden soll, soll jeweils am Ende dieser Spalte eingefügt werden, als nach dem letzten Eintrag.
Da ich Anfänger bin, bekomme ich das nicht hin.
Wäre über jede Hilfe sehr dankbar.
Windows 8.1 Pro 64bit, Excel 2013 64bit
Vielen Dank und ein frohes Weihnachtsfest.
Gruß

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo,
ich habe nun versucht, das ganze anzupassen, leider ohne Erfolg.
Ich stelle hier einmal den gesamten Code ein, der aber so nicht funktioniert.
Vielleicht kannst Du oder jemand der Experten einmal schauen, woran das liegen kann.
Vielen Dank.

Private Sub Datum_Change()
Range("C26") = TextBox1.Value
End Sub
Private Sub Liter_Change()
End Sub
Private Sub KM_Stand_Change()
End Sub
Private Sub Betrag_Change()
End Sub
Private Sub ComboBox1_Change()
Dim lRow As Long
On Error Resume Next 'Falls Bereich leer ist
lRow = Sheets("Tanken 13").Range("G28:G100").Find(What:="*", searchdirection:=xlPrevious).Row ' _
Tabellennamen anpassen
lRow = IIf(lRow = 0, 22, lRow)
Cells(lRow + 1, 7).Value = ComboBox1.Value
Unload Me
End Sub
Private Sub UserForm_Initialize()
With ComboBox1
.AddItem "Wahl 1"
.AddItem "Wahl 2"
End With
End Sub
Private Sub CommandButton1_Click()
Dim Loletzte As Long
Loletzte = IIf(IsEmpty(Cells(Rows.Count, 3)), Cells(Rows.Count, 3).End(xlUp).Row, Rows. _
Count) + 1
If TextBox1  "" And IsDate(TextBox1) Then
Cells(Loletzte, 3) = CDate(TextBox1)
If TextBox2  "" And IsNumeric(TextBox2) Then
Cells(Loletzte, 4) = CDbl(TextBox2)
End If
If TextBox3  "" And IsNumeric(TextBox3) Then
Cells(Loletzte, 6) = CDbl(TextBox3)
End If
If TextBox3  "" And IsNumeric(TextBox4) Then
Cells(Loletzte, 5) = CDbl(TextBox4)
End If
End If
Unload Me
End Sub
Private Sub CommandButton2_Click()
Unload Me
End Sub

Beliebteste Forumthreads (12 Monate)

Inhalt Kombinationsfeld in Tabelle übernehmen

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Inhalt Kombinationsfeld in Tabelle übernehmen

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread