Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1932to1936
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
1932to1936
1932to1936
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA: Wert aus einer Liste auslesen

VBA: Wert aus einer Liste auslesen
26.05.2023 22:30:01
Matthias

Liebes Forum.

ich stehe wieder auf dem Schlauch! Aus einer Liste, die auf einem Tabellenblatt steht, soll mittels VBA in einem anderen Blatt ein bestimmter Wert ausgelesen werden.

Zugriff auf die Liste habe ich über den Namen, den ich mit dem Namensmanager vergeben habe: Application.Names("Daten"). Nun möchte ich aus dieser Liste z.B. den dritten Eintrag auslesen. Welche VBA-Code brauche ich dazu?

Die EXCEL-Funktion INDEX (Beispiel INDEX("Daten";3) geht so in VBA nicht.

Ich freue mich auf Unterstützung. Vielen Dank!

Matthias

15
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA: Wert aus einer Liste auslesen
27.05.2023 01:04:23
Luschi
Hallo Matthias,

in einem normalem Modul (nicht Klassenmodul der Tabellen) folgende Funktion erstellen:
Function HoleWert(xName As String, pos As Integer) As Variant
    HoleWert = Names(xName).RefersToRange.Cells(pos, 1).Value
End Function
In 1 Zelle die Formel =HoleWert("Tirallala"; 3) eintragen, wobei "Tirallala" zu ersetzen ist mit Deinem vergebenen Excelnamen für den Zellbereich.

Gruß von Luschi
aus klein-Paris


AW: VBA: Wert aus einer Liste auslesen
27.05.2023 08:50:38
ralf_b
wenn der Name Mappenweit deklariert wurde, könnte es so gehen, ungetestet
Worksheetfunction.INDEX(Range("Daten"),3)


Anzeige
AW: VBA: Wert aus einer Liste auslesen
27.05.2023 09:40:30
Pappawinni
Da gibt es mehrere Möglichkeiten, dabei auch die WorksheetFunction

Dim myValue As Variant
myValue = Application.WorksheetFunction.Index(Range("Daten"), 3, 1)
Debug.Print myValue
oder z.B. auch

Dim myValue As Variant
myValue = Range("Daten").Item(3, 1)
Debug.Print myValue


AW: VBA: Wert aus einer Liste auslesen
28.05.2023 14:11:30
Matthias
Liebes Forum,

erstmal vielen Dank für die bisherigen Antworten.

Aber: leider haben sie nicht funktioniert. Ich bekomme Fehlermeldungen wie z.B. "Laufzeitfehler '1004': Die Methode 'Range' für das Objekt '_Worksheet' ist fehlgeschlagen".

Ich präzisiere nochmal, worum es geht: Auf einem Tabellenblatt "Daten" habe ich per Namensmanager einen Bereich "Daten123" definiert; der besteht aus 5 untereinanderstehenden Zellen mit sich häufig ändernden Daten (v.a. Zeilennummern). Nun sollen über eine Sub-Prozedur Einträge in einem bestimmten Bereich eines anderen Tabellenblatt in Großbuchstaben geändert werden; der Code dazu lautet

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("B5:AF30")) Is Nothing Or Target.Cells.Count > 1 Then Exit Sub
    Application.EnableEvents = False
    If Target.Value > "k" Then
        Target.Value = UCase(Target.Value)
    End If
    Application.EnableEvents = True
End Sub
Das funktioniert auch, allerdings ist die Angabe des Bereichs, in dem die Änderung stattfinden soll, durch 
 Range("B5:AF30")
festgelegt. Wenn sich dieser Bereich ändert, wird das in die dritte Zeile des Datenbereichs "Daten123" eingetragen; dort steht dann z.B. "B5:AF16"). Und jetzt weiß ich nicht, wie ich die Codezeile ändern muss, damit das Programm im Bereich "Daten123" nachschaut, wo die Großschreibung vorgenommen werden soll. Der Code 


Range("B5:AF30")
müsste quasi in 


