Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 18:04:29
18.04.2024 16:33:24
Anzeige
Archiv - Navigation
1548to1552
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

1. Wert Auswahlliste auswählen

1. Wert Auswahlliste auswählen
25.03.2017 11:43:27
Stefan
Hallo zusammen,
ich erstelle mit u.a. Code eine Auswahlliste.
Weiß jemand wie man danach auch automatisch den 1. Wert der Auswahlliste wählt?
Bei mir ist die Zelle dann nämlich leer, die Auswahlliste ist aber selektierbar.
Sheets("Auswertung").Select
Range("ai7").Select
Selection.ClearContents
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=$A$2:$A$10"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With

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

Betreff
Datum
Anwender
Anzeige
AW: 1. Wert Auswahlliste auswählen
25.03.2017 11:50:13
Hajo_Zi

Option Explicit
Sub List()
Sheets("Auswertung").Activate
Range("ai7").Select
Range("ai7").ClearContents
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=$A$2:$A$10"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
Range("Ai7") = Range("A2")
End Sub
Gruß Hajo
AW: 1. Wert Auswahlliste auswählen
25.03.2017 11:56:43
Stefan
Super, vielen Dank.
Es kann ja so einfach sein :-)
Anzeige

313 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige