Suche über mehere Tabellenblätter
30.12.2006 12:25:24
Chris
Ich habe eine Arbeitsmappe mit der ich Angebote erstelle. Jetzt habe ich einen Code geschrieben mit dem ich eine Titelzusammenstellung auf einen weiteren Arbeitsblatt machen kann.Mit dem Code suche ich den Titel und die Titelsumme und übertrage diese Daten in ein weiteres Arbeitsblatt. Wie müsste ich den Code ändern damit ich die Suche auf mehere Tabellenblätter ausweiten kann ? Die Anzahl der Tabellenblätter ist variabel,jedoch max.10 Blätter.
Hier der Code:
Sub Titelzusa()
Dim c As Range
Dim rng As Range
Set rng = ActiveSheet.Range("C2:C400")
For Each c In rng
If c.FormulaR1C1 = "Titelsumme" Then
Sheets("Tabelle1").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0) = c.End(xlUp).Value
Sheets("Tabelle1").Cells(Rows.Count, 2).End(xlUp).Offset(1, 0) = c.Offset(0, 4).Value
End If
Next c
End Sub
Vielen Dank schon mal
Anzeige