Microsoft Excel

Herbers Excel/VBA-Archiv

Wert aus Spalte C in mehreren Blättern suchen | Herbers Excel-Forum


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.



Sub copyRG()
  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


Gruß Sepp



  

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.


Gruß Sepp



Beiträge aus den Excel-Beispielen zum Thema "Wert aus Spalte C in mehreren Blättern suchen"