objList - ListView
13.06.2022 15:45:37
Eisi
ist es möglich Gitternetzlinien bei diesem Code mit auszugeben, bzw. zu ergänzen?
Es geht wohl nur mit ListView, aber ich habe noch keine Lösung gefunden, der die angezeigte Liste sofort aktualisiert, wenn etwas in den Zellen geändert wird.
Danke für das Feedback.
VG :-)
____________________________________________________________
Private Sub UserForm_Initialize()
Dim objList As Object
Set objList = UserForm1.Controls.Add("Forms.ListBox.1", "Listenfeld", True)
UserForm1.Caption = "Liste der Positionen"
With objList
.Top = 10
.Left = 10
.Width = 370
.Height = 150
.ColumnHeads = True
.ColumnCount = 5
.ColumnWidths = "120; 50; 50; 50; 100"
.MultiSelect = fmMultiSelectExtended
.RowSource = "Kalkulation!DA1903:DE2500"
End With
End Sub
Anzeige