Thema Datum  Von Nutzer Rating
Antwort
Rot Doppleklick Zelle einfärben
 11.10.2018 09:03:55 Stephan
NotSolved
11.10.2018 10:13:48 Gast77050
NotSolved

Ansicht des Beitrags:
Von:
Stephan		 Datum:
11.10.2018 09:03:55		 Views:
975		 Rating:
     
Antwort:
  Ja
Thema:
Doppleklick Zelle einfärben

Hallo,

 

ich möchte per Doppelklick Zelle einfärben aber der Text der Zelle soll dabei nicht verschwinden. Habe hier einen Code der gut funktioniert, nur leider verschwindet nach dem Doppelklicken der Zellinhalt. Wer kann mir helfen ?

Hier der Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  If Not Application.Intersect(Target, Range("O19:R19,B1:B5")) Is Nothing Then
    Target.Interior.ColorIndex = ((Target.Interior.ColorIndex = xlNone) * -3)
  End If
  Cancel = True
End Sub

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 Doppleklick Zelle einfärben
 11.10.2018 09:03:55 Stephan
NotSolved
11.10.2018 10:13:48 Gast77050
NotSolved