Code verwenden trotz Formel

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect(Target, Range("M5:O50000")) Is Nothing Then Sheets(Target.Column - 12 & ". Mahnung").Range("D16").Value = Target.Value End If End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Option Explicit Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect(Target, Range("M5:O50000")) Is Nothing Then With Sheets(Target.Column - 12 & ". Mahnung").Range("D16") .Value = Target.Value .Interior.Color = 255 End With Cancel = True End If End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect(Target, Range("M5:O50000")) Is Nothing Then Target.Interior.Color=RGB(255, 0, 0) Sheets(Target.Column - 12 & ". Mahnung").Range("D16").Value = Target.Value Cancel=True End If End Sub

Danke, ich habe geglaubt, aufgrund der zeile kann der Code das feststellen.
Eine Frage hätte ich noch:
Kann man diesen code zusätzlich zum bestehenden in das Tabellenblatt dazugeben. Wenn ich Ihn hintereinanderstelle, dann geht er nicht.
chris58

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("P5:R50000")) Is Nothing Then
Target.Interior.Color = RGB(255, 0, 0)
Sheets(Target.Column - 15 & ". Mahnung").Range("D16").Value = Target.Value
Cancel = True
End If
End Sub

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim lngZeile As Long
Dim wksBlatt As Worksheet
Set wksBlatt = ThisWorkbook.Sheets("Erledigt")
If Target.Column  5 Or Target.Row = 4 Then Exit Sub
If Target.Value = "" Then Exit Sub
lngZeile = wksBlatt.Cells(Rows.Count, 3).End(xlUp).Row
If lngZeile = 1 And wksBlatt.Cells(1, 1).Value = "" Then lngZeile = 2
ActiveSheet.Unprotect Password:=("123")
Target.EntireRow.Copy Destination:=wksBlatt.Range("A" & lngZeile + 1)
Target.EntireRow.Delete
ActiveSheet.Protect Password:=("123")
Cancel = True
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim lngZeile As Long Dim wksBlatt As Worksheet If Target.Row > 4 Then Select Case Target.Column Case 5 Set wksBlatt = ThisWorkbook.Sheets("Erledigt") If Target.Value = "" Then Exit Sub lngZeile = wksBlatt.Cells(Rows.Count, 3).End(xlUp).Row If lngZeile = 1 And wksBlatt.Cells(1, 1).Value = "" Then lngZeile = 2 ActiveSheet.Unprotect Password:=("123") Target.EntireRow.Copy Destination:=wksBlatt.Range("A" & lngZeile + 1) Target.EntireRow.Delete ActiveSheet.Protect Password:=("123") Cancel = True Case 16 To 18 Target.Interior.Color = RGB(255, 0, 0) Sheets(Target.Column - 15 & ". Mahnung").Range("D16").Value = Target.Value Cancel = True End Select End If End Sub

Beliebteste Forumthreads (12 Monate)

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread