Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1268to1272
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

Mehrfachauswahl in Dropdown

Mehrfachauswahl in Dropdown
chadijah
Hallo zusammen,
ich habe folgendes Problem: Ich versuche in Excel ein Dropdown mit Mehrfachauswahl zu erstellen. Folgende Code habe ich bereits gefunden, leider funktioniert diese Formel nur auf eine Spalte, ich braüchte aber ein Dropdown mit Mehrfachauswahl in verschiedene Spalten: Da ich keine Ahnung von VBA habe,weiß ich nicht wie ich die Code schreiben sollte, ich hoffe das jemand mir helfen kann :-)
Danke
Const TargetColumn As Long = 3 ' Ziele in Spalte 3.
Dim blockedEvent As Boolean
Dim TargetOldText As String
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = TargetColumn Then
If Not blockedEvent Then
blockedEvent = True
If Not TargetOldText = "" And Not Target.Value = "" Then
Target.Value = TargetOldText & ", " & Target.Value
Else
Target.Value = Target.Value
End If
TargetOldText = Target.Value
Else
blockedEvent = False
End If
Else
TargetOldText = ""
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Target.Column = TargetColumn Then
TargetOldText = Target.Value
End If
End Sub

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Mehrfachauswahl in Dropdown
29.06.2012 07:15:05
fcs
Hallo chadijah,
100% hab ich dein Ziel nicht verstanden.
Wenn du den gleichen Effekt in mehreren Spalten haen möchtest, dann geht das mit fplgenden Anpassungen. Die Nummern der Spalten in den beiden Case-Anpassungen muss du an deine Wünsche Anpassen.
Gruß
Franz
Option Explicit
Dim blockedEvent As Boolean
Dim TargetOldText As String
Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Column
Case 3, 5 To 7 'Spalten C, E bis G
If Not blockedEvent Then
blockedEvent = True
If Not TargetOldText = "" And Not Target.Value = "" Then
Target.Value = TargetOldText & ", " & Target.Value
Else
Target.Value = Target.Value
End If
TargetOldText = Target.Value
Else
blockedEvent = False
End If
Case Else
TargetOldText = ""
End Select
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
Select Case Target.Column
Case 3, 5 To 7 'Spalten C, E bis G
TargetOldText = Target.Value
Case Else
'do nothing
End Select
End Sub

Anzeige
AW: Mehrfachauswahl in Dropdown
29.06.2012 08:08:45
chadijah
Hallo Franz,
das ist genau was ich gesucht habe. Vielen Dank
Mit freundlichen Grüßen
Chadijah

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige