kann mir jemand sagen, wo das in diesem Makro ein Fehler steckt? Vielen Dank!
Gruss Sepp
Sub Makro3()
Dim x As Integer
Dim y As Integer
For y = 1 To 1000
If Cells(x, 8).Value 6 And Cells(x, 8).Value 7 And Cells(x, 9).Value "Feiertag" And _
Cells(x, 10).Value "Ferien" Then
Cells(x, 7).Value.Copy
Cells(x, 11).Select
Selection.Paste
Next
Do
x = x + 1
Loop Until Range("K" & x) = Range("B13")
If Range("K" & x) = Range("B13") Then
Range(Cells(x, 11), Cells(1000, 11)).Select
Selection.Copy
Range("M2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Else
MsgBox "Datum existiert nicht!"
End If
End If
End Sub