Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
756to760
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
756to760
756to760
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Gültigkeit

Gültigkeit
01.05.2006 14:02:58
Jonathan
Hey,
ich möchte per Schleife einem Gültigkeitsbereich (Liste) Werte zuweisen.
Wie aber kann ich das machen?
Dies ist das, was ich mit dem Rekorder aufgezeichnet habe:

Sub Makro1()
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="2006;2007"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
End Sub

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
mehr Info!
01.05.2006 14:08:31
Josef
Hallo Jonathan!
Gib mal etwas mehr Info, was du genau machen willst!
'******************************
'* Gruß Sepp
'*
'* Rückmeldung wäre nett!
'******************************

AW: mehr Info!
01.05.2006 15:13:48
Jonathan
Hey,
also ich möchte dem Gültigkeitsbereich Jahreszahlen zuweisen, und zwar ab 2006 bis zum aktuellen Jahr + 1
For i = 2006 to Year(Date) + 1
...zuweisen...
next
Jonathan
Anzeige
AW: mehr Info!
01.05.2006 15:47:36
Josef
Hallo Jonathan!
Das geht z.B. so!
Sub AddValidation()
Dim strValidate As String
Dim intC As Integer

For intC = 2006 To Year(Date) + 1
  strValidate = strValidate & CStr(intC) & ","
Next

With Selection.Validation
  .Delete
  .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
    xlBetween, Formula1:=Left(strValidate, Len(strValidate) - 1)
  .IgnoreBlank = True
  .InCellDropdown = True
  .InputTitle = ""
  .ErrorTitle = ""
  .InputMessage = ""
  .ErrorMessage = ""
  .ShowInput = True
  .ShowError = True
End With

End Sub


'******************************
'* Gruß Sepp
'*
'* Rückmeldung wäre nett!
'******************************

Anzeige
AW: mehr Info!
01.05.2006 16:16:09
Jonathan
Hey,
ne, das klappt nicht!
Das Komma müsste durch ein Semikolon ersetzt werden, dann wird aber als Wert auch genau
"2006;2007"
angezeigt!
AW: mehr Info!
01.05.2006 16:20:25
Josef
Hallo Jonathan!
Was funktioniert bei dir nicht nicht?
Das Komma, muss eben schon ein Komma sein!
'******************************
'* Gruß Sepp
'*
'* Rückmeldung wäre nett!
'******************************

Anzeige
AW: mehr Info!
01.05.2006 16:21:39
Jonathan
Hey,
weiß nicht, warum es nicht funktioniert hat!Jetzt klappt es!
Danke Dir!

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige