Dim Colhd as ColumnHeader
 
Set Colhd = listview.ColumnHeaders.Add(, , "Analyte", 1200) '1. Spalte Fix
Set Colhd = listview.ColumnHeaders.Add(, , "AppCode", 900) '2.Spalte fix
Set Colhd= listview.ColumnHeaders.Add(, , "Module", 900) '3 Splalte fix
Set Colhd = listview.ColumnHeaders.Add(, , "Requests", listView.Width - 3000 - _
  330) 
'4.Spalte dynamisch mit Platz für den Scrollbalken 330 oder 300

dbayerTo be is to do (Rene Descartes)To do is to be (Kant / Nietzsche / Sartre u.a.)Do be do be dooo (Frank Sinatra, Strangers in the Night)