Live-Forum - Die aktuellen Beiträge
Datum
Titel
07.05.2024 21:30:42
Bilder aus URL in Zelle einfügen - Code anpassen
07.05.2024 20:36:09
xverweis / name Funktion
07.05.2024 20:10:42
Datum z.B. 1897 wird nicht als Datum angezeigt
07.05.2024 19:47:07
Excel Lohnabrechnung anhand 2 Suchkriterien
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1924to1928
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
1924to1928
1924to1928
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Spalten der ComboBox

Spalten der ComboBox
27.03.2023 14:56:29
wolepo

Hallo,
ich möchte die beiden Spalten der Combobox1 in unterschiedliche Spalten einer Tabelle einfügen. Also der Inhalt der Spalte1 der ComboBox soll in Spalte 9 der Tabelle und der Inhalt der Spalte 2 in Spalte 5. Leider stehe ich auf den Schlauch. Kann jemand helfen?
Danke

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Spalten der ComboBox
27.03.2023 15:13:09
Nepumuk
Hallo,

im Prinzip so:

    With ComboBox1
        Cells(1, 9).Value = .List(.ListIndex, 0)
        Cells(1, 5).Value = .List(.ListIndex, 1)
    End With
Gruß
Nepumuk


AW: Spalten der ComboBox
27.03.2023 15:15:02
Rudi Maintaire
Hallo,
so?
Private Sub ComboBox1_Change()
  Range("I1") = ComboBox1.Column(0)
  Range("E1") = ComboBox1.Column(1)
End Sub
Gruß
Rudi


AW: Spalten der ComboBox
27.03.2023 15:58:39
wolepo
Danke, Ich habe Rudis version gewählt.


AW: Spalten der ComboBox
27.03.2023 15:37:33
Beverly
Hi,

meinst du die jeweils die gesamte Spalte oder nur den ausgewählten Eintrag? Die gesamte Spalte z.B. so:

    Dim lngZaehler As Long
    For lngZaehler = 0 To ComboBox1.ListCount - 1
        Cells(lngZaehler + 1, 9) = ComboBox1.List(lngZaehler, 1)
        Cells(lngZaehler + 1, 5) = ComboBox1.List(lngZaehler, 0)
    Next lngZaehler
Bis später
Karin

Anzeige

Links zu Excel-Dialogen

ComboBox

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige