For stiftnr = 0 To 999
            If Not (stifte(stiftnr, 2) = "000000" And stifte(stiftnr, 1) = _
              "0.12" And stifte(stiftnr, 0) = "16") Then
 
                Dim item As ListViewItem
                Dim subitem As ListViewItem.ListViewSubItem
                Dim subitemb As ListViewItem.ListViewSubItem
                Dim subitem1 As ListViewItem.ListViewSubItem
                Dim subitem2 As ListViewItem.ListViewSubItem
                'Dim subitem_bgcolor As Color
                Dim r As Integer
                Dim g As Integer
                Dim b As Integer
                Dim farbe_r As String = stifte(stiftnr, 2).Substring(0, 2)
                Dim farbe_g As String = stifte(stiftnr, 2).Substring(2, 2)
                Dim farbe_b As String = stifte(stiftnr, 2).Substring(4, 2)
 
                'Farbumwandlung()
                r = Convert.ToInt64(farbe_r, 16)
                g = Convert.ToInt64(farbe_g, 16)
                b = Convert.ToInt64(farbe_b, 16)
 
                item = New ListViewItem(stiftnr)
                subitem = New ListViewItem.ListViewSubItem(item, stifte( _
                  stiftnr, 2))
                subitemb = New ListViewItem.ListViewSubItem(item, "5", _
                Color.Pink, Color.FromArgb(r, g, b), New Font("Arial", 12))
                'subitemb.BackColor = System.Drawing.Color.Gold
                subitem1 = New ListViewItem.ListViewSubItem(item, stifte( _
                  stiftnr, 1))
                subitem2 = New ListViewItem.ListViewSubItem(item, stifte( _
                stiftnr, 0))
                item.SubItems.Add(subitem)
                item.SubItems.Add(subitemb)
                item.SubItems.Add(subitem1)
                item.SubItems.Add(subitem2)
 
                stifttabelle.Items.Add(item)
            End If
        Next