VBA Gültigkeit wenn in C gefüllt
06.01.2006 11:52:50
Lupo
wer ist mir bitte behilflich? Kann selbst noch nicht das VBA erstellen:
Bedingung:
Schleife: wenn C nicht leer, dann Gültigkeit in nachstehenden Bereich
Ziel: es sollte in den nachstehendem Bereich (Spalten - im Beispiel jedoch nur als Zeile 3) eine Gültigkeit eingetragen werden. Habe nur die Zeile 3 einfachhalber aufgezeichnet. Es sollte also, wenn immer in C etwas steht, ensprechend in den anderen Spalten in dieser Zeile (variable Zeilenanzahl) die Gültigkeit aktiv sein. Für ein VBA wäre ich sehr dankbar!!
Gruß
Lupo
Beispiel: anstelle ganzer Spalten hier nur Zelle 3,
Starten sollte das ganze ab Zeile 3 bis soviel, wie gefunden wird in C
Sub Gültig_x()
Range("O3,Q3,S3,U3,W3,Y3,AA3,AC3,AE3,AG3,AI3,AK3,AM3,AO3,AQ3,AS3,AU3,AW3,AY3,BA3,BC3,BE3,BG3,BI3,BK3,BM3,BO3,BQ3,BS3,BU3,BW3").Select
Range("BW3").Activate
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="x"
.IgnoreBlank = False
.InCellDropdown = False
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = "Nur Eingabe kleines x möglich!"
.ShowInput = False
.ShowError = True
End With
End Sub