Betrifft: Wert aus Spalte C in mehreren Blättern suchen
von: Uwe
Geschrieben am: 04.02.2010 19:25:59
Hallo,
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
Betrifft: AW: Wert aus Spalte C in mehreren Blättern suchen
von: Josef Ehrensberger
Geschrieben am: 04.02.2010 19:40:14
Hallo Uwe,
Betrifft: AW: Wert aus Spalte C in mehreren Blättern -Danke-
von: uwe
Geschrieben am: 04.02.2010 23:34:18
Hallo Sepp,
vielen Dank.
Eine Fehler kam noch in den Zeilen
.Range ("A10:A" & Application.Max(10, .Cells(.Rows.Count, _
1).End(xlUp).Row).EntireRow.ClearContents)
--Objekt erforderlich
Ich habe das einfach so gelöst
.Range("A10:A222").EntireRow.ClearContents
Gruss
Uwe
Betrifft: AW: Wert aus Spalte C in mehreren Blättern -Danke-
von: Josef Ehrensberger
Geschrieben am: 04.02.2010 23:40:49
Hallo Uwe,