Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 12:58:59
Daten einfügen aus anderem Sheet
19.04.2024 12:23:24
Wenn-Formel anpassen
19.04.2024 12:09:19
Unique (Application.WorksheetFunction.Unique)
19.04.2024 11:51:37
Nächsten identischen Treffer suchen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
760to764
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
760to764
760to764
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Übergabe aus ComboBox

Übergabe aus ComboBox
08.05.2006 13: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
Anzeige
AW: Übergabe aus ComboBox
08.05.2006 14: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 14: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
Anzeige
AW: Übergabe aus ComboBox
08.05.2006 14:20:56
u_
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 14: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

Links zu Excel-Dialogen

ComboBox CommandButton

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige