Private Sub LebensmittelAuslesen()
	     Dim a as Integer 
        Dim b As ListViewItem 
        Dim c As String
        Dim d As String
        Dim e As String
        Dim f As String
        Dim g As String
        Dim h As Integer = 0
        	'Dim i As string
        Dim q As Integer
        dim r as String
        For a = 0 To listviewLebensmittel.Items.Count - 1 
			b = listviewLebensmittel.Items(a)
			c = b.SubItems(0).Text 
			d = b.SubItems(1).Text 
			e = b.SubItems(2).Text 
			f = b.SubItems(3).Text 
			g = b.SubItems(4).Text 
			xlBlatt = xlMappe.Worksheets("Tabelle2")
			xlBlatt.Activate
			xlZelle = xlBlatt.Range("A1")
			intZeilen = a+1
			With xlZelle
          'hier beginnt das ListViewGruppennamen-Auslesen
				For q = 0 To listviewLebensmittel.Groups.Count - 1
					r = listviewLebensmittel.Groups(q).Header.ToString
					.Offset(0,0).value = listviewLebensmittel.Groups(0).Header.ToString
					If r = .Offset(0, h).value Then
						.Offset(intZeilen, h + 0).value = c
						.Offset(intZeilen, h + 1).Value = d
						.Offset(intZeilen, h + 2).Value = e
						.Offset(intZeilen, h + 3).Value = f
						.Offset(intZeilen, h + 4).Value = g	
					Else
 
						h = h + 6
							'i = i + 1
						.Offset(0, h).value = r
						.Offset(intZeilen, h + 0).value = c
						.Offset(intZeilen, h + 1).Value = d
						.Offset(intZeilen, h + 2).Value = e
						.Offset(intZeilen, h + 3).Value = f
						.Offset(intZeilen, h + 4).Value = g							
					End If
				Next
			End With
		Next
    End Sub