Übergabe aus ComboBox

Forumthread: Übergabe aus ComboBox
4 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Übergabe aus ComboBox

08.05.2006 15:56:56

Frank

Hallo,
könnte mir bitte jemand mit unten geschriebenem Code
behilflich sein.
Ich möchte über eine Userform mit einer ComboBox
und einem CommandButton, Werte in eine Tabelle
ab Zelle B8......B9.... B10........ übergeben wobei
die Werte immer in die nächste freie Zelle
geschrieben werden sollten.


Private Sub CommandButton1_Click()
Range("B8").Select
ActiveCell.FormulaR1C1 = ComboBox1
Unload UserForm1
End Sub

Wie müsste der Code dann aussehen?
Viele Grüsse
Frank

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Übergabe aus ComboBox

08.05.2006 16:18:31

Peter
AW: Übergabe aus ComboBox

08.05.2006 16:20:53

Harald
AW: Übergabe aus ComboBox

08.05.2006 16:20:56

u_
AW: Übergabe aus ComboBox

08.05.2006 16:26:48

Frank

AW: Übergabe aus ComboBox

08.05.2006 16:18:31

Peter

Hallo Frank,
so sollte es gehen:


Private Sub CommandButton1_Click()
Dim lLetzte  As Long
lLetzte = Range("B65536").End(xlUp).Row + 1
Range("B" & lLetzte).Value = UserForm1.ComboBox1.Value
Unload UserForm1
End Sub

Viele Grüße Peter
Eine kurze Nachricht, ob es läuft, wäre nett - danke.

AW: Übergabe aus ComboBox

08.05.2006 16:20:53

Harald

Halo Frank,
grundsätzlich so.


Private Sub CommandButton1_Click()
dim Lrow as long
Lrow = cells(rows.count, 2).end(xlup).row +1 'erste freie in Spalte A
cells(Lrow, 2) = ComboBox1.value
Unload UserForm1
End Sub

Gruss Harald

AW: Übergabe aus ComboBox

08.05.2006 16:20:56

Hallo,


Private Sub CommandButton1_Click()
Dim lngRow as Long
lngRow=Range("B65536").End(xlUp).Row+1
if lngRow<8 Then lngRow=8
cells(lngRow,2)=ComboBox1
'Unload UserForm1
End Sub

Gruß
Geist ist geil!
(Dies ist ein allgemeines Statement und nicht an bestimmte Personen gerichtet.)

AW: Übergabe aus ComboBox

08.05.2006 16:26:48

Frank

Hallo alle miteinander,
vielen Dank für die zahlreiche Hilfe,
funktioniert jetzt so wie ich es mir gedacht habe.
Einen schönen Tag
wünsch Euch
Frank