Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1872to1876
1872to1876
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Text finden und Spalteninhalte kopieren

Forumthread: Text finden und Spalteninhalte kopieren

Text finden und Spalteninhalte kopieren
18.03.2022 14:08:19
Fred
Hallo Excelperten,
ich steh auf dem Schlauch ..
folgendes:
In Zeile 3 der Spalte "N" steht Text
Ab Zeile 4 (Titel) beginnt eine formatierte Tabelle
was ich möchte;
1. Den identischen Textinhalt in dieser Tabelle,- in Spalte "N" suchen
und wenn gefunden
2. aus der gefundenen Zeile den Inhalt von Spalten "J:EJ" ab "J2" einfügen.
Kann mir ein Experte bitte diese Anweisung schreiben?!
Gruss
Fred
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: angenommen Deine formatierte Tabelle ...
18.03.2022 14:45:41
neopa
Hallo Fred,
... hat den Namen Tabelle1. Dann z.B. mit folgender Formel in J2:
=WENNFEHLER(INDEX(J:J;AGGREGAT(15;6;ZEILE(Tabelle1)/(Tabelle1=$N3);1););"") und diese bis EJ2 ziehend kopieren.
Gruß Werner
.. , - ...
AW: angenommen Deine formatierte Tabelle ...
18.03.2022 15:30:36
Fred
Hallo Werner,
vielen Dank für deine Formel,- diese führt gewünschtes aus.
Kleineres Problem:
Die formatierte Tabelle ist eine PQ (Abfrage aus dem Web)
Durch deine Formel benötigt nun die Abfrage mit anschließender "Bearbeitung" merklich mehr Zeit.
Darraufhin habe ich deine Formel über ein Makro eingesetzt und anschließend ".. .AutoFill ......"
Anschließend die Formelergebnisse in reine Werte umgewandelt

Sub daten2_b()
Worksheets("import").Activate
Worksheets("import").Range("J2").FormulaLocal = "=WENNFEHLER(INDEX(J:J;AGGREGAT(15;6;ZEILE(live_daten)/(live_daten=$N3);1););"""")"
With Worksheets("import") ' ActiveSheet
.Range("J2:J2").AutoFill Destination:=Range("J2:EJ2"), Type:=xlFillDefault
End With
' Werte statt Formeln
Worksheets("import").Range("J2:EJ2").Copy
Worksheets("import").Range("J2").PasteSpecial xlPasteValues
Application.CutCopyMode = False
End Sub
Nun gibt es keine merkliche Zeitverzögerung in der Aktualisierung der Abfrage.
Vielleicht bitte noch eine kleine Hilfestellung für mich!
Im oberen Makro wird zu Beginn das Sheet "import" aktiviert.
Meine Frage:
Wie ändere ich das Makro,- ohne das Sheet "import" zu aktivieren?
Wie auch immer,- vielen vielen Dank für deine kompetente Unterstützung, Werner!!
Gruss
Fred
Anzeige
AW: VBA-Hilfe erbeten, thread wieder offen owT
18.03.2022 15:36:52
neopa
Gruß Werner
.. , - ...
Wenn PQ dann PQ
18.03.2022 15:51:24
Yal
Hallo Fred,
um diese Werte in N3 solltest Du eine aktive Tabelle einschalten, so kannst Du N3 in PQ übernehmen und mit Join oder Filter auf die andere Query anwenden.
Ergebnis lässt Du in J2 raus.
Dann brauchst Du weder Formeln noch VBA und die Geschwindigkeit sollte einigermassen passen.
VG
Yal
Anzeige
AW: Wenn PQ dann PQ
18.03.2022 16:05:28
Fred
Hallo Yal,
ja,- eine gute Idee!!!
Werde ich umsetzen.
Vielen Dank
AW: das setzt jedoch voraus ...
18.03.2022 17:09:11
neopa
Hallo Fred,
... dass in J1:EJ1 nichts steht und der Suchwert aus N3 müsste auch in eine Zelle verschoben werden, über der momentan noch nichts steht. Nur dann könnte ich eine PQ-Lösung erstellen, die interaktiv definiert wird.
Gruß Werner
.. , - ...
Anzeige
AW: angenommen Deine formatierte Tabelle ...
18.03.2022 16:09:36
ChrisL
Hi Fred
Ich bin zu 100 % bei Yal. Wieso erst viele Daten in die Tabelle ablegen, wenn du nachher sowieso nur einen kleinen Teil davon brauchst.
Trotzdem noch kurz die Frage beantwortet. Passt schon fast, aber bei Destination ging der Punkt vergessen. Zudem liesse sich die With-Klammer noch erweitern.

Sub daten2_b()
With Worksheets("import")
.Range("J2").FormulaLocal = "=WENNFEHLER(INDEX(J:J;AGGREGAT(15;6;ZEILE(live_daten)/(live_daten=$N3);1););"""")"
.Range("J2:J2").AutoFill Destination:=.Range("J2:EJ2"), Type:=xlFillDefault
.Range("J2:EJ2").Copy
.Range("J2").PasteSpecial xlPasteValues
End With
Application.CutCopyMode = False
End Sub
Und hier noch eine andere Variante:

