Variblenname Variabel halten
30.05.2007 18:25:00
asterix80
ich hab folgendes problem, ich möchte auf einer exceltabelle z.b. in die zelle 1A ein wert eintragen z.b. 5
bis jetzt definiere ich alles manuell undzwar so:
Private Sub Auslesen()
Dim suche1 As String
Dim suche2 As String
Dim suche3 As String
Dim suche4 As String
Dim suche5 As String
Dim suche_zeile1 As Integer
Dim suche_zeile2 As Integer
Dim suche_zeile3 As Integer
Dim suche_zeile4 As Integer
Dim suche_zeile5 As Integer
suche1 = "hallo1"
suche2 = "hallo2"
suche3 = "hallo3"
suche4 = "hallo4 "
suche5 = "hallo5"
For i = 1 To 400
If Cells(i, 2) = suche1 Then suche_zeile1 = Cells(i, 2).Row
If Cells(i, 2) = suche2 Then suche_zeile2 = Cells(i, 2).Row
If Cells(i, 2) = suche3 Then suche_zeile3 = Cells(i, 2).Row
If Cells(i, 2) = suche4 Then suche_zeile4 = Cells(i, 2).Row
If Cells(i, 2) = suche5 Then suche_zeile5 = Cells(i, 2).Row
Next i
...usw
End Sub
jetzt will ich aber die anzahl aus der celle einlesen und die variablendefinition über ne schleife machen. also statt immer 5 mal das selbe um ein wert zu erhöhen eine schleife von 1 bis 5... meinetwegen sogar von 1 bis 100
was kann ich alles variabel halten?
vielen dank im voraus.
gruß
asterix