title image


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

natürlich wird auch die Tabelle "GueltListe" aufgerufen, aber das bekommst du leicht in den Griff mit einem simplen If:

If ws.Name "GueltListe" Then ...

Wenn du die einzelnen Tabellen mit Namen ansprechen willst und die heißen Tabelle1, Tabelle2 etc., dann ginge folgendes:





      

Sub Gueltigkeit()

    

    Const TabName = "Tabelle"

    Dim I As Integer

    

    For I = 1 To 88

        With Worksheets(TabName & I).Range("B1:B10").Validation

            .Delete

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

        End With

    Next I



End Sub

 



Code eingefügt mit Syntaxhighlighter 3.0




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: