title image


Smiley Re: Gültigkeitsprüfung für mehrer Tabellen aus gleicher Liste
Hallo modulo,

gebe deiner Liste für die Gültigen Wert einen Namen, im CodeBeispiel GueltListe,

dann setzt folgender Code eine Gültigkeit in allen Blättern der aktiven Mappe im Bereich B1:B10:



Sub Gueltigkeit()



Dim ws As Worksheet



For Each ws In ActiveWorkbook.Worksheets



With ws.Range("B1:B10").Validation

.Delete

.Add Type:=xlValidateList, Formula1:="=GueltListe"

End With

Next ws



End Sub


Gruß Worti <img src="http://media2.giga.de/2015/06/snapchat-smiley-sonnenbrille.png">



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: