EXCEL VBA: Zeile nach Zellenkriterium kopieren

Question

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.

Answer 1

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.

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 SubIch hoffe, Du meintest das so? Bei Fragen melde Dich.

MfG,
Oliver
[sub]Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du[/sub]
[sup] ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.[/sup]

Answer 2

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

Answer 3

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

Answer 4

Hallo Mario,

so ganz kann ich Dir nicht folgen. Was meinst Du mit Deiner Aussage

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
[sub]Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du[/sub]
[sup] ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.[/sup]

Answer 5

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

Answer 6

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
[sup]Jeder macht was er will, keiner macht was er soll, aber alle machen mit.[/sup]