Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1648to1652
1648to1652
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Combobox wert einsetzen

Forumthread: Combobox wert einsetzen

Combobox wert einsetzen
15.10.2018 18:35:16
klaus
Hallo allerseits,
ich habe folgendes Makro:
Public Sub ComboBox1_Change()
Dim strTabName As String
strTabName = ActiveSheet.Name
Sheets(strTabName).Range("M2") = ActiveSheet.ComboBox1.Value
If ComboBox1.ListIndex = 1 Then
MsgBox "ja"
Sheets(strTabName).Range("J2") = 1
Else
Sheets(strTabName).Range("J2") = ""
MsgBox "falsch"
End If
Ich möchte, wenn ich den 1.Wert angeklickt habe, das dann in A10 eine 1 gesetzt wird, beim 2.ausgewählten Text eine 2 u.s.w.
irgenwie klappt es nicht.
mfg klausk
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Combobox wert einsetzen
15.10.2018 18:42:24
Hajo_Zi
ActiveSheet.ComboBox1.Listindex+1

Beiträge von Werner, Luc, robert, J.O.Maximo und folgende lese ich nicht.
geklärt --))
15.10.2018 18:42:31
klaus
Hallo allerseits,
habe es rausgefunden:
If ComboBox1.ListIndex = 0 Then Sheets(strTabName).Range("J10") = 1
If ComboBox1.ListIndex = 1 Then Sheets(strTabName).Range("J10") = 2
If ComboBox1.ListIndex = 2 Then Sheets(strTabName).Range("J10") = 3
mfg klaus k
Anzeige
AW: geklärt --))
15.10.2018 20:12:04
Hajo_Zi
Hallo Klaus,
mein kurzer Code gefiel Dir also nicht.
Gruß Hajo
AW: geklärt --))
15.10.2018 21:00:39
Gerd
Moin Klaus! 
Private Sub ComboBox1_Change()
Const strTabName As String = "Tabelle2"
If ComboBox1.ListIndex > -1 Then Sheets(strTabName).Cells(10, 10) = ComboBox1.ListIndex + 1
End Sub

Gruß Gerd
Anzeige
AW: geklärt --))
15.10.2018 21:11:59
Gerd
Moin Klaus! 
Private Sub ComboBox1_Change()
Const strTabName As String = "Tabelle2"
If ComboBox1.ListIndex > -1 Then Sheets(strTabName).Cells(10, 10) = ComboBox1.ListIndex + 1
End Sub

Gruß Gerd
siehe Hajo
15.10.2018 21:25:58
Matthias
Sheets(strTabName).Range("J10") = ComboBox1.ListIndex + 1
Anzeige
Danke an Hajo, Gerd und Matthias !!!
16.10.2018 10:02:23
klaus
Guten Morgen,
danke an EUCH für die
Tipps !
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige