UserForm initialisieren / Array Spalten?

Hallo EXCEL-Freunde,
über eine UserForm sollen in einer Listbox die Spalten A-Z erscheinen.
Gibts hier eine Abkürzung für den Array, oder muss ich wirklich
von A - Z alle Buchstaben einzeln benennen?
Private Sub UserForm_Initialize() Dim t As Integer Dim farb As Variant, spalten As Variant farb = Array("=", "kleiner", "größer") spalten = Array("A", "B", "C", "D") ' ? müssen hier alle Buchstaben aufgereiht werden? Dim AM As Workbook, i As Integer For Each AM In Application.Workbooks ComboBox1.AddItem AM.Name ComboBox2.AddItem AM.Name Next AM For t = 0 To 3 With ComboBox4 .AddItem spalten(t) End With Next ' For i = 64 To 89 ' ComboBox4.AddItem i ' Next For t = 0 To 2 With ComboBox3 .AddItem farb(t) End With Next End Sub
Besten Dank für eine Hilfe!
mfg
Erich

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Private Sub UserForm_Activate() Dim rngSource As Object Dim intColums As Integer ListBox1.Tag = 1 Set rngSource = Range("A1").CurrentRegion ' Die oberste Zeile enthaelt die Feldnamen. ' Diese brauchen wir nur dort um die Columnheader darzustellen, ' aber nicht fuer die Listboxeintraege. ' Also den Datenbereich um die Erste Zeile reduzieren. Set rngSource = rngSource.Offset(1, 0).Resize(rngSource.Rows.Count - 1, rngSource.Columns.Count) ' Spaltenanzahl des Datenbereichs ermitteln. intColums = rngSource.Columns.Count With Me.ListBox1 .ListStyle = fmListStyleOption ' Auswahlfeld zu Beginn der Zeile ' von Peter Haserodt ' nur eine Auswahl, bei .ListStyle = fmListStyleOption Optionbutton in Listbox '.MultiSelect = fmMultiSelectSingle ' mehrere können ausgewählt werden,.ListStyle = fmListStyleOption checkboxen in Listbo .MultiSelect = fmMultiSelectMulti '.MultiSelect = fmMultiSelectExtended ' gibt eigentlich nur bei Liststyle Plain einen Sinn, funzt aber auch anders. ' Dies bewirkt, dass mit Shift und Strg Tasten eine Mehrfachauswahl getroffen ' werden kann .ColumnCount = intColums .ColumnHeads = True .RowSource = rngSource.Address End With Set rngSource = Nothing ListBox1.Tag = "" End Sub

Sub nichlachen() Dim spalten(65 To 91) As String, spalten2(65 To 90) As String, i&, j&, k& For i = 65 To 91 If i &lt= 90 Then spalten(i) = Chr(i) Debug.Print spalten(i) Else k = 65 For j = 65 To 90 spalten2(j) = Chr(k) & Chr(j) Debug.Print spalten2(j) Next j 'jetzt eigentlich wieder schleife und k=k+1 oder so End If Next i End Sub

Sub test() Dim spalten(65 To 90) As String, spalten2(65 To 90) As String, i&, j&, k& For i = 65 To 91 If i &lt= 90 Then spalten(i) = Chr(i) Debug.Print spalten(i) Else For k = 65 To 90 For j = 65 To 90 spalten2(j) = Chr(k) & Chr(j) Debug.Print spalten2(j) Next j Next k End If Next i End Sub

Hallo Nancy,
diesmal komme ich nicht weiter; wenn ich den Code (wie beim ersten Vorschlag)
anpasse erhalte ich diesmal die Fehlermeldung:
Laufzeitfehler 9
Index außerhalb des gültigen Bereichs
und die UF kann nicht aufgerufen werden:
die Startzeile ...Show leuchtet gelb.
Derzeit sieht mein Code so aus; den ersten Vorschlag habe ich belassen:


Private Sub UserForm_Initialize()
Dim t As Integer, farb As Variant
'Dim spalten(65 To 90) As String, i&, j&
Dim spalten(65 To 90) As String, spalten2(65 To 90) As String, i&, j&, k&
farb = Array("=", "kleiner", "größer")
Dim AM As Workbook  ', i As Integer
For Each AM In Application.Workbooks
ComboBox1.AddItem AM.Name
ComboBox2.AddItem AM.Name
Next AM
For i = 65 To 91
If i <= 90 Then
spalten(i) = Chr(i)
With ComboBox4
.AddItem spalten(j)
End With
'Debug.Print spalten(i)
Else
For k = 65 To 90
For j = 65 To 90
spalten2(j) = Chr(k) & Chr(j)
With ComboBox4
.AddItem spalten2(j)
End With
'Debug.Print spalten2(j)
Next j
Next k
End If
Next i
'
'    For i = 65 To 90
'    spalten(i) = Chr(i)
'    Next
'    For j = LBound(spalten) To UBound(spalten)
'    With ComboBox4
'        .AddItem spalten(j)
'    End With
'    'Debug.Print spalten(j)  '  notwendig, welcher Sinn ?
'    Next
For t = 0 To 2
With ComboBox3
.AddItem farb(t)
End With
Next
End Sub

Besten Dank für eine weitere Hilfe!
mfg
Erich

Sub A_bis_IV() Dim spalten(1 To 256) As String, i&, j&, k&, x& For i = 65 To 91 If i &lt= 90 Then spalten(i) = Chr(i) Debug.Print spalten(i) Else For k = 65 To 74 x = 1 For j = 65 To 90 spalten(i + x) = Chr(k) & Chr(j) Debug.Print spalten(i + x) 'meine 'Kontrolle' halt ;-), kannste löschen If k = 73 And j = 86 Then Exit Sub Next j x = x + 1 Next k End If Next i End Sub

Sub A_bis_IV() Dim strspalte(1 To 256) As String For i = 1 To 256 strspalte(i) = Cells(i).Address(RowAbsolute:=False, ColumnAbsolute:=False) strspalte(i) = Left(strspalte(i), Len(strspalte(i)) - 1) Debug.Print strspalte(i) Next i End Sub

Beliebteste Forumthreads (12 Monate)

UserForm initialisieren / Array Spalten?

20
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

UserForm initialisieren / Array Spalten?

20 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

20
Beiträge zum Forumthread

Beiträge zu diesem Forumthread