Sub t()
Dim lngZeile As Long
With Worksheets("import")
lngZeile = Application.Match(.Range("N3"), .ListObjects("live_daten").ListColumns(5).DataBodyRange, 0)
.Range("J2:EJ2").Value = .ListObjects("live_daten").ListRows(lngZeile).Range.Value
End With
End Sub
cu
Chris
Anzeige

Forumthreads zu verwandten Themen

Frage - Spalten einfügen & Spalten untereinander z
André

Hallo zusammen!
Ich habe da als blutiger Anfänger in VBA zwei Fragen:
1.) Wie kann ich in meiner Tabelle in jeder zweiten Spalte 4 leere Spalten einfügen lassen?
2.) Dann möchte ich unter den Inhalt der ersten fünf Spalten (A-E) den Inhalt der zweiten 5 Spalten (F-J) usw. In der grö...
08.08.2008 16:00:00
Thread-ID: 1000340
3 Beiträge
Anzeige
Zeilenmerkmale in Spalten umwandeln
MG_Learning

Hallo zusammen!
Ich habe keine Ahnung, wie ich aus folgender Tabellenstruktur: Beispiel:
A B C
London 20 Kinos
London 50 Gaststätten
London 10 Einkaufscentren
Paris 18...
17.08.2008 18:31:50
Thread-ID: 1002449
4 Beiträge
Spalten in Zeilen anhängen
Jörg

Hallo zusammen,
in einer Tabelle mit ~1000 Artikeln in Spalte A stehen jeweils in den Spalten B-M die 12 zum Artikel gehörenden Monatswerte des Verbrauchs.
Ich brauche diese Daten jetzt so angeordnet, dass weiterhin alle Artikel in Spalte A stehen, jedoch die einzelnen Monatswerte unter...
01.09.2008 18:03:42
Thread-ID: 1006570
11 Beiträge
Zelleninhalt (Text) in 2 Spalten teilen
El.

Hallo!
Habe eine Spalte in der Artikelname und Artikelmerkmale, durch drei Punkte getrennt "...", zusammen stehen. Beispiel: Lecker Whisky 21 Jahre ... Lieferung in hochwertiger Schatulle
Wie krieg ich nun den Text links der Punkte in eine extra Spalte und rechts der Punkte in eine extr...
03.09.2008 16:35:00
Thread-ID: 1007155
4 Beiträge
wie Spalten in einem Arbeitsblatt zu Zeilen zusamm
Michael

