Gültigkeit erstellen

[Nukleus]

Hallo Forum,

ich möchte in VBA in den Zellen B6 bis B30 ein eine Gültigkeit erstellen!
für Zelle B6: Gültigkeit - Liste - =INDIREKT($A6)
für Zelle B7: Gültigkeit - Liste - =INDIREKT($A7) usw.

Kann mir jemand dabei helfen, ich habe es mit dem Makrorecorder aufgezeichnet, klapp leider nicht!

Danke schon mal.

P.S. ich wünsche allen einen guten Rutsch ins Jahr 2015!:71:

[schauan]

Hallöchen,

da musst Du eventuell mit Bereichsnamen arbeiten und dort das INDIREKT verarbeiten. Bei mir steht übrigens A1 im Namen, wieso hier A10 ausgegeben wird, k.A.

Arbeitsblatt mit dem Namen 'Tabelle1'
	A	B	C
1	B1:B10	1	4
2		2
3		3
4		4
5		5
6		6
7		7
8		8
9		9
10		0

Name	Bezug
BER_A6	=INDIREKT(Tabelle1!A10)

Zelle	Gültigkeitstyp	Operator	Wert1	Wert2
C1	Liste		=BER_A6

Diese Tabelle wurde mit Tab2Html (v2.5.0) erstellt. ©Gerd alias Bamberg

[Nukleus]

Hallo Andrè,

in Zeile A6 bis A30 habe ich die Gültigkeit, mit dem Bereichnamen erstellt,
und jetzt soll jenachdem was in Zelle A6 steht der Bezug dazu in Zelle B6 ausgewählt werden.

in Spalte A steht die Statiom,
in Spalte B steht das Zimmer!

Stationen Zimmer
Stat.1 01 02 03 04 05 06 07 08 09 10
Stat.2 21 22 23 24 25 26 27 28 29 30
Stat.3 31 32 33 34 35 36 37 38 39 40
Stat.4 41 42 43 44 45 46 47 48 49 50

es gibt Bereichsnamen Staionen, Stat.1, Stat2, usw.

und der Befehl =INDIREKT($A6) soll in Zelle B6 bis B30 als Gültigkeit eingetragen werden.

Gruss
Klaus

[Peter]

Hallo,

ich bin mir nicht sicher, aber könnte es sein, dass du sowas suchst?

http://www.herber.de/excelformeln und bitte suchen .../tips.html?welcher=84

http://netcult.ch/MVP_Ramel/Files/Guelti...direkt.XLS

[Nukleus]

Hallo Peter,
ja genau so hab ich das auch gemacht,
aber in dem Tabellenblatt werden immer wieder ganze Zeilen gelöscht und anschließend wird das Tabellenblatt kopiert
und mit den restlichen Daten weiter verwendet. Und irgendwann sind in Spalte A und B keine Gültigkeiten mehr da.
Deshalb wollte ich die Gültigkeiten mit VBA einfügen!

Gruß
Klaus

[Kuwer]

Hallo Klaus,

Code:

Sub Makro1()
  With Range("B6:B30").Validation
    .Delete
    .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
            Operator:=xlBetween, Formula1:="=INDIREKT($A6)"
    .IgnoreBlank = True
    .InCellDropdown = True
    .InputTitle = ""
    .ErrorTitle = ""
    .InputMessage = ""
    .ErrorMessage = ""
    .ShowInput = True
    .ShowError = True
  End With
End Sub

Gruß Uwe

[Nukleus]

Hallo Uwe,

hab ich auch schon versucht,

das Makro hält immer hier an.
Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
Operator:=xlBetween, Formula1:="=INDIREKT($A6)"

Gruss
Klaus

[Kuwer]

Hallo Klaus,

verbundene Zellen in Spalte A und/oder B?

Gruß Uwe

[atilla]

Hallo zusammen,

die Formel für die Gütigkeitsprüfung müssen in englisch sein:

.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
Operator:=xlBetween, Formula1:="=INDIRECT(A6)"

[Nukleus]

Guten Morgen Forum.
Alles gute für's neue Jahr wünsch ich euch!

Das Makro ist nur für Zelle B6, wie muss es lauten wenn es für den Bereich B6:B30 aus geführt werden soll?

Sub Gültigkeit() 'Daten Gültigkeit in Spalte B =INDIRECT($A6)

With Range("B6").Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=INDIRECT($A6)"
.IgnoreBlank = True
.InCellDropdown = True
End With
End Sub

Gruss
Klaus