Hallo Ihr - ich habe ein Problem
andreas
leider kann ich keine Datei anhängen. Daher nur der Code. Ich habe in der Tabelle("en000406") in ab der Spalte b5 nach unten variable Nummern und Zahlen. Ich muss nun diese Nummern in eine Variable einlesen. Klappt mit u.g. Code auch.
Private Sub CommandButton1_Click()
Dim CH As Long
Dim vtSecurity() As Variant
Dim rng1 As range
Dim i As Integer
Set rng1 = Worksheets("en000406").range("b5:b" & _
Worksheets("en000406").range("b65536").End(xlUp).Row)
ReDim vtSecurity(rng1.Count)
For i = 1 To rng1.Count
vtSecurity(i - 1) = Worksheets("en000406").Cells(4 + i, 2).Value
Next i
End Sub
Mein Problem ist nun dass ich die "vollgepackte" Variable in eine andere Prozedur uebergeben will in der dann jeder einzelner Wert, meist mehr als 500, abgearbeitet werden kann. Am Ende möchte ich dann wieder ans Ende der oben angeführten Prozedur. Ist denn eine
Private Sub falsch? Wie uebergebe ich das dann?
Vielen Dank fuer Eure geduldige Hilfe. Die Herber-Onlinehilfe gab nicht viel her fuer mich.
Andy
Anzeige