Moin erstmal,
folgendes Problem als mittelmäßiger Anwender.
Ich habe mehrere identische Arbeitsblätter wo ich jeweils untereinander (eine Spalte) mehrer Werte habe. G1-G10.
Diese Werte möchte ich in einem Arbeitsblatt zusammenfassen , allerdings nun in einer Zeile. A1-J1.
Wi...
04.09.2008 19:48:05
Thread-ID: 1007497
4 Beiträge
Anzeige
Spaltentrennzeichen nach speichern in Text-Datei
Michael

Hallo
ich habe ein Problem. Vielleicht ist es schwierig, vielleicht aber auch nicht.
Ich habe eine Text-Datei mit Spaltentrennzeichen "|" (besser als ";" der Übersichtlichtlichkeit halber) und verschiedenen Längen der Spalten.
Ich will diese in Excel überarbeiten und als Text-Dat...
11.09.2008 09:28:00
Thread-ID: 1008978
3 Beiträge
Text in Spalten
Simone

Hallo zusammen,
ich hab ein wohl eher triviales Problem, komme aber trotzdem einfach nicht weiter.
Ich füge in ein Arbeitsblatt Daten aus einem anderen Programm ein. Jetzt habe ich mehrmals die Funktion 'Text in Spalten' verwendet / ausprobiert, und wenn ich jetzt wieder Daten in A1 ein...
16.09.2008 13:54:00
Thread-ID: 1010092
3 Beiträge
Zeilen löschen in Abhängigkeit von 2 Spalten
2

Hallo zusammen,
ich habe ein Makro über den Rekorder aufgezeichnet und versuche es anzupassen. Leider kenn ich mich in der Syntax nicht aus.
Ziel:
In einem markierten Bereich die Zeilen löschen, die in Abhängigkeit von zwei Spalten eine 0 enthalten.
D.h. Spalten X und Y enthalte...
06.10.2008 14:00:00
Thread-ID: 1014434
3 Beiträge
TextBox Werte in Spalte Q ersetzen ?
Selma

Hallo Leute,
ich habe eine Frage zu UserForm. Beim Klick auf CommandButton1 sollen die Zahlen aus TextBox1 mit Werten in Spalte Q ab Zeile 12 ersetzt werden. Dies soll nur dann erfolgen, wenn in TextBox1 die Zahlen stehen bzw. der TextBox gefüllt ist.
Ersetzt sollen nur die vorhandene W...
13.10.2008 15:42:00
Thread-ID: 1016083
3 Beiträge
Text in Spalten
Tom

Hallo,
ich möchte mit der Funktion Text in Spalten erreichen, dass alle Zeilen, die mit einer Zahl beginnen, nach der Zahl in eine neue Spalte geschoben werden - nur finde ich hierfür nur die Funktionen nach Leerzeichen, Komma usw...
Wer hat ne Lösung?
In A1: 1020 Maier Huber Mülle...
20.10.2008 14:09:42
Thread-ID: 1017654
7 Beiträge
Pivot - Text in Spalte überführen
Binu

Hallo
Ich hab in der Beispieldatei die Spalte "Zahl", welche ich in einer Pivotdatei ebenfalls als Spalte neben der Spalte "TExt" hinzufügen will. Nur kriege ich das nicht hin. Kann mir da jemand helfen? Besten Dank!
Gruss Albin
https://www.herber.de/bbs/user/56492.xls
04.11.2008 11:04:36
Thread-ID: 1021516
4 Beiträge
Anzeige
Text in Spalte nicht Spalte sondern Bereich
mehmet

Hallo Forum,
ich habe mit dem Makrorekorder "Text in Spalte" aufgezeichnet.
Wollte diese nun ändern für ein Bereich (Q4:Q60) statt Spalte (Q:Q).
Warum geht das nicht?
Private Sub CommandButton1_Click() ' Makro1 Makro ' Makro am 20.11.2008 von pc aufgezeichnet Sheets("Tabelle4"...
20.11.2008 17:10:38
Thread-ID: 1026492
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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