Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1648to1652
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
Inhaltsverzeichnis

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

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
AW: geklärt --))
15.10.2018 20:12:04
Hajo_Zi
Hallo Klaus,
mein kurzer Code gefiel Dir also nicht.
Gruß Hajo
Anzeige
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
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
Danke an Hajo, Gerd und Matthias !!!
16.10.2018 10:02:23
klaus
Guten Morgen,
danke an EUCH für die
Tipps !
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige