Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.04.2024 09:02:18
Dateiordner auslesen
28.04.2024 01:34:12
Userform aus ListBox Zeile in Tabelle farbig markieren
27.04.2024 20:04:34
Excel in Formen z.b Rechteck, eine Tabelle einfügen?
27.04.2024 19:23:05
Passwortabfrage für verschiedene tabellenblätter
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1908to1912
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
1908to1912
1908to1912
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Werte aus Array auslesen

Werte aus Array auslesen
10.12.2022 16:56:51
Constantin
Hallo,
ich komme bei folgender Aufgabenstellung nicht so recht weiter, bei der ich Werte aus einer anderen Tabelle holen möchte. Um die Suchvorgänge zu beschleunigen, habe ich den Datenbereich der zweiten Tabelle (usedRange) in eine Variable eingelesen. Ich durchlaufe die Spalte A der Tabelle1 und möchte nun mit dem jeweiligen Suchkriterium im Array der zweiten Tabelle (Spalte C des eingelesenen Bereichs) suchen. Falls das Kriterium gefunden wird, würden die gesuchten Werte in Spalte D und E stehen, die ich dann übernehmen und in Tabelle1 zurückschreiben möchte (Spalte B und C).
Wie ließe sich dies in VBA umsetzen?
Im Voraus Danke für die Unterstützung.
Grüße, Constantin
Beispieldatei:
https://www.herber.de/bbs/user/156644.xlsx

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Werte aus Array auslesen
10.12.2022 18:00:09
ralf_b
schönes Beispiel mit usedrange. Nur wo ist das? Eine VBA Frage ohne VBA. Das kannst du doch besser.
AW: Werte aus Array auslesen
10.12.2022 19:40:20
Constantin
... das wäre schön. Danke für die Motivation.
Grüße, Constantin
AW: Werte aus Array auslesen
11.12.2022 11:50:05
snb
Du bist nicht geholfen, du hast nur eien Lösung bekommen.
Wenn es um Beschleunigung geht, verwende:

Sub M_snb()
sn = Sheet1.Cells(1).CurrentRegion
sp = Sheet2.Cells(1).CurrentRegion
With CreateObject("scripting.dictionary")
For j = 2 To UBound(sp)
.Item(sp(j, 3)) = Array(sp(j, 4), sp(j, 5))
Next
For j = 2 To UBound(sn)
If .exists(sn(j, 1)) Then
sn(j, 2) = .Item(sn(j, 1))(0)
sn(j, 3) = .Item(sn(j, 1))(1)
End If
Next
End With
Sheet1.Cells(1).CurrentRegion = sn
End Sub

Anzeige
AW: Werte aus Array auslesen
10.12.2022 19:20:59
Nepumuk
Hallo Constantin,
teste mal:

Option Explicit
Public Sub Werte_suchen()
Dim avntInputValues As Variant, avntOutputValues As Variant
Dim ialngInputIndex As Long, ialngOutputIndex As Long
With Tabelle2
avntInputValues = .Range(.Cells(2, 3), .Cells(.Cells(.Rows.Count, 3).End(xlUp).Row, 5)).Value2
End With
With Tabelle1
avntOutputValues = .Range(.Cells(2, 1), .Cells(.Cells(.Rows.Count, 1).End(xlUp).Row, 3)).Value2
For ialngOutputIndex = LBound(avntOutputValues, 1) To UBound(avntOutputValues, 1)
For ialngInputIndex = LBound(avntInputValues, 1) To UBound(avntInputValues, 1)
If avntOutputValues(ialngOutputIndex, 1) = avntInputValues(ialngInputIndex, 1) Then
avntOutputValues(ialngOutputIndex, 2) = avntInputValues(ialngInputIndex, 2)
avntOutputValues(ialngOutputIndex, 3) = avntInputValues(ialngInputIndex, 3)
Exit For
End If
Next
Next
.Range(.Cells(2, 1), .Cells(.Cells(.Rows.Count, 1).End(xlUp).Row, 3)).Value = avntOutputValues
End With
End Sub
Gruß
Nepumuk
Anzeige
AW: Werte aus Array auslesen
10.12.2022 19:43:57
Constantin
Hallo Nepumuk,
das Programm macht auf für mich magische Weise das, was es soll. Ich werde versuchen, mich noch etwas mehr reinzudenken. Funktioniert super. Es hilft mir sehr.
Vielen Dank.
Grüße, Constantin
AW: Werte aus Array auslesen
11.12.2022 11:52:38
snb
Du bist nicht geholfen, du hast nur eine Lösung bekommen.
Wenn mans sich auskennt in VBA hat das nichts 'magisches'.
Wenn es jedoch um Beschleunigung geht, verwende:

