VBA code
08.02.2020 08:29:19
Stefan
Ich habe mal wieder ein Problem.
Ich habe folgenden Code.
Ich möchte beim Status auf 6 setzen das er das auch in einem anderen Sheet macht.
Dazu muß er aber erst aus der entsprechenden Zeile den Wert in Spalte E in dem anderen Sheet suchen und es dort auch in A eintragen.
Ich hoffe ihr versteht was ich meine.
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim lngRow As Long
If Not Intersect(Target, Range("AK4:AK250")) Is Nothing Then
Cancel = True
Target = Date
If Not Intersect(Target, Range("AK4:AK250")) Is Nothing Then
'Teil 1 Projekte in Mappen übergeben und dann löschen
If MsgBox("Willst du wirklich dieses Projekt wieder an die Projektleiter ü _
bergeben?", _
vbQuestion Or vbOKCancel, "Abfrage") = vbOK Then
Cells(Target.Row, 1) = 6 'Status auf 6 setzen
With Worksheets("Klemmenfertigung")
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
Target.EntireRow.Delete
End With
End If
End If
End If
End Sub