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

Ansicht des Beitrags:
Von:
Gast419		 Datum:
22.11.2015 17:30:09		 Views:
1007		 Rating:
     
Antwort:
  Ja
Thema:
Letzte Aktion Rückgängig machen

Funktioniert leider nur bedingt. DIe Zelle färbt sich trotz der Fehlermeldung. Hier mein aktueller Code:
 

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(24, 6).Resize(30, 9)

 If Target.Interior.Color = vbGreen Then
  Target.Interior.Color = xlNone
 Else
  Target.Interior.Color = vbGreen
 End If

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

 

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