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
|