Thema Datum  Von Nutzer Rating
Antwort
Rot Zelle Verschieben mit Doppelklick und zusätzlicher Bedingung
16.12.2022 15:00:19 Daniel B
NotSolved
16.12.2022 17:22:15 ralf_b
Solved
17.12.2022 12:37:10 Daniel B
NotSolved

Ansicht des Beitrags:
Von:
Daniel B
Datum:
16.12.2022 15:00:19
Views:
81
Rating: Antwort:
  Ja
Thema:
Zelle Verschieben mit Doppelklick und zusätzlicher Bedingung

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

 

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Zelle Verschieben mit Doppelklick und zusätzlicher Bedingung
16.12.2022 15:00:19 Daniel B
NotSolved
16.12.2022 17:22:15 ralf_b
Solved
17.12.2022 12:37:10 Daniel B
NotSolved