Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
576to580
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
576to580
576to580
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Gültigkeit für mehrere Blätter

Gültigkeit für mehrere Blätter
02.03.2005 16:16:04
Andreas
Hallo,
folgendes Problem:
ich habe mehrere (18) Tabellenblätter, bei denen jeweils in den Bereichen: Spalte E:Q, Spalte V:AH nur ganze Zahlen von 0 bis 15 eingegeben werden dürfen. Über Daten/Gültigkeit geht das ja. Aber zum einem müßte ich das dann 18 mal erledigen und andererseits- wenn sich mal der Bereich oder die Zahlen(menge) ändern sollten, muss ich ja den ganzen Aufwand je Tabellenblatt erneut durchgehen.
Frage: Gibt es eine einfachere Methode (VBA) für dieses Problem?
Danke schon mal
Andreas

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Gültigkeit für mehrere Blätter
02.03.2005 16:31:31
c0bRa
hio... ;)
Sub Gueltigkeit()
Dim i As Integer
i = 1
Sheets(i).Activate
While i <> Sheets.Count + 1
Range("A1:C20").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateWholeNumber, AlertStyle:=xlValidAlertStop, _
Operator:=xlBetween, Formula1:="0", Formula2:="15"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = "Fehler"
.InputMessage = ""
.ErrorMessage = "Gültigkeitsbereich verlassen"
.ShowInput = True
.ShowError = True
End With
On Error Resume Next
Sheets(ActiveSheet.Index + 1).Activate
i = i + 1
Wend
End Sub

sollte gehen... ;) viel spass damit

Das Forum lebt auch von Rückmeldungen...
c0bRa
Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige