Bestimmte Anzahl von Zellen aufgrund vorgegbenen Zeitdauer markieren und formatieren

[Gast 123]

Hallo Peter

ich freue mich dir für die Smily Aktion eine Lösung anbieten zu können die sehr einfach ist.  Und habe den Auswerte Fehler gefunden, für die Msgbox Meldung.  Du must nur den "İf - Then" Code im unteren Makro aendern 

Vor allen ComboBox Change Ereginissen steht dieser Code.   Private Sub Sudhaus_Change()
nimm einfach das "Private" heraus (löschen), dann erscheint das Makro im Makro Dialog und du kannst es den Smilys mit der rechten Maustaste normal zuweisen. Nach dem zuweisen setzt du "Private" wieder davor. Jetzt sieht man diese Makros nicht mehr im Dialog, aber die Zuweisung an die Smilys bleibt erhalten.  Das nenne ich Excel -geschickt austricksen-!

mfg  Gast 123

Code:

'Private Sub Überschreib_Prüfung()      Hier die If Anweisung aendern !!!

  'Warnung vor Aktive Zelle überschreiben
  If ActiveCell.Value = "uu" Then
     'hier geschieht nix, "uu" wird einfach übersprungen
  ElseIf NoFun = Empty And ActiveCell.Value <> "" Then
     ok = MsgBox("In Activer Zelle steht bereits ein Wert - Überschreiben ??", vbOKCancel)

[PV2412]

:18:
Servus Gast123,

habe die IF Anweisung entsprechend geändert und auch das mit den Makros so angepasst!

Hat sofort das gewünschte Ergebnis gebracht!!!

HERZLICHEN DANK nochmal für die SUPER Unterstützung und jetzt mach ich das mal schön fertig; ... wird meine WE-Arbeit ... und dann dürfen die Jungs mal ran und damit planen ...

Viele Grüße

Peter

[Gast 123]

Hallo Peter

vielen Dank für die freundliche Rückmeldung, es freut mich und ehrt mich sehr das mein Programm gut funktioniert. 
Viel Erfolg im Berufsleben und es freut mich das euch meine Hilfe die Arbeit erleichtert.  Herzlichen Dank zurück.  

mfg  Gast 123