Projektanfrage

Projektanfrage über Web Formular   per Online-Formular 
Projektanfrage über E-Mail  Diese E-Mail-Adresse ist vor Spambots geschützt! Zur Anzeige muss JavaScript eingeschaltet sein!
Projektanfrage per Telefon  +49 (0)151 / 164 55 914
Projektanfrage weitere Informationen  weitere Informationen 

Sie benötigen Hilfe oder Unter-stützung? Nutzen Sie für Ihre Anfrage unser Online-Formular, senden Sie uns eine Diese E-Mail-Adresse ist vor Spambots geschützt! Zur Anzeige muss JavaScript eingeschaltet sein! oder rufen Sie uns einfach an.

   
      Referenzen 

 Bosch 
  T-Systems
  Hagebau
  Siemens
 Areva  VW
 Haufe-Lexware  British American Tobacco
  nagel group farbe
   
     Programmierung
Excel Auftragsprogrammierung Access Auftragsprogrammierung
Word Auftragsprogrammierung Outlook Auftragsprogrammierung
   
   

Projektanfrage

 Sie benötigen eine Auftragsprogrammierung?
 Oder suchen Unterstützung bei der Lösungs-
 findung?

  Nutzen Sie unser Anfrageformular

  Jetzt anrufen unter 0151 / 164 55 914

 Diese E-Mail-Adresse ist vor Spambots geschützt! Zur Anzeige muss JavaScript eingeschaltet sein! Projektanfrage per Diese E-Mail-Adresse ist vor Spambots geschützt! Zur Anzeige muss JavaScript eingeschaltet sein! senden

  Weitere Informationen

sitepanel question2

P
r
o
j
e
k
t
a
n
f
r
a
g
e
   

DropDown Liste mit Mehrfachauswahl

Sie kennen sicherlich die Möglichkeit, über sogenannte DropDown-Listen (Auswahlliste) eine Auswahl zu treffen. Eine Auswahlliste wird über das Menü Daten / Datentools / Datenüberprüfung erzeugt. Wenn Sie als Gültigkeitskriterium Liste auswählen und unter Quelle die einzelnen Auswahlmöglichkeiten durch Semikolon (;) getrennt angeben, erscheint nach Beenden des Befehls in der gewählten Zelle die entsprechende DropDown-Liste.

Alternativ kann anstatt der einzelnen Auswahlbegriffe auch eine Bezug zu einer Excel-Tabelle angegeben werden. In unserem Beispiel befinden sich die Auswahlbegriffe auf einem eigenen Tabellenblatt. Um diese Liste als mögliche Auswahlkriterien für die Datenüberprüfung festzulegen, geben Sie dieser einfach einen Namen, z. B. auswahl, siehe Abbildung 1.


Abbildung 1

Nachdem der Bereichsname für die Auswahlliste definiert ist, können wir die Gültigkeitsprüfung auf unserem Erfassungsblatt einrichten. Im Beispiel sollen für die wöchentliche Besprechung die Teilnehmer über ein DropDown-Menü ausgewählt werden.

Markieren Sie dazu den Zellbereich B4:B14 und tragen nun den Bereichsnamen auswahl als Listen-Quelle in die Datenüberprüfung als Gültigkeitskriterium ein, siehe Abbildung 2.


Abbildung 2

Damit stehen die Auswahlmöglichkeiten in den genannten Zellen per DropDown-Liste zur Verfügung.

Allerdings kann standardmäßig nur jeweils ein einziger Begriff, im Beispiel also ein einziger Teilnehmer ausgewählt werden. Sobald ein anderer Teilnehmer ausgewählt wird, wird der vorher ausgewählte wieder überschrieben und mit dem neuen ersetzt.

Um diese Problematik zu beseitigen, können Sie den nachfolgenden VBA-Code verwenden. Damit wird die Mehrfachauswahl per DropDown-Liste ermöglicht.

Erfassen Sie den VBA-Code im Code-Modul des Tabellenblatts, auf dem Sie die Funktion benötigen, da der Code die über die Change-Funktion des Arbeitsblatts aktiviert wird.

Private Sub Worksheet_Change(ByVal Target As Range)
'** Mehrfachauswahl über DropDown-Liste (Gültigkeitsprüfung)
'** Einfügen im Code-Container des betreffenden Arbeitsblattes

'** Dimensionierung der Variablen
Dim rngDV As Range
Dim wert_old As String
Dim wertnew As String

'** Errorhandling
On Error GoTo Errorhandling

'** Mehrfachauswahl im definierten Bereich (Bsp. B4:B14) durchführen
If Not Application.Intersect(Target, Range("B4:B14")) Is Nothing Then

  '**Range definieren
  Set rngDV = Target.SpecialCells(xlCellTypeAllValidation)
  If rngDV Is Nothing Then GoTo Errorhandling
  
  '** Prüfen, ob eine gültige Zelle ausgewählt wurde und Werte eintragen
  If Not Application.Intersect(Target, rngDV) Is Nothing Then
    Application.EnableEvents = False
    wertnew = Target.Value
    Application.Undo
    wertold = Target.Value
    Target.Value = wertnew
    If wertold <> "" Then
      If wertnew <> "" Then
        Target.Value = wertold & ", " & wertnew
      End If
    End If
  End If
  Application.EnableEvents = True
End If

Errorhandling:
Application.EnableEvents = True
End Sub

Wenn Sie den Code eingefügt haben, steht die Funktion der Mehrfachauswahl wie gewünscht zur Verfügung, siehe Abbildung 3.


Abbildung 3

Sie können nun beliebig viele Auswahlmöglichkeiten zu einer einzigen Zellen hinzufügen. Die einzelnen Begriffe werden mit Kommata getrennt. Wenn Sie ein anderes Trennzeichen wie Semikolon (;) oder Schrägstrich (/) verwenden möchten, so können Sie den VBA-Code in folgender Zeile einfach anpassen, siehe rotes Zeichen.

      If wertnew <> "" Then
        Target.Value = wertold & "/ " & wertnew
      End If

 

Die Beispieldatei können Sie über über den folgenden Download-Link herunterladen.

   

Relevante Artikel

  • Quartal und Halbjahr aus Datum ermitteln

    Dieser Beitrag zeigt, wie sich das Quartal und das Halbjahr mit Hilfe einer kleinen Formel aus einem Datum ableiten lassen. Im Beispiel befindet sich das Ausgangsdatum in Zelle A1. Zur Ermittlung...

  • Variablen Bereichsnamen dynamisch erzeugen - Dropdown-Menüs

    Bereichsnamen werden typischerweise verwendet, um einem definierten Zellbereich z. B. A1:B20 einen Namen zuzuweisen, über den dieser Bereich angesprochen werden kann. Der Befehl zur Erstellung von...

  • SUMMEWENN mit mehreren Suchkriterien

    204001 Es sollen alle Werte addiert werden, die mit den Kriterium >0=3 und y übereinstimmen summiert werden. In Zelle A14 und B14 stehen die Suchkriterien. In diesem Fall lauten sie: >=3 und y.   A B...

  • Text mit formatierem Datum oder formatierter Zahl verknüpfen

    Um das Datum aus Zelle A1 mit einem Text zu verknüpfen ist die Funktion Text notwendig. Der Funktion Text kann zusätzlich zum Wert ein Textformat übergeben werden. Die Funktion Text hat also...

  • Dateneingabe mittels (Daten-)Maske

    Dieser Tipp zeigt, wie strukturierte Daten ganz einfach und trotzdem komfortabel mit Hilfe der integrierten Dateneingabe-Maskein ein Excel-Tabellenblatt eintragen werden können. Als Beispiel dient...