Blattname variabel einlesen
28.06.2005 15:36:48
Dieter.K
mit folgendem Code lese ich aus dem Tabellenblatt "Lieferung2005" Umsätze ein.
Sub Ausblenden_Halbjahr1()
Worksheets("Lieferung2005").Activate
Cells.Select
Selection.EntireRow.Hidden = False
Dim iRow As Integer, iRowL As Integer
iRowL = Cells(Rows.Count, 2).End(xlUp).Row
For iRow = 2 To iRowL
If IsEmpty(Cells(iRow, 25)) Then
Rows(iRow).Hidden = True
ElseIf WorksheetFunction.IsText(Cells(iRow, 25)) Then
ElseIf Cells(iRow, 25).Value > Worksheets("Daten").Range("M4") Then
Rows(iRow).Hidden = True
End If
Next iRow
End Sub
(Ausgegeben werden diese Umsätze in einer Listbox). Wie kann ich den Namen des
Tabellenblatts variabel gestalten, so daß ich die Daten z.B. 2004, 2006 2007 etc. über das selbe Makro einlesen kann?
Ich müsste die Zeile
Worksheets("Lieferung2005").Activate
so gestalten können das die Jahreszahl hinzugefügt wird (als Wert aus einer Zelle. Der Eintrag in diese Zelle erfolgt über Rowsource einer ComboBox).
z.B. Worksheets("Lieferung" & .....).Activate
Hat hier jemand einen Ansatz für mich?
Danke im Voraus.
Gruß
Dieter.K