Sub M_snb()
sn = Sheet1.Cells(1).CurrentRegion
sp = Sheet2.Cells(1).CurrentRegion
With CreateObject("scripting.dictionary")
For j = 2 To UBound(sp)
.Item(sp(j, 3)) = Array(sp(j, 4), sp(j, 5))
Next
For j = 2 To UBound(sn)
If .exists(sn(j, 1)) Then
sn(j, 2) = .Item(sn(j, 1))(0)
sn(j, 3) = .Item(sn(j, 1))(1)
End If
Next
End With
Sheet1.Cells(1).CurrentRegion = sn
End Sub

Anzeige
AW: Werte aus Array auslesen
11.12.2022 17:42:25
Constantin
Hallo snb,
vielen Dank auch für Deine Lösung!
Grüße, Constantin

303 Forumthreads zu ähnlichen Themen

Daten aus vielen xls-Datein auslesen
Daniel

Hallo Profis,
ich suche einen VBA-Befehl für folgendes:
Ich habe einen Ordner mit vielen xls-Dateien. Diese sollen nun alle in einer Datei zusammengefahren werden, alle Zeilen, wenn der Wert der 2. Spalte links mit "12345" anfängt.
Geht dies?
Vielen Dank vorab.
Daniel
...
18.08.2008 15:07:01
Thread-ID: 1002621
2 Beiträge
Anzeige
Daten sortiert aus anderem Tabellenblatt auslesen
Robert

Hallo,
bräuchte eure Hilfe bitte.
Aus einem Tabellenblatt ("FEHLZEITEN") sollen Daten ausgelesen und in einem anderen Tabellenblatt ("EINSATZPLANUNG") ab Zeile 100 eingefügt und bei Änderungen in "FEHLZEITEN" aktualisiert werden.
Habe da mal eine Beispieldatei zur besseren Veransch...
28.08.2008 11:32:00
Thread-ID: 1005356
3 Beiträge
Datensätze aus Blatt auslesen
bully

Hallo Leute,
ich möchte mit VBA aus dem Blatt2 ganze Datenzeilen auslesen, wenn diese in der Spalte3 den Wert enthalten, den ich in Blatt3 in Zelle F6 vorgebe. Die Datenzeilen sollen dann in Blatt3 ab Zeile14 eingefügt werden.
Nach etlichen Selbstversuchen gebe ich jetzt auf.
Gruss...
02.09.2008 15:55:27
Thread-ID: 1006842
6 Beiträge
Anzeige
Werte aus Matrix auslesen j. mit richtiger Bsp.
trebor-robert

Hallo,
wie kann ich aus einer Matrix, die in einer separaten Arbeitsmappe (im Beispiel der Bereich Arbeitsmappe "B") liegt, den entsprechenden EUR Betrag auslesen, wenn in der Spalte "C" untereinander in den einzelnen Zeilen die Bemessungsgrösse 1 steht (in diesem Fall qm) und in den Spalt...
05.09.2008 13:33:00
Thread-ID: 1007667
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
Werte aus anderem Blatt für ComboBox auslesen
mtremer

Hallo Excel-Freunde,
ich glaub ich werde verrückt.
Meine ComboBox füllt sich nicht mehr. Ich versuche den Code so zu ändern, dass die Quelle für die ComboBox wo anders stehen kann. Im folgenden Code müssen die Werte in der Spalte A der Tabelle1 stehen.
Private Sub Worksheet_Change...
17.09.2008 13:17:34
Thread-ID: 1010349
11 Beiträge
Wert innerhalb Array suchen
David

Hallo VBAler,
wenn ich ein Array in der Form
treffer_n(n)
habe, gibt es da eine schnelle und einfache Möglichkeit zu prüfen, ob ein bestimmter Wert in diesem Array vorhanden ist, oder muss ich alle Werte per Schleife einzeln prüfen lassen?
Gruß
David
19.09.2008 08:48:14
Thread-ID: 1010894
3 Beiträge
Bestimmten Wert in einer Zelle finden
Olli

Hallo,
ich lauf gerade wieder mal mit einem Brett vorm Kopf rum und hoffe, mir kann einer hier helfen.
Ich habe in einer Zelle mehrere Werte stehen, die jeweils durch Semikolon getrennt sind (bis zu 15).
Wie kann ich per VBA eine Schleife erstellen, dass solange nach einem Wert gesu...
19.09.2008 08:54:00
Thread-ID: 1010897
5 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
1
8
2
5
3
4
7
10
2
4
2
4
4
3
6
1
3
3
6
6
1
4
2
2
4