Frage zu Ubound eines Datenfeldes
03.02.2004 19:54:43
Reinhard
in einem Tabellenblatt habe ich spaltenweise nebeneinander Mannschaftslisten.
Mit folgender Sub kann ich ich die sehr schnell einlesen:
Sub spielfrei2()
Dim Gruppen As Variant 'Mannschaftslisten
Dim n As Integer 'Schleifenzähler
With Worksheets("Klassen")
Gruppen = .UsedRange
End With
End Sub
Zugriff auf die Liste in Spalte B habe ich mit z.B:
For n = 1 To UBound(Gruppen)
MsgBox Gruppen(n, 2) '2 = Spalte B
Next n
Wie erhalte ich aus der Variablen 'Gruppen' die Anzahl der Listen (= Anzahl der Spalten) ?
anz=.range("IV1").end(xlleft).column ist mir bekannt, aber ich wollte wissen ob man es mit 'ubound' oder ähnlichem auch aus der Variablen 'Gruppen' herauslesen kann.
Danke für Informationen
Reinhard