Thema Datum  Von Nutzer Rating
Antwort
Rot Letzte Aktion Rückgängig machen
 21.11.2015 23:20:44 DavidJNG
NotSolved
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:
DavidJNG		 Datum:
21.11.2015 23:20:44		 Views:
1725		 Rating:
     
Antwort:
  Ja
Thema:
Letzte Aktion Rückgängig machen

Guten Abend :)
Folgende Situation: In meinen Zellbereich können einzelne Zellen via Doppelklick mit grünen Hintergrund markiert/demarkiert werden.

Wenn nun eine bestimmte Anzahl an grün markierten Zellen erreicht ist, soll eine Fehlermeldung erscheinen und die letzte grün markierte Zelle wieder den Standard-Hintergrund haben.

Mit Application.Undo funktioniert es leider nicht. Nun habe ich es folgend probiert, geht aber auch nicht:


 

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Summe As Integer

 For Each Zelle In Range("WahlEinbringung")
  If Zelle.Interior.Color = vbGreen Then
   Summe = Summe + 1
  End If
 Next Zelle
 
 If Summe > 14 Then
  Range("WahlEinbringung").SpecialCells(xlCellTypeLastCell).Select
  Selection.Interior.Color = xlNone
  MsgBox "Es müssen 14 Punkte eingebracht werden.", vbOKOnly + vbCritical, "Fehler"
 End If
 
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 Letzte Aktion Rückgängig machen
 21.11.2015 23:20:44 DavidJNG
NotSolved
22.11.2015 00:43:53 Gast74722
NotSolved
22.11.2015 17:30:09 Gast419
NotSolved
23.11.2015 00:40:18 Gast88576
NotSolved