Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.10.2025 12:39:33
Summen zusammenzählen in Abhängigkeit einer Jahreszahl
15.10.2025 11:29:24
Algorhitmus, der kleinste Summe von Zahlen berechnet
15.10.2025 10:27:00
Zusammenführen / Synchronisieren von zwei Dateien
15.10.2025 09:51:49
Wenns mit Zahl und Buchstaben
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1796to1800
1796to1800
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

bestimmte Zelleninhalte kopieren

Forumthread: bestimmte Zelleninhalte kopieren

bestimmte Zelleninhalte kopieren
09.12.2020 10:43:40
Christian
Hallo,
ich habe in meiner Excel Tabelle auf dem ersten Blatt nur eine einzige Spalte mit ca. 500 Einträgen. Aus dieser Spalte möchte ich weitere Blätter erstellen, die jeweils nur die Zellen zeigen, in denen bestimmte Wörter enthalten sind. Die Zelleneinträge folgen keinem Format, aber bestimmte Wörter kommen immer wieder vor, gleich geschrieben. Für manche Blätter reicht es mir nur die Zellen zu kopieren, in denen ein Wort vorkommt (z.B. Amnesty), für andere Blätter würde ich gerne nach mehreren Wörtern suchen und eben alle Zellen kopieren, in denen diese mehreren Wörter vorkommen (z.B. alle Zellen mit EU und alle Zellen mit UN). Ich habe eine Beispielmappe angehängt mit den ersten 100 Einträgen.
Gibt es dafür eine einfache Möglichkeit die ohne VBA auskommt?
Über jegliche Anregung würde ich mich freuen,
Danke
https://www.herber.de/bbs/user/142171.xlsx
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: bestimmte Zelleninhalte kopieren
09.12.2020 11:55:05
Herbert_Grom
Hallo Christian,
und wir sollen nun die große Glaskugel nehmen und darin nach den gewünschten Wörtern suchen? Oder, wie hast du dir das vorgestellt?
Servus
AW: bestimmte Zelleninhalte kopieren
09.12.2020 12:03:45
Christian
Nee eigentlich hatte ich gehofft, jemand könnte helfen. Habe jetzt versucht mich selber einzufrickeln und dieses Makro anderswo gefunden und angepasst. 
Sub CopyAmnesty()
' CopyAmnesty Makro
Dim Loletzte As Long
Dim RngZ As Range
For Each RngZ In Worksheets("Tabelle1").Range("A1:A100")
Loletzte = Worksheets("Tabelle3").Cells(Rows.Count, 1).End(xlUp).Row + 1
If RngZ Like "*Amnesty*" Then Worksheets("Tabelle3").Cells(Loletzte, 1) = RngZ
Next
End Sub
Das funktioniert soweit gut. Was mir jetzt noch fehlt wäre eine Option nicht nur nach dem einen Wort, hier Amnesty, sondern gleichzeitig nach mehreren zu suchen. Habe schon ein paar Varianten ausprobiert mit OR oder mit , dazwischen. Mag er aber alles nicht. Wenn mir da jemand helfen könnte. Glaskugel habe ich ja nun schon selber erfolgreich durchleuchtet ;)
Danke, Christian
Anzeige
AW: bestimmte Zelleninhalte kopieren
09.12.2020 12:16:03
Herbert_Grom
Hallo Christian,
mit "or" geht das doch!
Sub CopyAmnesty()
Dim Loletzte As Long, RngZ As Range, iCount%
For Each RngZ In Worksheets("Tabelle2").Range("A1:A100")
iCount = iCount + 1
Loletzte = Worksheets("UN Documents").Cells(Rows.Count, 1).End(xlUp).Row + 1
If RngZ Like "*Amnesty*" Or RngZ Like "*Mokha*" Then _
Worksheets("UN Documents").Cells(Loletzte, 1) = RngZ
Next
End Sub
Servus
Anzeige
AW: bestimmte Zelleninhalte kopieren
09.12.2020 12:17:24
Herbert_Grom
Die "iCount"-Zeile kannst du weg lassen!
AW: bestimmte Zelleninhalte kopieren
09.12.2020 12:20:13
Christian
Top Vielen Dank. Ich habe nur Or eingegeben und dann direkt das nächste Wort ohne RngZ Like. Da lag der Fehler. Jetzt habe ich es zusammen. Danke nochmal!!
AW: Gerne geschehen und danke für die Rückmeldung!
09.12.2020 12:30:43
Herbert_Grom
,,,
Anzeige
AW: bestimmte Zelleninhalte kopieren
09.12.2020 12:23:58
Herbert_Grom
Hallo Christian,
ich hab's noch mal überarbeitet. Ich würde es so machen:
Sub CopyAmnesty()
Dim iRowIn%, RngZ As Range
For Each RngZ In Worksheets("Tabelle2").Range("A1:A100")
If RngZ Like "*Amnesty*" Or RngZ Like "*Mokha*" Then
Worksheets("UN Documents").Cells(iRowIn, 1) = RngZ
iRowIn = Worksheets("UN Documents").Cells(Rows.Count, 1).End(xlUp).Row + 1
End If
Next
End Sub
Servus
Anzeige
AW: bestimmte Zelleninhalte kopieren
09.12.2020 13:45:50
Günther
Moin,
mit deiner Version ist das ohne eine einzige Zeile Code (VBA oder M) möglich; befasse dich einfach einmal mit Power Query.
 
