Hallo,
Arbeite gerade an einem makro, welches mir unter bedingungen einen wert kopieren soll.
bekomme jedoch immer einen laufzeitfehler bei diesem macro, was habe ich falsch gemacht??
irgend ein profi gerade eine idee dazu?
grüsse,
Anias
------------------------------
Sub Journal_kreditoren_zeile1()
For i = 2 To 3
For j = 2 To 6
steps = 8
If Worksheets("Journal").Cells(steps, i) = "Kreditoren" Then
Dim Loletzte As Long
With Worksheets("macrokreditoren")
Loletzte = IIf(IsEmpty(.Range("A65536")), _
.Range("A65536").End(xlUp).Row + 1, 65536)
Sheets("Journal").Range(steps, j).Copy
.Cells(Loletzte, 1).PasteSpecial xlPasteValues
Application.CutCopyMode = False
End With
End If
Next
Next
End Sub |