Herbers Excel/VBA-Archiv
Wert aus Spalte C in mehreren Blättern suchen | Herbers Excel-Forum
- Wert aus Spalte C in mehreren Blättern suchen von Uwe vom 04.02.2010 19:25:59
- AW: Wert aus Spalte C in mehreren Blättern suchen - von Josef Ehrensberger am 04.02.2010 19:40:14
- AW: Wert aus Spalte C in mehreren Blättern -Danke- - von uwe am 04.02.2010 23:34:18
- AW: Wert aus Spalte C in mehreren Blättern -Danke- - von Josef Ehrensberger am 04.02.2010 23:40:49
- AW: Wert aus Spalte C in mehreren Blättern -Danke- - von Josef Ehrensberger am 04.02.2010 23:40:49
- AW: Wert aus Spalte C in mehreren Blättern -Danke- - von uwe am 04.02.2010 23:34:18
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,
ich würde das z.B. so lösen.
Dim intMonth As Integer, vntRet As Variant
Dim lngRow As Long
lngRow = 10
With Sheets("rechnung")
.Range ("A10:A" & Application.Max(10, .Cells(.Rows.Count, _
1).End(xlUp).Row).EntireRow.ClearContents)
For intMonth = 1 To 12
vntRet = Application.Match(.Range("A3"), Sheets(Format(DateSerial(1, _
intMonth, 1), "MMMM")).Range("D:D"), 0)
If IsNumeric(vntRet) Then
Sheets(Format(DateSerial(1, intMonth, 1), "MMMM")).Rows(vntRet).Copy .Cells(lngRow, 1)
lngRow = lngRow + 1
End If
Next
End With
End Sub
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,
na da hat sich das .EntireRow irgendwie eingeschlichen ;-))
Ohne dem geht's.