Dropdown ohne Leerzeilen

Computer: Software & Programmierung Office Software
1

Hallo,
ich habe mal wieder ein kleins Excel Problem.
Ich möcht in manchen Zellen nur bestimmte Werte eingeben können.

Dazu habe ich einen bestimmtem Bereich als Namen(„NameX“) definiert (sagen wir in „Tabelle 1“ in den Zellen „A1:A10“). Dabei sind momentan nur die ersten 5 Zellen mit Inhalt. Die restlichen will ich in Reserve halten um später zusätzliche Einträge hinzufügen zu können.

Nehmen wir als Beispiel die Zelle „A1“ in „Tabelle 2“. Dieser Zelle habe ich mit Daten->Gültigkeit->Liste(Dropdown; leere Zeilen ignorieren) ein Dropdown Menü zugewiesen mit dem Wertebereich „NameX“.

Gibt es irgend eine Möglichkeit, dass in diesem Dropdoen Menü die noch leeren Zellen aus „NameX“ nicht aufgeführt werde???

Danke!!!

2

Dazu habe ich einen bestimmtem Bereich als Namen(„NameX“)
definiert (sagen wir in „Tabelle 1“ in den Zellen „A1:A10“).
Dabei sind momentan nur die ersten 5 Zellen mit Inhalt. Die
restlichen will ich in Reserve halten um später zusätzliche
Einträge hinzufügen zu können.
Nehmen wir als Beispiel die Zelle „A1“ in „Tabelle 2“. Dieser
Zelle habe ich mit Daten->Gültigkeit->Liste(Dropdown;
leere Zeilen ignorieren) ein Dropdown Menü zugewiesen mit dem
Wertebereich „NameX“.
Gibt es irgend eine Möglichkeit, dass in diesem Dropdoen Menü
die noch leeren Zellen aus „NameX“ nicht aufgeführt werde???

Hi Tobias,
in das Modul von Tabelle1:

Option Explicit
Private Sub Worksheet\_Change(ByVal Target As Range)
If Target.Column 1 Then Exit Sub
'If Target.Row \> 10 Then Exit Sub 'falls nur A1:A10 überwacht werden soll und nicht ganz A
Dim zei As Long
zei = Range("A65536").End(xlUp).Row
ActiveWorkbook.Names.Add Name:="NameX", RefersToR1C1:="=Tabelle1!R1C1:R" & zei & "C1"
End Sub
3

OT @ Reinhard

zei = Range(„A65536“).End(xlUp).Row

hi Reinhard,
du solltest mal langsam mit den absoluten Zahlen Schluss machen
Excel 2007 is comming und rows.count gilt immer :wink:
cu Micha

4

hui, das ging aber fix.

Vielen Dank!!!

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

5

zei = Range(„A65536“).End(xlUp).Row

du solltest mal langsam mit den absoluten Zahlen Schluss
machen
Excel 2007 is comming und rows.count gilt immer :wink:

Hallo Micha,
ja, ich weiß, hänge da nach und wollte das schon länger ändern, aber irgendwie schreibe ich es immer noch so :smile:
Gruß
Reinhard

6

Hat mir der Diskussion mit ypsilon nichts zu tun, aber ich habe eben deinen Code ausprobiert.
Das ist „120%“ das was ich gesucht habe. Funktioniert super!!!

Nochmal vielen Dank!!!