Dim / ReDim
23.11.2005 14:13:36
loca
ich hab ein kleines makro, das mir eine variable mit ISO ländercodes füllt. kann mir jemand sagen, wie ich nachträglich rauskriege an welcher stelle in der varialbe ein z.b. DE steht? kenne nur möglichkeit zuunterst. gäbe es noch eine bessere?
Sub Makro1()
Dim country()
r = 1
For i = 1 To 21
ReDim Preserve country(i)
country(i) = Cells(r, "A")
r = r + 1
Next i
i = 1
Do While country(i) <> "DE"
i = i + 1
Loop
Cells(r, "C").Value = i
End Sub
besten dank und gruss
loca