Habe folgenden Code in meiner Tebelle.
Ich möchte nun das er im Case 37 nach der Msgbox (oder egal wann) noch prüft ob in der zu kopierenden Zeile in Zelle y der selbe Name steht wie der des Worksheets wo er es hinkopieren soll. Wenn ja soll er es machen, wenn nein, nicht.
Kann mir da jemand helfen?
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim lngRow As Long
If Not Intersect(Target, Range("AG4:AK250")) Is Nothing Then
Cancel = True
Target = Date
Select Case Target.Column
Case 33
Cells(Target.Row, 1) = 2
Case 34
Cells(Target.Row, 1) = 3
Case 35
Cells(Target.Row, 1) = 4
Case 37
If MsgBox("Willst du wirklich dieses Projekt an den Einkauf übergeben?", _
vbQuestion Or vbOKCancel, "Abfrage") = vbOK Then
Cells(Target.Row, 1) = 5
With Worksheets("IV")
lngRow = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
Target.EntireRow.Copy .Rows(lngRow)
Target.EntireRow.Delete
End With
End If
Case Else
End Select
End If
End Sub