INDEX(Range("Daten123," 3)
geändert werden; aber das funktioniert halt nicht.

Wer hat die zündende Idee?

Vielen Dank nochmal, und schöne Pfingsttage!

Matthias


Anzeige
AW: VBA: Wert aus einer Liste auslesen
28.05.2023 17:58:53
Pappawinni
also
INDEX(Range("Daten123," 3)
wäre auch falsch, aber mal ne Frage:
Wie hast du denn die Gültigkeit deines Datenbereichs "Daten123" festgelegt, für die Arbeitsmappe (Workbook) oder für eine bestimmte Tabelle (Worksheet)?


AW: VBA: Wert aus einer Liste auslesen
28.05.2023 22:47:46
Matthias
Hallo Pappawinni,

vielen Dank für Deine Mühe!

Ich habe den Bereich im Namens-Manager festgelegt und gehe davon aus, dass er in der gesamten Arbeitsmappe gültig ist. Jedenfalls kann ich in EXCEL von jedem anderen Arbeitsblatt korrekt darauf zugreifen, und ich wüsste gar nicht, wo man die Gültigkeit im Namens-Manager festlegen könnte.

Dein Vorschlag
 If Intersect(Target, Range(Range("Daten123").Item(3, 1))) Is Nothing Or Target.Cells.Count > 1 Then Exit Sub
führt leider zum gleichen Laufzeitfehler.

Grüße

Matthias


Anzeige
AW: VBA: Wert aus einer Liste auslesen
28.05.2023 22:53:29
Matthias
Sorry für den Nachtrag:

Ich habe gerade nochmal nachgesehen und festgestellt, dass der Gültigkeitbereich "Arbeitsmappe" ist. Das sollte doch passen ...

Matthias


AW: VBA: Wert aus einer Liste auslesen
29.05.2023 00:14:29
Pappawinni
Dann schlage ich vor, du setzt mal
debug.print Range("Daten123").Item(3,1)
um zu sehen, ob das a) den richtigen Wert liefert oder b) einen Fehler bringt
die ausgabe von debug.print erfolgt im Direktfenster.


AW: VBA: Wert aus einer Liste auslesen
29.05.2023 02:45:27
Pappawinni
Ich hab jetzt doch mal ein wenig getestet und meine, dass
if Intersect(Target, Range(Application.Names("Daten123").RefersToRange.Cells(3, 1).Value)) Is Nothing Or Target.Cells.Count > 1 Then Exit Sub
funktionieren muss, weil mir sonst nichts mehr einfällt...


Anzeige
AW: VBA: Wert aus einer Liste auslesen
29.05.2023 17:37:10
Pappawinni
Besser 

