Ich habe in mehreren Monatsblättern in Spalte D die Rechnungsnummern stehen.
Es sollen alle Zeilen von (in den Blättern) untereinander kopiert werden, die die Rechnungsnummer
enthält.
Gruss Uwe
Ein Ansatz :
Die Blätter haben die Monatsnamen
For intMonth = 1 To 12
Sheets(Format(DateSerial(1, intMonth, 1), "MMMM").select
'100 Zeilen je Monatsblatt durchsuchen
for i = 3 to 100
'in der Zelle A3 steht die zu suchende Rechnungsnummer
if Range("d"&i) = sheets("rechnung").range("A3")
then
#######
zeile nach
sheets("rechnung").range("A10")
kopieren.
Die nächste Rechnung muss dann nach
sheets("rechnung").range("A11")
next i
Next