In den Worksheets mit Name 1 bis 10 gleiche Aktion
16.11.2006 17:23:47
Peter
Ich habe ein File mit den Worksheets 1,2,3,4,5,6,7,8,9,10 (=Name)
Ich möchte in allen Worksheets bestimmte Aktionen durchführen. Stellvertretend ist davon nachstehend eine enthalten.
Wie muss ich nun den nachfolgenden Code verändern, dass er mir in allen diesen Worksheets die gleichen Aktionen (die ich noch definieren muss) durchführt, d.h. zuerst die Tabelle mit Name 1 anwählt, dann die Aktionen durchführt, dann die Tabelle mit Name 2 anwählt, etc.
Besten Dank für eine Rückmeldung.
Peter
Sub Wert_aus_Verweis()
Dim aBook As Workbook
Dim aSheet As Worksheet
Dim zNr As Long
Set aBook = ThisWorkbook
Set aSheet = aBook.ActiveSheet
With aSheet
zNr = 5
Do While .Cells(zNr, 4) <> ""
.Cells(zNr, 5) = WorksheetFunction.VLookup(.Cells(zNr, 4), Range("Nummer_Name"), 2, 0)
zNr = zNr + 1
Loop
End With
End Sub