Gruppen
- Top Gruppen
- Betriebsysteme
- Windows classik
- Linux
- BS-Sonstige
- Software
- Datenbanken
- Bildbearbeitung
- Audio/mp3/Video
- Security/Viren
- SW-Sonstige
- Hardware
- Mainboard/CPU
- Grafikkarten
- Peripherie
- Laptop/Notebook
- HW-Sonstiges
- Netzwerk
- Telefon,ISDN,Modem
- W-Lan
- NW-Sonstiges
- Programmierung
- PHP,ASP,Perl...
- Java,C++...
- Webseiten/HTML
- Sonstiges
- PC-Sonstiges
- Plauderecke
- SN Intern
- Test
/ Forum / Tabellenkalkulation
Tabellenkalkulation
Fragevon little-key vom 05.09.2021, 23:11 Options
EXCEL VBA: Zeile nach Zellenkriterium kopieren
Nun hat mir Oliver vorhin schnell geholfen , schon stehe ich vor dem nächsten Problem:
In Spalte A stehen z. B. AQ oder TE oder GT.
Das heißt:
Wenn in Spalte A ein AQ steht, kopiere die gesamte Zeile an das Ende der Tabelle.
Dito TE und GT.
Dazu erwähnt, dass auch weitere Buchstaben hinter AQ, TE.... stehen können, wie z.B. AQ 345
AQ 368......
Aber dazwischen steht immer je 1x AQ, TE... ohne weitere Zahlen/Buchstaben.
Kann mir jemand dazu helfen. Hoffentlich gut erklärt?
Danke im voraus.
In Spalte A stehen z. B. AQ oder TE oder GT.
Das heißt:
Wenn in Spalte A ein AQ steht, kopiere die gesamte Zeile an das Ende der Tabelle.
Dito TE und GT.
Dazu erwähnt, dass auch weitere Buchstaben hinter AQ, TE.... stehen können, wie z.B. AQ 345
AQ 368......
Aber dazwischen steht immer je 1x AQ, TE... ohne weitere Zahlen/Buchstaben.
Kann mir jemand dazu helfen. Hoffentlich gut erklärt?
Danke im voraus.
Antwort 1 von coros vom 06.09.2021, 15:54 OptionsLösung
Hallo little-key,
da aus Deiner Frage nicht so ganz heraus kam, ob nur die Zeilen, in denen die Buchstabenkombination alleine oder ob auch die Zeilen, bei denen die Kombination aus Buchstaben und Zahlen bestehen, ebenfalls kopiert werden sollen, habe ich mich erst mal für das einfachste entschieden. Nachfolgendes Makro prüft Spalte A nach Deinen vorgegebenen Kriterien. Wenn exakt der Zellinhalt "AQ", "GT" oder "TE" gefunden wurde, wird die gesamte Zeile ans Ende der Tabelle kopiert.
Kopiere das Makro in ein StandardModul und starte es z.B. über eine Befehlsschaltfläche
Teste das Makro aber bitte in einer Testdatei und nicht gleich in Deiner Originaldatei.
MfG,
Oliver
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du
ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
da aus Deiner Frage nicht so ganz heraus kam, ob nur die Zeilen, in denen die Buchstabenkombination alleine oder ob auch die Zeilen, bei denen die Kombination aus Buchstaben und Zahlen bestehen, ebenfalls kopiert werden sollen, habe ich mich erst mal für das einfachste entschieden. Nachfolgendes Makro prüft Spalte A nach Deinen vorgegebenen Kriterien. Wenn exakt der Zellinhalt "AQ", "GT" oder "TE" gefunden wurde, wird die gesamte Zeile ans Ende der Tabelle kopiert.
Kopiere das Makro in ein StandardModul und starte es z.B. über eine Befehlsschaltfläche
Teste das Makro aber bitte in einer Testdatei und nicht gleich in Deiner Originaldatei.
Option Explicit
Sub Kopieren()
Dim lngRow As Long
For lngRow = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
If UCase(Cells(lngRow, 1)) = UCase("AQ") Or _
UCase(Cells(lngRow, 1)) = UCase("TE") Or _
UCase(Cells(lngRow, 1)) = UCase("GT") Then _
Rows(lngRow).Copy Cells(Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row, 1)
Next
End SubMfG,
Oliver
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du
ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
Antwort 2 von little-key vom 06.09.2021, 18:23 Options
Hallo Oliver,
erst mal wieder besten Dank dafür.
Es funktioniert auch, nur folgende Probleme:
Ich musste den Code mit an den Anfang des Ablaufs setzen. Somit ändert sich die Spalte von A auf E, die zu durchsuchen ist. War auch kein Problem, das zu ändern. Aber das Ende der Tabelle ergibt sich aus Spalte D. Hier steht als einzigstes in der Zeile wieder die -99 am Ende der Tabelle (Du erinnerst Dich, nach -99erfolgt der Seitenumbruch).
Das zweite Problem (meine Schuld), es gibt natürlich noch mehr Suchkriterien, die ich nicht aufgeführt hatte, z.B. NG und VO. Auch kein Problem, aber es gibt leider auch NG+VO. Nun habe ich am Ende der Tabelle 2xNG, 2xVO und 1xNG+VO zu stehen.
PS. Scheine mich ja ganz gut auszudrücken, da bisher alles perfekt funktioniert hat.
Ein großes Lob an Deine Kenntnis. Lerne aber auch dazu.
Gruß Mario
erst mal wieder besten Dank dafür.
Es funktioniert auch, nur folgende Probleme:
Ich musste den Code mit an den Anfang des Ablaufs setzen. Somit ändert sich die Spalte von A auf E, die zu durchsuchen ist. War auch kein Problem, das zu ändern. Aber das Ende der Tabelle ergibt sich aus Spalte D. Hier steht als einzigstes in der Zeile wieder die -99 am Ende der Tabelle (Du erinnerst Dich, nach -99erfolgt der Seitenumbruch).
Das zweite Problem (meine Schuld), es gibt natürlich noch mehr Suchkriterien, die ich nicht aufgeführt hatte, z.B. NG und VO. Auch kein Problem, aber es gibt leider auch NG+VO. Nun habe ich am Ende der Tabelle 2xNG, 2xVO und 1xNG+VO zu stehen.
PS. Scheine mich ja ganz gut auszudrücken, da bisher alles perfekt funktioniert hat.
Ein großes Lob an Deine Kenntnis. Lerne aber auch dazu.
Gruß Mario
Antwort 3 von little-key vom 06.09.2021, 19:46 Options
Ergänzung:
Hallo Oliver,
meine Aussage zwecks der 2xVO und 2x NG... ist falsch. Taucht alles nur 1x auf, aber das Problem mit dem ans Ende setzen bleibt.
Achso, Du fragtest noch, ob ich den Ablauf so meinte, wie Du den Code geschrieben hattest. Ja, genau so.
Mario
Hallo Oliver,
meine Aussage zwecks der 2xVO und 2x NG... ist falsch. Taucht alles nur 1x auf, aber das Problem mit dem ans Ende setzen bleibt.
Achso, Du fragtest noch, ob ich den Ablauf so meinte, wie Du den Code geschrieben hattest. Ja, genau so.
Mario
Antwort 4 von coros vom 07.09.2021, 06:58 Options
Hallo Mario,
so ganz kann ich Dir nicht folgen. Was meinst Du mit Deiner Aussage
Kannst Du das nochmal genauer erklären. Eventuell mal eine Beispieldatei ins Internet stellen (es gibt genug Anbieter im Internet, bei denen man eine Datei zum Download für andere hochladen kann, einfach mal googeln), damit man sich das ansehen kann. Denn wenn man das vor Augen hat, wird einem oft einiges klarer.
MfG,
Oliver
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du
ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
so ganz kann ich Dir nicht folgen. Was meinst Du mit Deiner Aussage
Zitat:
Ich musste den Code mit an den Anfang des Ablaufs setzen. Somit ändert sich die Spalte von A auf E, die zu durchsuchen ist. War auch kein Problem, das zu ändern. Aber das Ende der Tabelle ergibt sich aus Spalte D. Hier steht als einzigstes in der Zeile wieder die -99 am Ende der Tabelle (Du erinnerst Dich, nach -99erfolgt der Seitenumbruch).
Ich musste den Code mit an den Anfang des Ablaufs setzen. Somit ändert sich die Spalte von A auf E, die zu durchsuchen ist. War auch kein Problem, das zu ändern. Aber das Ende der Tabelle ergibt sich aus Spalte D. Hier steht als einzigstes in der Zeile wieder die -99 am Ende der Tabelle (Du erinnerst Dich, nach -99erfolgt der Seitenumbruch).
Kannst Du das nochmal genauer erklären. Eventuell mal eine Beispieldatei ins Internet stellen (es gibt genug Anbieter im Internet, bei denen man eine Datei zum Download für andere hochladen kann, einfach mal googeln), damit man sich das ansehen kann. Denn wenn man das vor Augen hat, wird einem oft einiges klarer.
MfG,
Oliver
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du
ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
Antwort 5 von little-key vom 08.09.2021, 02:10 Options
Hallo Oliver,
vielen, vielen Dank.
War mein Fehler, Dein Code funktioniert problemlos.
Mein Makro ist sehr kompliziert, ist schon gute 2 DIN A4 Seiten lang und man muss nur noch die Zusätze an der richtigen Stelle einfügen.
Bist Du nur im Forum oder bekommt man Dich auch anderweitig zu greifen, ohne Dich übermäßig belästigen zu wollen?
Machst Du auch Internetseiten, da traue ich mich nicht ran? Sollte ggf. für die Firma sein, also auch nicht umsonst.
Aber trotzdem nochmals herzlichen Dank für deine bisherige Hilfe.
Gruß Mario
vielen, vielen Dank.
War mein Fehler, Dein Code funktioniert problemlos.
Mein Makro ist sehr kompliziert, ist schon gute 2 DIN A4 Seiten lang und man muss nur noch die Zusätze an der richtigen Stelle einfügen.
Bist Du nur im Forum oder bekommt man Dich auch anderweitig zu greifen, ohne Dich übermäßig belästigen zu wollen?
Machst Du auch Internetseiten, da traue ich mich nicht ran? Sollte ggf. für die Firma sein, also auch nicht umsonst.
Aber trotzdem nochmals herzlichen Dank für deine bisherige Hilfe.
Gruß Mario
Antwort 6 von coros vom 08.09.2021, 04:42 Options
Hallo Mario,
gern geschehn, Danke auch für die Rückmeldung.
Internetseiten mache ich nicht. Mein Steckenpferd liegt mehr in Excel und der VBA-Programmierung. Erreichen kann man mich auch über meine Homepage. Die Adresse dazu findest Du in meiner Visitenkarte (1x auf den Nicknamen "coros" klicken)
MfG,
Oliver
Jeder macht was er will, keiner macht was er soll, aber alle machen mit.
gern geschehn, Danke auch für die Rückmeldung.
Internetseiten mache ich nicht. Mein Steckenpferd liegt mehr in Excel und der VBA-Programmierung. Erreichen kann man mich auch über meine Homepage. Die Adresse dazu findest Du in meiner Visitenkarte (1x auf den Nicknamen "coros" klicken)
MfG,
Oliver
Jeder macht was er will, keiner macht was er soll, aber alle machen mit.
Ähnliche Themen
VBA - Zeile ? bis letzte Zeile markieren ...
Tomschi 03.04.2008 - 120 Hits - 7 Antworten
Daten aus 20 excel dateien in eine excel datei kopieren mit einem vba script
Syrell 11.08.2008 - 347 Hits - 5 Antworten
VBA EXCEL Zeile löschen
vollmondgierig 27.10.2008 - 57 Hits - 10 Antworten
Excel VBA -> Problem mit Zeile kopieren trotz Suche im Forum
jackhugo 04.11.2008 - 77 Hits - 4 Antworten
VBA Excel: zellinhalt kopieren und anderswo ablegen
herbybeatle 25.02.2009 - 1947 Hits - 5 Antworten
Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..
Neue Einträge
