Hallo,

ich weiß nicht, ob es die Nerven sind, oder ich einfach zu dumm bin. Ich habe folgenden Code geschrieben:

Private Sub CommandButton1_Click()

Dim i As Integer
Dim a As Integer

i = 4
j = 6
a = 0
c = 22

'Application.ScreenUpdating = False

Range("B9:B12").Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.ClearContents

Do



MsgBox i


Sheets("Materialeinsatz").Select

If Sheets("Materialeinsatz").Range("A" & i).Value <> "" Then

Sheets("Materialeinsatz").Range("B" & i).Copy

Sheets("Materialeinsatz Gesamt").Select
Sheets("Materialeinsatz Gesamt").Cells(9, 1000).End(xlToLeft).Offset(0, 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False


Sheets("Materialeinsatz").Range("G" & j).Copy


Sheets("Materialeinsatz Gesamt").Select
Sheets("Materialeinsatz Gesamt").Cells(10, 1000).End(xlToLeft).Offset(0, 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False


Sheets("Materialeinsatz").Range("L" & j).Copy


Sheets("Materialeinsatz Gesamt").Select
Sheets("Materialeinsatz Gesamt").Cells(11, 1000).End(xlToLeft).Offset(0, 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

Sheets("Materialeinsatz").Range("M" & j).Copy


Sheets("Materialeinsatz Gesamt").Select
Sheets("Materialeinsatz Gesamt").Cells(12, 1000).End(xlToLeft).Offset(0, 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False


End If

a = a + 1

i = i + c * a
j = j + c * a

Loop Until Sheets("Materialeinsatz").Range("A" & i).Value = ""

Sheets("Materialeinsatz Gesamt").Select

'Application.ScreenUpdating = True

End Sub

Leider zählt der Zähler immer 4, 26, 70 und lässt jedesmal die 48 aus, ich sehe den Fehler einfach nicht, da 4+22*2 bei mir 48 ergibt, nach dem 2. Loop...

Ich hoffe ihr könnt mir helfen, mit freundlichen Grüßen, Phillip