eine klitze kleine frage noch ich möchte beim öffnen der userform das die listbox28 an dem letzen eintrag
der spalte D springt . was ist da falsch besonders der letzte eintrag der wird ignoriert.
Private Sub UserForm_Initialize()
'LISTBOX 28 spalten breite
With UserForm2.ListBox28
.ColumnCount = 7
.ColumnHeads = False
.ColumnWidths = "1,3cm; 7cm; 7cm; 3,2cm; 3cm; 3cm; 6cm;"
.RowSource = "Daten!A4:G" & Sheets("Daten").Range("A65536").End(xlUp).Row
Cells(Cells.Rows.Count, 4).End(xlUp).Select 'wird ignoriert.
End With
End Sub
gruss
christian neu