Worksheets als Type
20.06.2013 16:30:59
Thomas
ich bin noch recht frisch in der Welt der VBA's und habe google gequält bis zum Umfallen. Ich würde gerne folgende realisieren.
Ich möchte einen Typen deklarieren, der 12 Worksheets enthält mit den Namen (Jan,Feb,...,Dez)
Dann möchte ich eine For each schleife nehmen, die in jeder Cells(1,1).Value=1 macht.
Type WKA
ActiveWorkbook.Worksheet ("Jan")
ActiveWorkbook.Worksheet ("Feb")
ActiveWorkbook.Worksheet ("mrz")
ActiveWorkbook.Worksheet ("Apr")
End Type
Sub Test()
'Variablendeklaration
Dim wks As Worksheet
For Each wks In WKA
Cells(1, 1).Value = 1
Next wks
End Sub
Ich danke für jede Art von Hilfe !