AW: Glaskugel TÜV, PEBCAK etc ;-)=)
15.08.2010 11:00:52
ing.grohn
Hallo Matthias, Gerd, Nonet,
die Glaskugel ist nicht beim Tüv und Pepcack spielt auch nicht mit. Auch ist der Dritte Zeile nicht dabei.
Vielmehr liegt es an folgendem:
Ich hab die Liste mit einer Schleife gefüllt:
Sub KKasse()
Dim Anzahl As Integer
Dim K As Integer
Anzahl = Sheets("Betriebsnummern").UsedRange.Rows.Count
K = 0
For I = 1 To Anzahl '(richtig:I=3)
UF_Lohnabrechnung.ComboBox2.AddItem Sheets("Betriebsnummern").Cells(I, 2)
UF_Lohnabrechnung.ComboBox2.List(I-1, 1) = Sheets("Betriebsnummern").Cells(I, 10)
UF_Lohnabrechnung.ComboBox2.List(I-1, 2) = Sheets("Betriebsnummern").Cells(I, 14)
UF_Lohnabrechnung.ComboBox2.List(I-1, 3) = Sheets("Betriebsnummern").Cells(I, 15)
UF_Lohnabrechnung.ComboBox2.List(I-1, 4) = Sheets("Betriebsnummern").Cells(I, 16)
K = K + 1
Next I
UF_Lohnabrechnung.ComboBox2.TextColumn = 1
End Sub
Nun hat sich die Quelltabelle geändert (ich schrieb was von vorher funktioniert, nach update nicht mehr)
Das update begann nicht mit Zeile 1 (I) sondern 3:
Ich hab das I-1 durch K ersetzt (siehe oben) und es rennt wie bekloppt.
Ich wünsche einen sonnigen Sonntag
Konnte mich erst jetzt melden.
Mit freundlichen Grüßen
Albrecht