Debug.Print("Start:" & DateTime.Now.ToString)
 
      Dim strSpaltenwerte() As String = XYZ.Split(";"c)
 
      For Each i As String In strSpaltenwerte
        Dim strWerte() As String = i.Split(":"c)
        If dgvDaten.Columns(strWerte(0)) Is Nothing Then Continue For 
        If strWerte(1) > dgvDaten.ColumnCount - 1 Then Continue For
        With dgvDaten.Columns(strWerte(0))
          .DisplayIndex = strWerte(1)
          If .AutoSizeMode = DataGridViewAutoSizeColumnMode.NotSet OrElse _
             .AutoSizeMode = DataGridViewAutoSizeColumnMode.None Then
            .Width = strWerte(2)
          End If
        End With
     Next i
 
     Debug.Print("Ende:" & DateTime.Now.ToString)