Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
24.04.2024 18:49:56
Anzeige
Archiv - Navigation
1120to1124
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

Daten/Gültigkeit via VBA

Daten/Gültigkeit via VBA
chrissey
Hallo Leut,
folgender Sachverhalt:
Möchte über Daten/Gültigkeit die Eingabewerte für die Zelle auf
-offen
-in Bearbeitung
-erledigt
reduzieren, aber ohne dass ich diese Werte in einem bestimmten Zellbereich hinterlege. Also
Sub Makro1()
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=E3:E5"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
End Sub
Kann ich hier die Werte auch in Form einer Variablen (z.B.: a, b, c) anstelle des Zellbereichs
E3:E5 hinterlegen
Ich hoffe ich habe den Sachverhalt verständlich formuliert
Wenn nicht bitte Rückfragen.
Danke Euch schon mal, Grüße und schönes WE
Chrissey

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Daten/Gültigkeit via VBA
11.12.2009 13:14:38
ramses
Hallo
Dann trage die WErte doch einfach in das Listen-Quellenfeld der Gültigkeit ein
="offen";"in Bearbeitung";"erledigt"
Gruss Rainer
Formula1:="offen, in Bearbeitung, erledigt" '_oT
11.12.2009 13:33:42
NoNet
_oT
AW: Formula1:="offen, in Bearbeitung, erledigt" '_oT
11.12.2009 13:44:22
chrissey
Ah Ok!!! Dankeschön... Wünsch Euch ein schönes WE
Danke
mit Variable
11.12.2009 14:45:30
Rudi
Hallo,
Sub Makro1()
Dim arrVal
arrVal = Array("offen", "in Bearbeitung", "erledigt")
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
Operator:=xlBetween, Formula1:=Join(arrVal, ",")
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
End Sub

Gruß
Rudi
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige