VBA Code
08.02.2020 10:36:19
Stefan
Ich habe jetzt mal ein schon etwas längeres Problem. Wo ich bis jetzt nicht wusste wieso es nicht funktioniert.
Jetzt weis ich zumindestens den Grund.
Ich kopiere mit folgenden Code Zeilen von einem Sheet zum anderen.
Das klappt zwar soweit aber......
Immer wenn ich einem Sheet für alle Spalten den Filter einstelle kopiert er es nicht mehr mit dem Fehler
Laufzeitfehler ´1004´:
Die Copy-Methode des Range-Objektes konnte nicht ausgeführt werden.
Auch wenn ich den Filter wieder ausstelle geht es quasi nie wieder.
Hier der Code
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim lngRow As Long
If Not Intersect(Target, Range("AO4:AO250")) Is Nothing Then
Cancel = True
Target = Date
'Teil 1 Projekte in Mappen übergeben und dann löschen
If MsgBox("Willst du wirklich dieses Projekt an die Produktion übergeben?", _
vbQuestion Or vbOKCancel, "Abfrage") = vbOK Then
Cells(Target.Row, 1) = 6 'Status auf 6 setzen
With Worksheets("Tabelle1")
lngRow = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
Cells(Target.Row, 1).Resize(1, 41).Copy .Cells(lngRow, 1)
'nach Übergabe Zeile löschen in Projektübersicht
'Target.EntireRow.Delete
End With
End If
End If
End Sub