in der logik finde ich keinen fehler, kann mir einer sagen ob dass programm irgendnen fehler hat?
Sub Widerstand()
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim l As Integer
j = k = l = 2
For i = 116 To 140
If Sheets("Messwerte").Range("J" & i).Value <> 0 Then Range("U" & j).Value = Sheets("Messwerte").Range("A" & i).Value
If Sheets("Messwerte").Range("J" & i).Value <> 0 Then Range("V" & j).Value = Sheets("Messwerte").Range("J" & i).Value
If Sheets("Messwerte").Range("J" & i).Value <> 0 Then j = j + 1
If Sheets("Messwerte").Range("K" & i).Value <> 0 Then Range("W" & k).Value = Sheets("Messwerte").Range("A" & i).Value
If Sheets("Messwerte").Range("K" & i).Value <> 0 Then Range("X" & k).Value = Sheets("Messwerte").Range("K" & i).Value
If Sheets("Messwerte").Range("K" & i).Value <> 0 Then k = k + 1
If Sheets("Messwerte").Range("L" & i).Value <> 0 Then Range("Y" & l).Value = Sheets("Messwerte").Range("A" & i).Value
If Sheets("Messwerte").Range("L" & i).Value <> 0 Then Range("Z" & l).Value = Sheets("Messwerte").Range("L" & i).Value
If Sheets("Messwerte").Range("L" & i).Value <> 0 Then l = l + 1
Next i
End Sub
Danke im voraus,
gruß aus franken, steffen