if Intersect(Target, Range(ThisWorkbook.Names("Daten123").RefersToRange.Cells(3, 1).Value)) Is Nothing Or Target.Cells.Count > 1 Then Exit Sub
es ginge auch:
if Intersect(Target, Range(Application.WorksheetFunction.Index(ThisWorkbook.Names("Daten123").RefersToRange, 3, 1)) Is Nothing Or Target.Cells.Count > 1 Then Exit Sub
Was mich tatsächlich wundert ist, dass auf dem Worksheet problemlos =INDEX(Daten123;3;1) angewandt werden kann, aber in VBA selbst bei der Worksheetfunction index dann Klimmzüge nötig sind.


Anzeige
AW: VBA: Wert aus einer Liste auslesen
28.05.2023 18:06:40
Pappawinni
Hier 
If Intersect(Target, Range("B5:AF30")) Is Nothing Or Target.Cells.Count > 1 Then Exit Sub
müsste das dann eher so aussehen
If Intersect(Target, Range(Range("Daten123").Item(3, 1))) Is Nothing Or Target.Cells.Count > 1 Then Exit Sub


AW: VBA: Wert aus einer Liste auslesen
27.05.2023 17:15:49
snb
Reicht schon:

=F_snb("namen",3)
Function F_snb(c00, y)
  F_snb = Range(c00)(y, 1)
End Function
https://www.herber.de/bbs/user/159349.xlsb


Anzeige
AW: VBA: Wert aus einer Liste auslesen
27.05.2023 17:46:19
Pappawinni
Neee, nicht ernsthaft ne Funktion, oder wenn, dann vielleicht mit ner Überprüfung, z.B. ob row in einem gültigen Bereich liegt, sonst bringt die Funktion ja überhaupt keinen Mehrwert.


AW: VBA: Wert aus einer Liste auslesen
27.05.2023 18:23:39
snb
Ein Funktion setzt richtige Struktur voraus.


AW: VBA: Wert aus einer Liste auslesen
27.05.2023 19:32:01
Pappawinni
Was setzt deine Funktion voraus, was nicht ohnehin Voraussetzung ist?

321 Forumthreads zu ähnlichen Themen

Formel über VBA in Range.
Tom

Hi,
ich Versuch eine Summenformel
=SUMME(A3:A29)
verzweifelt über VBA dynamisch einzutragen.
Die Summe muss von A bis J eingetragen werden. Jedesmal mit dem entpsrechenden Buchstaben nicht immer mit A.
Hab das so versucht:
For k = 2 To 10 'Range(Cells(k, 29), Cells(...
13.08.2008 11:41:00
Thread-ID: 1001455
4 Beiträge
Anzeige
In Spalte nach Anzahl eines Begriffs suchen?
Lauren

Hall Leute!
ich will nach einem Begriff, in meinem Fall nach "SUMs" in der Spalte C suchen und wissen wie oft es in der Spalte vorkommt.
Bei Berechnungen funktioniert es mit ZÄHLENWENN ohne Probleme aber wie erhalte ich die "absolute" Zahl?
Vielen Dank für Eure Hilfe!
Grüße
...
19.08.2008 11:08:23
Thread-ID: 1002846
5 Beiträge
von Datum bis Datum suchen und Werte in die Spalte
Datum

Hallo liebe Excel-Könner,
ich habe folgendes Problem und finde keine Lösung.
Ich habe in Spalte A von 2006 bis heute Datum stehen, über eine UserForm möche ich in zwei TextBoxen von bis Datum eintragen und in Spalte B in diesem Bereich den WertX.
Ich hoffe Ihr könnt mir helfen!
...
07.09.2008 09:31:20
Thread-ID: 1007931
8 Beiträge
Anzeige
Makro bei Wertänderung in Bereich auslösen
Ulrich

Hallo zusammen,
kann man ein Makro starten, wenn sich in einem definierten Tabellenbereich ein Wert ändert? Wie geht das?
Danke im Voraus und Grüße,
Ulrich
19.09.2008 12:37:58
Thread-ID: 1010993
5 Beiträge
Formel gesucht: Anzahl vesch. Werte in Zellbereich
Martin

Hallo liebe Excelianer,
gibt es eine Formel, die die Anzahl verschiedener Zelleninhalte für einen Bereich ermittelt? Zum Beispiel wenn ich 15 Zellen hätte, in denen 3mal die 5 steht und 12mal die 7 steht. Da ja nur 2 verschiedene Werte in den 15 Zellen stehen, müsste also 2 herauskommen. Nu...
19.09.2008 13:25:00
Thread-ID: 1011022
4 Beiträge
UDF - pos. oder neg. Wert in ausgeblendet. Bereich
Peter

Guten Abend
Ich möchte mit Hilfe einer Funktion (z.B. yWert) abfragen, ob innerhalb einem benannten Bereich (z.B. "Zahlenteil") positive oder negative Werte in ausgeblendeten Zeilen enthalten sind. Falls dies zutrifft, sollte die Rückgabe der Tabellenname sowie die betreffenden Zelladressen...
26.09.2008 21:20:00
Thread-ID: 1012746
4 Beiträge
VBA--Zellen finden/vergleichen/kopieren
Christian

Hallo
einen Beispieldatei ist anbei!!
Bisher konnte ich mit folgendem Code Zellinhalte "täglich" teilen und in neue Zellen kopieren.
Sheets("179").Select Range("B255").End(xlUp).Offset(1, 0).Select ActiveCell.FormulaR1C1 = "=TRIM(LEFT('tägliche Statistik'!R12C6,FIND(""/"",'täglic...
07.10.2008 10:15:00
Thread-ID: 1014634
3 Beiträge
@viele meinungen: spaltenangaben in vba
Herbert

hallo,
wie macht ihr denn das: wenn ich in einem vba-code spaltenangaben mache, und in der tabelle dann spalten einfügen oder entfernen muss, muss ich alle spaltenangaben im code manuell ändern. und wehe, ich vergesse das, dann stimmt das ganze makro nicht mehr.
beispiel:
With Sheet...
08.10.2008 19:41:00
Thread-ID: 1015156
6 Beiträge
Anzeige

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
1
4
7
2
4
3
3
2
5
4
4
4
1
25
1
3
5
1
15
4
2
11
4
6