Live-Forum - Die aktuellen Beiträge
Datum
Titel
04.05.2024 16:03:54
Problem mit einer Regel bei bedingter Formatierung
04.05.2024 10:29:31
.Find(what:=..., Lookat:=xlWhole, LookIn:=xlValues) ->For
04.05.2024 09:44:33
Bestimmten bereich aus einem String per VBA separieren
04.05.2024 08:24:07
Sortieren und übertragen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1900to1904
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
1900to1904
1900to1904
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Daten in Matrix suchen

Daten in Matrix suchen
27.09.2022 06:00:58
Byörn
Guten Morgen liebe Leute,
ich suche nach einer VBA Lösung. Ich bekomme eine Datei mit Daten. In der Zeile 24 stehen Nummern von Spalte B bis DE. In der Spalte A steht Text von 25 bis 40
Nun soll das Makro die Zellen kopieren un in eine andere Datei einfügen. Wenn in der Zelle nichst vorhanden ist, dann soll Null drinnen stehen.
Anbei sende ich eine Testdatei. Danke für eure Hilfe.
https://www.herber.de/bbs/user/155392.xlsx

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Daten in Matrix suchen
27.09.2022 06:36:37
Oberschlumpf
Hi Byörn,
hier passiert das, was du haben möchtest, laut deiner Beschreibung
https://www.herber.de/bbs/user/155393.xlsm
Starte das Makro sbCopyToNew
- es wird eine neue Datei erstellt (du schreibst "un in eine andere Datei einfügen". Da du nicht schreibst, in welche Datei, gehe ich davon aus, du meinst eine neue Datei)
- der Zell-Bereich "A24:DE40" wird im Blatt "Daten" kopiert und in der neuen Datei ab Zelle A1 eingefügt (das Daten-Blatt enthält zwar auch Daten in den Spalten DF bis DH, aber du hattest ja explizit bis DE geschrieben; und eine Startzelle in neuer Datei hast du auch nicht genannt, daher denk ich, alles rein ab A1)
- alle Zellen in neuer Datei ohne Inhalt erhalten den Wert 0
Die neue Datei ist noch nicht gespeichert.
Hilfts?
Ciao
Thorsten
Anzeige
AW: Daten in Matrix suchen
27.09.2022 07:34:03
Byörn
Hallo Thorsten,
sorry für die falsche Info. Ich möchte die Daten aus dem Sheet Daten in die Tabelle1 in den richtigen Zellen einfügen.
AW: Daten in Matrix suchen
27.09.2022 08:03:51
Oberschlumpf
Hi Byörn,
1. Schritt
in "Daten" den gewünschten Bereich A24:DE40 markieren + kopieren
zu "Tabelle1" wechseln, Zelle A1 auswählen + Entertaste drücken
2. Schritt
in Google mit Suchtext "vba leere zellen mit 0 füllen" hab ich das gefunden:
Bereich markieren. (in der Zieltabelle)
Register Start, Befehlsgruppe Bearbeiten, Suchen und Auswählen, Gehe Zu, Inhalte; Leerzellen.
Bearbeitungsleiste, 0, Strg+Enter
fertig...fast...bis jetzt war alles "per Hand" durchgeführt
Du möchtest ja eine VBA-Lösung
- alles auf 0 setzen (oder eben Datei ohne speichern schließen, wieder öffnen)
- Makrorecorder starten
- 1. Schritt wiederholen
- Makrorecorder beenden
- Makrorecorder starten
- 2. Schritt wiederholen
- Makrorecorder beenden
Jetzt hast du für 2 Schritte 2 Makros.
Füge diese Makros sinnvoll zusammen und deine Frage ist beantwortet.
Hilfts?
Ciao
Thorsten
Anzeige
AW: nachgefragt, warum VBA? ...
27.09.2022 08:13:33
neopa
Hallo Björn,
... es ist auch mit folgender einfacher Formel realisierbar.
In B2: =INDEX(Daten!$A:$DZ;VERGLEICH($A2;Daten!$A:$A;0);VERGLEICH(B1;Daten!$24:$24;0))und diese nach rechts und unten ziehend kopieren.
Alternativ zur Formel- und VBA-Lösung wäre auch noch eine Power Query (PQ)-Lösung möglich.
Gruß Werner
.. , - ...
AW: nachgefragt, warum VBA? ...
27.09.2022 08:21:23
Byörn
Guten Morgen Werner,
Danke für diese Lösung. Die ist fast perfekt. Schön wäre noch, wenn eine Zahl aus der Tabelle1 Zeile 1 nicht vorhanden ist, dass kein #NV kommt
AW: dann klammere noch mit WENNFEHLER(...;"") owT
27.09.2022 08:27:13
neopa
Gruß Werner
.. , - ...
AW: Daten in Matrix suchen
27.09.2022 11:36:44
snb
Tabelle5 wird Sheet1; Sheet1 wird Sheet2

Sub M_snb()
On Error Resume Next
sn = Sheet1.Cells(24, 1).CurrentRegion
sp = Sheet2.UsedRange
sq = Sheet2.UsedRange.Rows(1)
For jj = 2 To UBound(sn, 2)
y = Application.Match(sn(1, jj), sq, 0)
For j = 2 To UBound(sn)
sp(j, y) = sn(j, jj)
Next
Next
Sheet2.Cells(30, 1).Resize(UBound(sp), UBound(sp, 2)) = sp
End Sub

Anzeige
AW: Daten in Matrix suchen
27.09.2022 14:45:30
Daniel
Hi
wenns eine reine VBA-Lösung sein soll, dann beispielsweise über das Dictionary-Objekt.

Sub test()
Dim arrQ, arrZ
Dim dic
Dim z As Long, s As Long
Dim ID As String
arrQ = Sheets("Daten").Cells(24, 1).CurrentRegion.Value
arrZ = Sheets("Tabelle1").Cells(1, 1).CurrentRegion.Value
Set dic = CreateObject("scripting.dictionary")
For z = 2 To UBound(arrQ, 1)
For s = 2 To UBound(arrQ, 2)
ID = arrQ(z, 1) & "|" & arrQ(1, s)
If arrQ(z, s) = "" Then
dic(ID) = 0
Else
dic(ID) = arrQ(z, s)
End If
Next
Next
For z = 2 To UBound(arrZ, 1)
For s = 2 To UBound(arrZ, 2)
ID = arrZ(z, 1) & "|" & arrZ(1, s)
If dic.exists(ID) Then
arrZ(z, s) = dic(ID)
Else
arrZ(z, s) = "---"
End If
Next
Next
Sheets("Tabelle1").Cells(1, 1).CurrentRegion.Value = arrZ
End Sub
Gruß Daniel
Anzeige

302 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