|
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.
Vielleicht könnt ihr mir ja helfen. Ich bin totaler Neuling und verzweifle häufig daran Codes an mein Projekt anzupassen.
Gruß,
Anica
|