Auswertung abändern
03.08.2005 17:05:22
Hugo
Kann mir vielleicht jemand sagen wie ich untenstehenden Code abändern muss, damit nicht auf sämtlichen Tabellenblättern, sondern nur auf einem bestimmten Tabellenblatt (z.B. Obstsorte) gesucht wird?
Besten Dank im Voraus.
Gruss Hugo
Sub Daten_zusammenfassen()
Dim sh As Object
Dim rng As Range
For Each sh In ThisWorkbook.Worksheets
If sh.Name <> "Auswertung" Then
For Each rng In sh.Range("B6:B" & sh.Range("B65536").End(xlUp).Row)
If rng = ThisWorkbook.Sheets("Auswertung").Range("F37") Then
ThisWorkbook.Sheets("Auswertung").Range("B65536") _
.End(xlUp).Offset(1, 0) = rng.Offset(0, -1)
End If
Next rng
End If
Next sh
End Sub
Anzeige