Combobox wert einsetzen

Forumthread: Combobox wert einsetzen
7 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Combobox wert einsetzen

15.10.2018 20: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

AW: Combobox wert einsetzen

15.10.2018 20:42:24

Hajo_Zi
geklärt --))

15.10.2018 20:42:31

klaus
AW: geklärt --))

15.10.2018 22:12:04

Hajo_Zi
AW: geklärt --))

15.10.2018 23:00:39

Gerd
AW: geklärt --))

15.10.2018 23:11:59

Gerd
siehe Hajo

15.10.2018 23:25:58

Matthias
Danke an Hajo, Gerd und Matthias !!!

16.10.2018 12:02:23

klaus

AW: Combobox wert einsetzen

15.10.2018 20: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 20: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 22:12:04

Hajo_Zi

Hallo Klaus,
mein kurzer Code gefiel Dir also nicht.
Gruß Hajo

AW: geklärt --))

15.10.2018 23: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 23: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 23:25:58

Matthias

Sheets(strTabName).Range("J10") = ComboBox1.ListIndex + 1

Danke an Hajo, Gerd und Matthias !!!

16.10.2018 12:02:23

klaus

Guten Morgen,
danke an EUCH für die
Tipps !