VBA zum Suchen und Kopieren in Excel

Hallo Ihr Lieben,

ich habe das folgende Problem:

Ich habe eine Excel Tabelle mit mehreren Blaettern. Diese sind jeweils gleich aufgebaut. Es steht in einer Spalte eine Produktbezeichung und in der Nachbarspalte kann ausgewaehlt werden, ob es sich um einen Eilauftrag oder nur eine normale Anfertigung handelt.

Jetzt moechte ich ein weiteres Blatt einfuegen, in welchem mir ueber ein Makro alle Eilauftraege als Tabelle angezeigt werden.

In meinem Kopf bin ich so weit, dass das Makro die Spalte A nach dem Wort "Eilauftrag" absuchen soll und wenn es gefunden wird die dazugehoerige Spalte B mit der Produktbezeichung ausgibt, dieses in eine Tabelle schreibt und das fuer alle anderen Blaetter wiederholt.

Leider bin ich nicht so gut in Programierung und weiss daher nicht wie ich es Excel beibringe :wink:

Ich wuerde mich super ueber eure Hilfe freuen, da ich hier wirklich verzweifel :bahnhof:

@ HannaTina

HannaTina schrieb:

........Jetzt moechte ich ein weiteres Blatt einfuegen, in welchem mir ueber ein Makro alle Eilauftraege als Tabelle angezeigt werden.....

Zum Vergrößern anklicken....

, eine Lösung kann ich Dir nur soweit anbieten, da ich den genauen Aufbau Deiner Tabelle nicht kenne, gebe ich Dir folgende Infos zur Hand

1. Einführung in die Excel-Makroprogrammierung

2. Excel Programmierung mit V i s u a l B a s i c

Hallo John,

schon mal vielen Dank dafuer! Ich werde mich da mal durcharbeiten. Bislang bin ich so weit, das ich erstmal versuche aus einem der Blaetter mit Namen "Specials Planning Boards" alle Auftraege (Auftragsname steht in Spalte B) die den Status "Urgent" haben (das steht bei mir in der Spalte D) raus zu suchen und das in einem anderen Blatt ("Backorders") als neue Tabelle ausgeben zu lassen. Mein Code dazu sieht folgendermassen aus, aber da fehlt wohl noch einiges, den er funktioniert nicht

With Worksheets("Specials Planning Boards").Range("D350")
Set c = .Find(Backorders, LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
c.Value.Copy
c.Value.Paste Destination:=Worksheets("Backorders").Range("A8:A55")
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With

Danke fuer die Hilfe!