UserForm Liste
16.02.2007 16:33:17
Gregor
Ich habe eine Tabelle, aus der ich in eine UserForm Liste die Einträge wie folgt übernheme:
Private Sub UserForm_Initialize()
Application.ScreenUpdating = False
Application.EnableEvents = False
Me.lblTitel = "Erklärung des Codes " & Code
lstCode.RowSource = "Code!B" & Zeile & ":E" & Zeile
lstCode.ListIndex = -1
End Sub
Private Sub cmdAbbrechenCode_Click()
Unload Me
Sheets("Master Datei").Activate
End Sub
Private Sub UserForm_Activate()
usrCode.lstCode.ColumnHeads = True
End Sub
In der 1. Zeile der UserForm Liste sollte es die Spaltenüberschriften B1 bis E1 der Tabelle übernehmen. Mit obigem Ansatz übernimmt es mir immer die Zeile oberhalb der gefundenen Zeile.
Wie kann ich das lösen?
Vielen Dank
Gregor
Anzeige