ComboBoxen einlesen
05.02.2013 21:29:21
ludmila
mit nachfolgendem Code fülle ich die Text ,- und ComboBoxen einer UF.
Die Textboxen werden anstandslos eingelesen.
Bei den ComboBoxen wird nur der letzte Eintrag der CBO7 Liste in den CBO2-6
dargestellt.
Komischerweise wird CBO1 immer eingelesen.
Die Spalten A bis AI sind alle geüllt.
Danke!
Gruß
Ludmila
Private Sub CBO7_Change()
Dim obj As Object
'Dim objControl As Control
Dim A%, Y%, X%
' Elemente leeren
For Each obj In Me.Controls
If TypeName(obj) = "ComboBox" Then
obj.Enabled = True
ElseIf TypeName(obj) = "TextBox" Then
obj.Value = ""
End If
Next obj
'Angabe der Dateien
Set WB = Workbooks("DatFaktur.xlsx")
Set wks = WB.Worksheets("Projekt")
Set wks1 = WB.Worksheets("Stamm")
'Festlegen ob Projekt geändert oder neu erstellt wird
If Me.CBO7.Value = "*Neues Projekt*" Then
Me.TXT1 = wks1.Cells(38, 3) & " " & wks1.Cells(39, 3)
GoTo Ende
End If
'Einlesen der Textboxen (A= Zeile, X = Spalte) = A bis AC
A = Me.CBO7.ListIndex + 1
X = 1
For I = 1 To 29
Me.Controls("TXT" & I).Text = wks.Cells(A, X)
X = X + 1
Next I
'Einlesen der ComboBoxen (6 Stück) = AD bis AI
Y = 30
For X = 1 To 6
Me.Controls("CBO" & X).Value = wks.Cells(A, Y)
Y = Y + 1
Next X
'Speicher Button aktivieren
Me.CommandButton1.Enabled = True
Ende:
End Sub
Anzeige