Gruß
Günther  |  mein Excel-Blog
Anzeige
;

Forumthreads zu verwandten Themen

Zelleninhalt in Bereich kopieren
Ludger

Hallo zusammen,
im Seet 1 habe ichin Zelle A1 einen Wert stehen. Diesen möchte ich nach Sheet 2 Zelle C3 bringen.
Problem: Im Sheet 2 ist die Zelle C3 in einem vordef. Bereich C3:D10
Wie bekomme ich das in VBA gelöst ?
Danke
Ludger
23.02.2009 17:25:39
Thread-ID: 1053201
4 Beiträge
Nur Zellen mit Text kopieren
Peter

Hallo
ich bin gerade dabei eine Excel Tabelle zu bearbeiten und haben ein Auswahltabellenblatt wo ich über
Kontrollkästchen verschiedene Options auswählen kann, bzw noch die Anzahl angeben kann.
In einen Datentabellenblatt werden mir untereinander die Daten ausgegeben.
Das heißt...
15.06.2009 12:58:41
Thread-ID: 1081552
21 Beiträge
Zellen anhand Inhalt auswählen und kopieren
Matthias

Hallo zusammen,
ich habe folgendes Problem: Aus einer Datei mit ca. 30.000 Zeilen und 38 Spalten sollen einige Bereiche ausgewählt werden und in unterschiedliche Blätter einer zweiten Arbeitsmappe einsortiert werden.
Konkret: Per Makro soll in Spalte C der Bereich gesucht werden der z.B...
08.11.2009 21:04:13
Thread-ID: 1115418
13 Beiträge
Nur den Inhalt kopieren
edie

Hallo zusammen,
was muss ich ändern damit nur der Inhalt kopiert wird?
Sub test() Dim wsT As Worksheet Dim wsS As Worksheet Dim i As Integer Dim RowsT As Integer Application.ScreenUpdating = False Set wsT = ActiveWorkbook.Sheets.Add(, Worksheets(Worksheets.Count), , xlWorksheet) wsT.Nam...
27.12.2009 23:27:15
Thread-ID: 1126034
3 Beiträge
kompl. zelleninhalt in textdatei kopieren
Helmut

