Code bei UF-Start mitladen
21.02.2008 07:55:28
Frederic
ich möchte folgenden Code beim Laden es UF starten, kriege aber den Fehler, dass die Methode od. das Objekt nicht gefunden werden konnte.
Private Sub Liste_Click()
overview.Show
Dim i
Dim vntArr
With Sheets("Liste")
vntArr = .Range(.Cells(7, 8), .Cells(65536, 1).End(xlUp))
End With
' Spalten im Array vor List formatieren (i, 3)=Spaltennummer
For i = 1 To UBound(vntArr)
vntArr(i, 3) = Format(vntArr(i, 3), "#,##0.00") 'Spalte C "Amount"
vntArr(i, 5) = Format(vntArr(i, 5), "#,##0.00") 'Spalte E "Net amount"
vntArr(i, 6) = Format(vntArr(i, 6), "#,##0.00") 'Spalte F "Tax amount"
Next i
With Me.ListBox1
.ColumnCount = UBound(vntArr, 2)
.List = vntArr
End With
Me.ListBox1.ColumnCount = 8 'Zuweisen der Spaltenanzahl + Spaltenbreite in Pt (1 cm ~ 28,3 _
Pt)| Liste der Werte
Me.ListBox1.ColumnWidths = "56,6; 120; 80; 80; 80; 80; 200; 40"
Me.ListBox2.List() = Sheets("Liste").Range("a1:h1").Value 'Füllen der Header-Zeile
Me.ListBox2.ColumnCount = 8 'Zuweisen der Spaltenanzahl + Spaltenbreite in Pt (1 cm ~ 28,3 _
Pt)| Liste des Header
Me.ListBox2.ColumnWidths = "56,6; 120; 80; 80; 80; 80; 200; 40"
End Sub
Oder muss ich es mit "AfterUpdate" steuern? Ich glaub auch zu wissen, dass ich ihm noch sagen muss, in welcher UF er den Code ausführen soll, richtig? Aber wie?
Danke für Eure Hilfe.