Thema Datum  Von Nutzer Rating
Antwort
21.11.2015 23:20:44 DavidJNG
NotSolved
Blau Letzte Aktion Rückgängig machen
 22.11.2015 00:43:53 Gast74722
NotSolved
22.11.2015 17:30:09 Gast419
NotSolved
23.11.2015 00:40:18 Gast88576
NotSolved

Ansicht des Beitrags:
Von:
Gast74722		 Datum:
22.11.2015 00:43:53		 Views:
1000		 Rating:
     
Antwort:
  Ja
Thema:
Letzte Aktion Rückgängig machen

Hallo,

das kannst Du direkt im DoubleClick-Event verbraten:

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim objRange As Range, objCell As Range
Dim lngCount As Long
Set objRange = Cells(1, 1).Resize(10, 10)
If Not Intersect(Target, objRange) Is Nothing Then
  For Each objCell In objRange
     If objCell.Interior.Color = vbGreen Then _
       lngCount = lngCount + 1
     If lngCount = 14 Then
       Call MsgBox("Es sind bereits " & lngCount & " Zellen gefärbt!", vbExclamation)
       Exit For
     End If
  Next
  If Not objCell Is Nothing Then
    Set objCell = Nothing
  Else
    Target.Interior.Color = vbGreen
  End If
End If
Set objRange = Nothing
End Sub

Gruß,

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
21.11.2015 23:20:44 DavidJNG
NotSolved
Blau Letzte Aktion Rückgängig machen
 22.11.2015 00:43:53 Gast74722
NotSolved
22.11.2015 17:30:09 Gast419
NotSolved
23.11.2015 00:40:18 Gast88576
NotSolved