Es tut mir leid, dass ich das noch mal schreiben muss, aber mein Post steht jetzt auf gelöst und das ist leider überhaupt nicht der Fall.

Also zweiter Versuch:

Hallo zusammen,

ich versuche meine Problem mal zu beschreiben. Anfang ist dieser Code.

(Suche im Sheet "Hauptliste" in Spalte A nach dem Begriff "Stempelaktion", wird er gefunden kopiere mir die Zellen B und C in das Sheet "Stempelkarten".

Sub stempel()

If WorksheetFunction.CountIf(Worksheets("Hauptliste").Range("A:A"), "Stempelaktion") > 0 Then

    Worksheets("Hauptliste").Range("B2").Copy Destination:=Worksheets("Stempelkarten").Range("A5 ")

    Worksheets("Hauptliste").Range("C2").Copy Destination:=Worksheets("Stempelkarten").Range("F5 ")

End If

End Sub

Es gibt mir super den gewünschten Wert in der zweiten Tabelle wieder. Allerdings nur einmal. Jetzt möchte ich natürlich, dass nicht nur der erste Treffer in meiner zweites Tabellenblatt kopiert wird, sondern alle gesuchten Werbe, wenn im ersten Tabellenblatt das Suchwort "Stempelaktion" in Spalte A auftaucht.

Und genau hier liegt mein Problem. Ich weiß, dass ich eine Variable brauche und irgendeine Schleife darum herum legen muss, sowie die letzte gefüllte Zelle in Spalte A abfragen muss. So weit so gut. Aber diese beiden Dinge bekomme ich partout nicht mit meinem Ursprungscode zusammengebaut.

Mittlerweile ist das mein Stand, aber das funzt vorne und hinten nicht:

Sub Stempelaktion()

Dim LetzteZeile As Long
Dim i As Integer

LetzteZeile = Cells(Rows.Count, 2).End(xlUp).Row

For i = 1 To LetzteZeile
If Hauptliste.Cells(i, 2).Value = "Stempelaktion" Then

Worksheets("Hauptliste").Range("B2").Copy Destination:=Worksheets("Stempelkarten").Range("A5 ")
Worksheets("Hauptliste").Range("C2").Copy Destination:=Worksheets("Stempelkarten").Range("F5 ")


End If
Next i

End Sub
 

Vielleicht könnt ihr mir ja helfen. Ich bin totaler Neuling und verzweifle häufig daran Codes an mein Projekt anzupassen.

Gruß,

Anica