wenn dann Abfrage
26.06.2019 10:01:24
Richard
möchte gerne beim Start der UF eine Abfrage erstellen lassen.
Wenn in Spalte B Zellen nicht beschrieben sind Dann zeige diese Zeilen in der List
Box an.
Dies soll beim Start ausgeführt werden: hier der Code
Private Sub UserForm_Initialize()
Dim Zeile_L As Long
Dim i As Long
Set wksData = ThisWorkbook.Sheets("tbl_Verfolgung") 'Sheet zuweisen
With wksData
Zeile_L = .Cells(.Rows.Count, 1).End(xlUp).Row 'letzte Zeile in Spalte A suchen
arrData = .Range(.Cells(2, 1), .Cells(Zeile_L, 16)) 'Daten in Array nehmen Zeile2 _
SpalteA bis Long
' 'Zeilennummern im Daten-Array nachtragen - für spätere Ausführung des Hyperlinks
' For i = 3 To Zeile_L
' arrData(i - 1, 16) = i
' Next
arrList = arrData 'alle Daten der Auswahlliste zuweisen
End With
'Listbox formatieren
With Me.lst1
.ColumnCount = 16
.ColumnHeads = False
.ColumnWidths = "50Pt;50Pt;0;80Pt;100Pt;30Pt;60Pt;50;60;60;30;0;0;30;0;"
End With
Call Auswahl_Reset
End Sub
2.Frage
Was muss ich oben einstellen wenn ich Column Heads auf True stelle damit mir die Überschriften gezeigt werden.
Im voraus schon mal Vielen Dank für Eure Mühe
Gruß Richard
Anzeige