Code hat funktioniert und nun nicht mehr
11.10.2016 19:14:37
Thomas
ich habe mit diesem Code schon gearbeitet aber nun kommt die Meldung Variable nicht definiert, lasse ich wie zuvor auch gehabt Option Explicit weg bekomme ich ungültiger Verweis auf Next-Steuervariable.
~Option Explicit
Sub test()
Dim a As Long, i As Long
Application.ScreenUpdating = False
a = 2
For i = 2 To 100
With Worksheets("Termine")
If .Cells(i, "O") > 0 Then
Worksheets("Besichtigungen").Cells(a, 3).Value = Worksheets("Termine").Cells(i, 2).Value
Worksheets("Besichtigungen").Cells(a, 4).Value = Worksheets("Termine").Cells(i, 3).Value
Worksheets("Besichtigungen").Cells(a, 5).Value = Worksheets("Termine").Cells(i, 5).Value
Worksheets("Besichtigungen").Cells(a, 6).Value = Worksheets("Termine").Cells(i, 6).Value
Worksheets("Besichtigungen").Cells(a, 7).Value = Worksheets("Termine").Cells(i, 9).Value
Worksheets("Besichtigungen").Cells(a, 8).Value = Worksheets("Termine").Cells(i, 11).Value
Worksheets("Besichtigungen").Cells(a, 9).Value = Worksheets("Termine").Cells(i, 12).Value
Worksheets("Besichtigungen").Cells(a, 10).Value = Worksheets("Termine").Cells(i, 13).Value
Worksheets("Besichtigungen").Cells(a, 2).Value = Worksheets("Termine").Cells(i, 15).Value
a = a + 1
Else
End If
End With
Next i
Application.ScreenUpdating = True
End Sub
Ich hab danach nur mit dem Filter noch was gemacht und danach festgestellt das nichts mehr geht.
Wer kann mir da helfen Bitte?
Vielen Dank schon mal.
Gruß Thomas