hallo vba'ler,
ich hätte eine kurze frage für profis:
ich habe folgenden code:
j = Sheets("Textexport").UsedRange.Rows.Count
Open "D:\Text.txt" For Output As #1
For i = 1 To j
Tstring = Format(Cells(i, 1)) & Format(Cells(i, 2)) & Format(Cells(i, 3)) & Format(...
09.03.2010 10:00:23
Thread-ID: 1144486
6 Beiträge
Zelleninhalte umkopieren
Hugo

Hallo zusammen
Möchte Daten aus einer Zelle in die darunterliegenden Zeilen/Zellen kopieren
DH:
In Zelle A1 steht, jeweils mit Zeilenumbruch:
Hans
Apfel
Gurke
Nun soll per VBA Hans in A2, Apfel in A3 und Gurke in A4 kopiert werden
Besten Dank für eure Hilfe
G...
28.09.2010 20:20:49
Thread-ID: 1179799
8 Beiträge
Zelleninhalt kopieren und einfügen
Ingo

Hallo,
ich habe eine Excel-Tabelle, in der in der zweiten Spalte Daten stehen. Zwischen den Daten sind die Zellen ohne Inhalt. Ich möchte nun, dass die leeren Zellen mit den darüberstehenden Daten gefüllt werden.
Hier der Code, den ich verfasst habe und der nichts ausfüllt...
Sub Ze...
16.05.2011 06:40:15
Thread-ID: 1214626
7 Beiträge
Zelleninhalte kopieren
Helmut

Hallo,ich möchte in einer Zelle (Bsp. A1) einen Wert eingeben, der dann innherlab des Sheets(Bsp. A10) an eine andere Stelle kopiert werden soll. Nun wird in A1 wieder ein Wert eingegeben. Dieser soll nun wieder an A10 weggeschrieben werden, allerdings addiert zum ersten Wert. Zu guter letzt so...
06.06.2002 11:27:43
Thread-ID: 126429
2 Beiträge
Anzeige
Nur Zellen mit Inhalt markieren
Fuchs


Hallo Leute.
ich bin gerade dabei riesige mengen an alten *.txt dateien in exel reinzukloppen ;-) Gibt es ein makro mit dem ich nur die zellen markieren kann, die einen inhalt haben?
Schon mal vielen dank!

20.06.2002 14:12:12
Thread-ID: 130181
2 Beiträge
Anzeige
Zelleninhalte kopieren & einfügen
Stefan

Hallo zusammen
Ich möchte aus jener Zeile, in welcher sich die aktive Zelle befindet, den Wert E, F, G und M kopieren und in eine fixe Position einfügen.
Die fixen Positionen zum Einfügen sind P2/P3/P4 und R3.
Beispiel: aktive Zelle ist C1. Somit sollen aus Zeile1 die Werte folgende...
10.04.2013 15:55:38
Thread-ID: 1308191
3 Beiträge
Anzeige
Zelleninhalt "versetzt" kopieren
Dieter

Bitte um Hilfe !
Ich möchte mehrere Zellen eines Blattes „versetzt“ in ein anderes Blatt kopieren. Es soll ablaufen, bis eine leere Zeile in der Tabelle PDaten erreicht ist. Auslösen möchte ich das Kopieren beim Beenden der Eingabe der PDaten mittels Befehlsbutton.
PDaten!A5; B5; D5 nac...
28.08.2013 17:41:18
Thread-ID: 1328681
3 Beiträge
Anzeige
AW: Zelleninhalt in anderes Tabellenblatt kopieren
Rene

Hallo Leute,
leider ist mein alter Beitrag schon archiviert und ich kann ihn nicht weiterführen.
Ich bekam damals den Tip mit der Matrixformel: {=WENN(ZEILEN($1:1) >ZÄHLENWENN(Mitglieder!I:I;"E");"";INDEX(Mitglieder!B:B; KKLEINSTE(WENN( _ Mitglieder!I$1:I$99="E";ZEILE($1:$99) );ZEIL...
20.01.2014 13:29:07
Thread-ID: 1345977
2 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige