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
1844to1848
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
1844to1848
1844to1848
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA 2 mehrere gleiche Werte suchen

VBA 2 mehrere gleiche Werte suchen
18.08.2021 17:18:40
Peter
Hallo
ich stehe vor einer kleinen Herrausforderung und komme mit Google Suche leider auch nicht mehr weiter.
Ich habe 2 Excel Dateien. Datei A beinhaltet alle VBA Codes, Datei B ist eine reine Datentabelle
In Datei A gebe ich eine Seriennummer in Feld B1 ein. Diese soll in Datei B gesucht werden und die komplette Zeile von A bis V ausgegeben werden.
Datei B beinhaltet Informationen über technische Einsätze, wie Datum, Dauer, Tätigkeit und so.
Ich schaffe es, dass ich den ersten Einsatz in der Datei finde, aber wie mache ich es, dass er mir alle Einsätze zu dieser Seriennummer auflistet?
In Datei B stehen ca. 10.000 Zeilen wo die Seriennummer in unterschiedlicher Anzahl oft vorkommen kann. Mal gab es nur einen Einsatz, mal 5 Einsätze und so weiter.
Besten Dank schon mal für die Hilfe
Peter

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA 2 mehrere gleiche Werte suchen
19.08.2021 07:44:37
Peter
Hallo Hajo,
danke für den Tipp, werde es mal auf diesem Weg probieren.
BG
Peter
AW: VBA 2 mehrere gleiche Werte suchen
18.08.2021 17:45:52
EtoPHG
Hallo Peter,
Zitat: Ich schaffe es, dass ich den ersten Einsatz in der Datei finde?
...und wir sollen jetzt raten, wie du das machst und irgendeinen passenden Code aus dem Ärmel schütteln?
Wie würdest Du auf Deine eigene Anfrage reagieren?
Beispielmappe, oder mindesten Suchcode....!
Gruess Hansueli
Anzeige
AW: VBA 2 mehrere gleiche Werte suchen
19.08.2021 07:49:59
Peter
Hallo Hansueli,
ich mache ich es mit der WorkSheetFunction Index

Set ZeileSN = bereich_IDM.Find(what:=ziel_sheet.Range("B" & x))
'Zähler 1
ziel_sheet.Range("E" & x).Value = WsF.Index(bereich_IDM, ZeileSN.Row, 4)
x = Zielzelle wo der Wert in Datei A reingespeichert wird.
BG
Peter
AW:Mehrere Fundstellen von Datei 2 übertragen?
18.08.2021 17:47:45
Datei

AW: VBA 2 mehrere gleiche Werte suchen
18.08.2021 18:05:47
Werner
Hallo,
dann filtere deine "Datentabelle" und kopier das Filterergebnis.
Sollte bei VBA gut doch kein Problem sein.
Gruß Werner
AW: VBA 2 mehrere gleiche Werte suchen
19.08.2021 07:54:12
Peter
Hallo Werner,
an diese Variante haben ich ebenfalls gedacht, dachte es gibt vielleicht eine etwas komfortablere, als
Werte Filter
kopieren
einfügen
zählen wieviele Werte vorhanden sind (oder mit Rows.counts End(xlUp) die letzte Zeile finden
Filter resetten
nächste Seriennummer filtern
kopieren
in letzte Zeile einfügen
Anzahl der Werte zählen
Filter resetten
usw
In der Basisdatei stehen 10 Seriennummern.
Werde es mal mit einer Schleife probierne und schauen wie komfortabel es läuft
BG
Peter
Anzeige
Schon mal von Power Query gehört?
19.08.2021 23:42:24
Power
Hallo Peter,
es geht so (alles in Datei A)
_ mache eine Liste von Seriennummer, eine Spalte mit überschrift "Seriennummer"
_ markiere die ganze Liste und wandle sie in Tabelle: Strg+t, mit Überschrift (manchmal auch als "intelligente Tabelle" benannt)
_ gehe auf dem Menü "Daten", Funktion "Aus Tabelle"
_ Du bist im Power Query Editor: benenne die Abfrage (oben rechts) in "FilterListe" (für die folgende Erklärung)
_ gehe auf "Schliessen & laden", untere Teil und wähle "Schliessen & laden in ...", wähle "nur Verbindung herstellen"
_ gehe auf "Daten", "neue Abfrage", "aus Datei", "Excel"
_ schaue, dass Du deine Quelle aus 10k Zeilen aus Datei B damit anbinde (idealerweise wandelst Du zuerst die Liste in B auch als Tabelle). Nenne diese Abfrage "Quelle"
_ Du bist wieder im PQ-Editor
_ markiere alle Spalten von "Quelle" nach Spalte V und auf dem Spaltenüberschrift rechtsklicke "entfernen"
_ gehe auf "Start", "Abfrage zusammenführen"
_ wähle die Spalte B aus
_ setzte als zweites Element (Dropdown in der Mitte) die Abfrage "FilterListe"
_ wähle für FilterListe die Spalte Seriennummer aus
_ wähle als Join-Art "Innerer Join" aus
_ "Schliessen&Laden", diesmal als "Tabelle" (Ergebnis-Tabelle)
Dann sind alle Einträge der Datei B deren Seriennummer in der FilterListe vorhanden sind jetzt in deine Datei A.
Du kannst jederzeit die Liste der Seriennummer ergänzen. Du brauchst nur die Ergebnis-Tabelle zu aktualisieren.
Kein Hexenwerk: keine Formeln, keine Makro.
Makro-Verseuchung kannst Du immer noch hinzufügen ;-)
VG
Yal
Anzeige
AW: Schon mal von Power Query gehört?
25.08.2021 11:25:57
Power
Hallo Yal,
habe das jetzt mal gestest so wie du gesagt hast.
Ich habe noch nie an PQ gedacht, danke!
Bis auf das, dass er ab und zu klein bei gibt, da die Tabelle in wahrheit über 1 Mio Einträge hat, und er am Arbeitsspeicher jetzt scheitert :D klappt es sehr gut.
Nur beim letzten Punkt "Schließen und Laden" als Egebnis Tabelle, den Punkt kann ich nicht auswählen klappt es super.
Danke!
lg
Peter

316 Forumthreads zu ähnlichen Themen

Text (Datum) aus Zeile mit Zeilenbruch auslesen
Iro

Hallo,
ih habe folgendes Problem: ich muss aus einem vorgegebenen Sheet einen bestimmten Zinssatz zu einem bestimmten (Jahr / Monat) auslesen.
1. Problem: das vorgegebene, gesuchte Datum hat das Format TT.MM.JJJJ, das andere Datum, mit dem ich es vergleichen muss wird mit "Monat Jahr"....
01.10.2008 23:00:06
Thread-ID: 1013778
4 Beiträge
Anzeige
Wert in Tabelle suchen und summieren.
cfrei75

Hallo ich habe ein Problem! Wer kann mir bitte helfen.
Beispiel:
A1=6 Uhr
B1=21 Uhr
In der Zeile 2 stehen die Uhrzeiten von 0 bis 24 Uhr (24 Werte) als Titel.
In der Zeile 3 stehen die Werte der einzelnen Uhrzeiten (24 Werte).
Ich bräuchte die Summe der Uhrzeitwerte zwis...
20.10.2008 18:14:00
Thread-ID: 1017780
5 Beiträge
VBA heutiges Datum finden und Inhalt der Zelle prü
NeptunesChild

Hallo Leutz,
ich möchte in einer Zeiterfassung auf einem Monatsblatt das heutige Datum finden, dann in einer anderen Spalte (5 weiter links) eine Uhrzeit eintragen. Zuvor soll aber die Kontrolle erfolgen, ob in der Zelle bereits etwas steht und ob dies kleiner ist, als die aktuelle Zeit. We...
06.11.2008 15:38:08
Thread-ID: 1022323
3 Beiträge
Anzeige
Mehrzeilige Textbox mit Enter nächsten Zeile?
Timo

Hallo Ihr,
ich habe eine mehrzeilige Textbox.
Wie bringe ich diese dazu wenn Enter gedrückt wird der Cursor eine Zeile nach unten springt und nicht in die nächste Textbox?
Mit "shift & Enter" gehts! Ich hätte aber gerne nur Enter!
2. Frage in der Textbox stehen bereits ein...
17.11.2008 14:48:08
Thread-ID: 1025232
6 Beiträge
Leere Zelle suchen, Wert eintragen VBA
andreas

Hallo zusammen,
habe ein kleines Formular mit zwei "Command-Button".
Bei drücken von "Zufügen" soll die nächst leere Zelle im Bereich "F3:J3500" gesucht werden und ein "x" eingetragen werden.
Bei drücken von "Entfernen" suche im selben Bereich die letzte ausgefüllte Zelle und diese...
19.11.2008 11:57:07
Thread-ID: 1025960
2 Beiträge
Letzte Zeile mit bestimmten Wert finden
Harald

Hallo und schönen Abend
Ich suche in einer Spalte die Zeile mit dem letzten Vorkommen eines bestimmten Wertes. Im Netz habe ich folgenden Code gefunden.
Sub suchen() Set Ws1 = Sheets("Dummy") Call Find_Last("9999999999.999") End Sub
Sub Find_Last(FindString As String) Dim Rng A...
07.12.2008 19:37:02
Thread-ID: 1030899
3 Beiträge
VBA leere Zelle finden und obere Inhalte einfügen
Carmen

Hallo Zusammen,
leider habe ich so ganz wenig Ahnung von VBA, weiß aber auch nicht wie ich mir sonst normal mit
Excel weiterhelfen könnte da es zuviele Daten sind.
Hab folgendes Problem, ich möchte gerne dass alle leeren Zellen in den Spalten B-D mit dem Inhalt der Zellen eine Zeile...
08.12.2008 17:08:41
Thread-ID: 1031133
5 Beiträge
Zeilen durchsuchen und alle Spalten auslesen.
LOTHARP

Hallo Zusammen,
ich habe eine Tabelle in der ich mir den Maxwert einer bestimmten Zeile wiedergeben lasse mit folgendem MAkro gelöst:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Column = 9 And Target.Row >= 2 And Target.Row
In de...
10.12.2008 11:36:41
Thread-ID: 1031637
4 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
2
4
2
4
5
1
2
4
3
21
3
2
2
1
5
7
4
5
8
4
4
2
7
3