Variablenbezeichner
11.12.2006 17:19:01
Christian
ich moechte in einer Schleife eine Variable deklarieren. Der Bezeichner soll sich allerdings mit der Schleife aendern. Das Ganze sieht dann so aus:
col = 1
a = 1
Do
If Worksheets(data_sheet).Cells(2, col) = "True" Then
Worksheets(target_sheet).Cells(1, Worksheets(target_sheet).Cells(1, Columns.Count).End(xlToLeft).column + 1) = Worksheets(data_sheet).Cells(3, col)
OptCol & a = col
a = a + 1
End If
col = col + 1
Loop Until Worksheets(data_sheet).Cells(2, col) = ""
Haut aber nicht so hin. Ich moechte gerne, dass die Variablenbezeichnung in der Schleife erfolgt. Geht das?
Viele Gruesse,
Christian