If Sheets(nn).Range("G" & nnn) = "Strom 0A" Then
Sheets(nn).Range("J" & nnn).Copy Destination:=Sheets("index").Range("B2:B" & Range("B65536").End(xlUp).Row)
End If
If Sheets(nn).Range("G" & nnn) = "Strom 0A LPM" Then
Sheets(nn).Range("J" & nnn).Copy Destination:=Sheets("index").Range("C2:C" & Range("C65536").End(xlUp).Row)
End If