Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
24.04.2024 17:19:09
Formel mit Index-Funktion
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
316to320
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
316to320
316to320
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Listenfeld - Bezug auf andere Tabelle

Listenfeld - Bezug auf andere Tabelle
06.10.2003 21:20:27
Reservist
Hallo Excler,

wiedermal ein Problem für mich.

In Tabelle '0' benötige ich ein Listenfeld mit Wert
aus Tabelle 'Adressen' (gleiche Mappe) D$2$:D$2000$,
wobei leere Felder ignoriert werden müssen.
Leider lässt Excel bei der eingebauten Gültigkeitprüfung
den Bezug auf eine andere Tabelle nicht zu.

Wie kann ich dies lösen ?

Gruß
Thorsten

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Listenfeld - Bezug auf andere Tabelle
06.10.2003 22:27:22
Matthias G
Hallo Thorsten,
Der Bezug auf andere Tabellen funktioniert, wenn du dem Bereich einen Namen gibst.

Wenn du auf deiner langen Liste nur belegte Zellen in der Auswahlliste angezeigt bekommen willst, musst Du VBA benutzen.
Folgender Code prüft alle Zellen im Bereich (hier: $D$2:$D$2000) und listet nichtleere Felder untereinander in einer Hilfsspalte auf. Dem Bereich in der Hilfsspalte wird dann der Name "Liste" zugewiesen.

Option Explicit
Public Const Bereich = "$D$2:$D$2000"
Sub UpdateListe()
Const Hilfsspalte = 5 'Spalte E
Dim z
Dim i As Long
i = 1
Application.EnableEvents = False
For Each z In Range(Bereich)
If z.Value <> "" Then
Cells(i, Hilfsspalte).Value = z.Value
i = i + 1
End If
Next z
Cells(i, Hilfsspalte).Value = ""
Application.EnableEvents = True
ActiveWorkbook.Names.Add Name:="Liste", RefersTo:= _
"=Adressen!" & Range(Cells(1, Hilfsspalte), Cells(i, Hilfsspalte)).Address
End Sub

Bei Daten->Gültigkeit der betreffenden Zelle(n) in Tabelle "0" muss unter Liste der Bereich "=Liste" angegeben werden.

Damit die Liste immer aktuell bleibt, muss sie bei jeder Änderung der Bereichs aktualisiert werden:
(Code im Modul von Tabelle "Adressen":)

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Range(Bereich), Target) Is Nothing Then Exit Sub
UpdateListe
End Sub

Falls in der Liste Formeln vorkommen, die nicht direkt geändert werden, zusätzlich noch:

Private Sub Worksheet_Calculate()
UpdateListe
End Sub


Ich hoffe, das hilft Dir weiter!
Freue mich auf Deine Rückmeldung!

Gruß,
Matthias
Anzeige
AW: Listenfeld - Bezug auf andere Tabelle
08.10.2003 09:25:49
Reservist
Tausend Dank, Siehe bitte
An Matthias G - Reservist 08.10.2003 09:20:19

305 Forumthreads zu ähnlichen Themen

Gültigkeit Liste mit Bezug auf eine andere Datei
Rafi

Hallo Zusammen,
ich habe ein Problem mit einer Gültigkeitsprüfung auf eine Liste die in einer anderen Datei steht.
Bislang hat das immer funktioniert, wenn ich die Liste der Externen Datei unter Namen definiert und bei der Gültigkeit/Liste mit Quelle="Name" angegeben habe. Geht aber nic...
16.12.2008 11:28:00
Thread-ID: 1033235
4 Beiträge
Anzeige
Solver - Makro aufgezeichnet, lässt sich nicht abs
u_hoernchen

habe über Makro Aufzeichnen die Benutzung des Solvers aufgezeichnet. Der Code sieht dann aus wie folgt.
SolverOk SetCell:="$K$39", MaxMinVal:=3, ValueOf:="0", ByChange:="$K$16"
SolverSolve
Beim Abspielen hängt er sich dann allerdings bei "SolverOK" auf und sagt "Sub oder Function n...
20.07.2009 13:09:09
Thread-ID: 1089960
3 Beiträge
Datei lässt sich nicht öffnen
einfachf

Hallo Zusammen ich schreibe gerade an einem Macro.
Dazu soll aus einer bestehenden datei eine andere Datei geöffnet werden.
Leider funzt das nicht und ich weiß nicht warum.
Hier mein Code.
Dim EX As Excel.Application
Dim WB As Workbook
Dim WS As Worksheet
Set EX = Cr...
06.08.2009 12:12:10
Thread-ID: 1094009
3 Beiträge
Anzeige
Spalte lässt sich nicht formatieren
Joachim

Hi,
habe hier ein ganz komisches Problem. Es geht um ein Template, welches von einem Notes-System mit Daten gefüllt wird. In dem Template gibt es eine Spalte mit Datum. (Es steht zumindest das Datum drin)
Wenn ich das Format anschaue, steht es auf Standard.
Diese Spalte wollte ich i...
23.11.2009 10:46:38
Thread-ID: 1119390
3 Beiträge
skalierung größenachse lässt sich nicht ändern
schon

Hallo, vielleicht liegt es ja nur am Sekt, den wir zum Weihnachtsbrunch hatten...
Habe ein simples Liniendiagramm mit 2 Zahlenreihen erstellt. Bei einer Reihe gehen die Zahlen gegen Null, daher schmiegt sich die Linie an die Rubrikenachse. Damit es anschaulicher wird, möchte ich die Skalier...
15.12.2009 16:34:42
Thread-ID: 1123765
2 Beiträge
Datei lässt sich nicht öffnen
Ernst

Hallo Forum
Habe eine Datei abgespeichert, so wie ich es immer mache, lässt sich aber jetzt nicht mehr öffnen.
Wie kann ich die Datei öffnen?
Bitte um Hilfe
mfg
Ernst Dunkel
04.01.2010 13:35:12
Thread-ID: 1127045
5 Beiträge
Tabellenblattreiter lässt sich nicht ändern | Herbers Excel-Forum
Josef_T
Guten Tag zusammen,
ich kann in keiner! Tabelle mehr den Tabellenblattreiter bearbeiten. Egal ob ich mit der linken
oder rechten Maustaste darauf klicke, aktiviere ich nur immer das ganze Blatt.
kann mir bitte jemand einen Tipp geben, wie ich meine Tabellenblattreiter wieder editieren...
23.01.2010 20:19:29
Thread-ID: 1132376
6 Beiträge
Makro-Sicherheit lässt sich nicht ändern
NoNet

Hallo VBA-Experten,
ich habe auf meinem PC unter Excel 2003 SP3 seit einiger Zeit das Problem, dass sich Änderungen der Makro-Sicherheit ("Extras - Makros - Sicherheit") nicht mehr dauerhaft ändern lassen.
D.h. : Ich kann zwar die Sicherheitsstufe und auch die Optionen im Register "Vert...
08.03.2010 15:40:14
Thread-ID: 1144340
20 Beiträge

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
3
2
2
6
2
1
4
5
19
7
4
6
3
3
11
3
5
3
2
14
10
3
11
8