|
Hallo zusammen,
mein problem mit dem verschieben eines Tabellenbereichs per Doppelklick wurde bereits erfolgreich gelöst. )vielen Dank dafür)
Allerdings habe ich jetzt ein neues Problem.
Meine Gattin hate ihre Finger im Hinblick auf die Doppelklicks nicht so ganz unter kontrolle. Es landen gerne mal ungewollt einträge in der Historie.
Ist es möglich eine "bedingung" einzufügen ?
Z.b. Zelle NUR DANN per doppelklick verschieben wenn in Spalte H "Erledigt" eingetragen ist?
hier nochmal der Code den ich aktuell verwende:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim lngZiel As Long
' Doppelklick in Spalte B
If Target.Column = 2 Then
Cancel = True
With Target.Resize(1, 7)
.Copy Worksheets("Historie").Cells(Rows.Count, 2).End(xlUp).Offset(1, -1)
.ClearContents
End With
End If
End Sub
Vielen Dank schonmal im vorraus
|