Fehler beim kopieren der DoubleClick Event

[Elex]

Hi
 
Möglichkeit 1.
Trenne deine Blöcke im Blatt Notes durch immer die Selbe Anzahl Zeilen von einander.
Und nicht wie jetzt im Bsp. mit mal 2 Zeilen und manchmal 3 Zeilen.
Dann kann man das in Uwe’s Code noch recht einfach mit einarbeiten.
 
Möglichkeit 2.
Wenn in den Zeilen die die Blöcke trennen in B und E nichts steht, geht es auch mit dem Zeilenunterschied.

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim n As Long

If Target.Cells(1).Value <> "" And Not Application.Intersect(Target, Range("B13:B56")) Is Nothing Then
    n = Application.WorksheetFunction.CountA(Range("B13:B" & Target.Row))
    Sheets("Notes Sighting-Round").Range("B" & 8 + n) = Target.Cells(1).Value
End If

If Target.Cells(1).Value <> "" And Not Application.Intersect(Target, Range("E13:E56")) Is Nothing Then
   n = Application.WorksheetFunction.CountA(Range("E13:E" & Target.Row))
   Sheets("Notes Sighting-Round").Range("D" & 8 + n) = Target.Cells(1).Value
End If

Cancel = True
End Sub

Gruß Elex

[elamigo]

Danke Elex, danke UWE