MS-Office-Forum

Zurück   MS-Office-Forum > Microsoft Office > Microsoft Excel
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads
Themen-Optionen Ansicht
Alt 21.02.2018, 08:52   #1
FlorianFo
Neuer Benutzer
Neuer Benutzer
Standard Excel2010 - Bedingte Formatierungen aktualisieren

Hallo,
ich muss zugeben, ich bin relativ neu in Excel mit VBA und meine Tabelle bzw. Programm ist bestimmt mehr schlecht als recht geschrieben. Also seid bitte nicht so streng mit mir.^^

Folgendes Problem:
ich habe eine Excel-Tabelle mit Formular erstellt in der ich Dokumente registriere mit Gültigkeitszeitraum.

Sprich ich registriere ein Dokument am 12.01.2018 und es ist gültig bis Bsp. 02.02.2018
wenn das Datum überschritten ist soll die Zelle rot werden und 1 Monat davor gelb, sonst Grün bzw. grün wenn vermerkt ist "bis Änderung"

an sich funktioniert die Tabelle mit Formular recht gut, nur aktualisiert sich die Formatierung der Spalte J nicht...

ich hab schon einiges probiert aber sie aktualisiert sich einfach nicht mit den heutigen Tag..

brauche die Tabelle für meine Arbeit um Dokumentenverteilung nachzuvollziehen

Packe die Tabelle mal mit rein
Passwort ist jeweils "test123" bzw. kann per Vba ausgelesen werden^^
Angehängte Dateien
Dateityp: xlsm Registrierte Dokumente 1.xlsm (34,9 KB, 3x aufgerufen)
FlorianFo ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 21.02.2018, 09:00   #2
steve1da
MOF Meister
MOF Meister
Standard

Hola,

dein Datum in Spalte J wird nicht als Zahl erkannt, Istzahl(J6) ergibt FALSCH.
Gibst du das Datum händisch ein?

Gruß,
steve1da
steve1da ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 21.02.2018, 09:04   #3
FlorianFo
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

ja
also im Formular dort das datum in das Textfeld und der schmeißt es dann in die erste freie Zeile

also man könnte auch ein Text einschreiben
FlorianFo ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 21.02.2018, 09:05   #4
steve1da
MOF Meister
MOF Meister
Standard

Hola,

und da ist das Problem. Text kann man nicht mit Zahlen vergleichen.
Da musst du am Code basteln, leider nicht meine Baustelle.

Gruß,
steve1da
steve1da ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 21.02.2018, 09:21   #5
RPP63neu
MOF Meister
MOF Meister
Standard

Moin!
Hier kommt Bodo, der Baumeister!
Eine Textbox enthält Text.
Wenn Du den Text als Datum übergeben willst, musst Du ihn mittels CDate() in ein solches umwandeln.
Vorher musst Du mittels IsDate() prüfen, ob überhaupt umgewandelt werden kann.
Statt:
Code:

ActiveSheet.Cells(last, 9).Value = meinFormular.TextFreigegebenAm.Value
nimmst Du dies:
Code:

If IsDate(TextFreigegebenAm) Then _
ActiveSheet.Cells(last, 9).Value = CDate(meinFormular.TextFreigegebenAm)
Gruß Ralf

__________________

Meine Logik war nicht fehlerhaft, nur meine Interpretation!
Tuvok
RPP63neu ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 21.02.2018, 09:26   #6
FlorianFo
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

vielen dank
ich werde es mal probieren und ein neues Dokument registrieren.
Schauen ob es morgen dann Rot ist
FlorianFo ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 21.02.2018, 09:38   #7
RPP63neu
MOF Meister
MOF Meister
Standard

Du kannst ja auch ein -1 anhängen, dann ist heute schon morgen!

__________________

Meine Logik war nicht fehlerhaft, nur meine Interpretation!
Tuvok
RPP63neu ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 21.02.2018, 10:59   #8
FlorianFo
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

ne es ging ja dadrum
das es sich echt nicht aktualisiert hat

sprich es ist zeitlich echt abgelaufen aber die Farbe der Zelle hat sich beim öffnen der Tabelle nicht geändert..

darum ging es ja
FlorianFo ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 22.02.2018, 06:29   #9
FlorianFo
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

soo das format war noch irgendwie etwas komisch

If IsDate(TextFreigegebenBis) Then _
ActiveSheet.Cells(last, 10).Value = CDate(meinFormular.TextFreigegebenBis)
ActiveSheet.Cells(last, 10).NumberFormat = ("DD.MM.YYYY")

damit wurde er dann normal^^

gibt es auch VBA Befehl der meine spalte einfach nochmal mit meinen bedingten formatierungen abgleicht bzw aktualisiert

bin der Meinung
der aktualisiert das Ablaufdatum immer noch nicht
FlorianFo ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 22.02.2018, 07:11   #10
RPP63neu
MOF Meister
MOF Meister
Standard

Moin!
Ein vorgesehenes Zahlen- (Datum-) Format stellt man in der Tabelle ein, da braucht es kein VBA.
Lade mal den aktuellen Stand Deiner Datei hoch!

Gruß Ralf

__________________

Meine Logik war nicht fehlerhaft, nur meine Interpretation!
Tuvok
RPP63neu ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 22.02.2018, 07:28   #11
FlorianFo
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

ja jetzt klappt aber hoffentlich alles

hab im WorldWideWeb noch einen VBA Befehl gefunden, der augenscheinlich den Bug von Office beheben soll.

Private Sub Worksheet_Activate()
ActiveSheet.EnableFormatConditionsCalculation = False
ActiveSheet.EnableFormatConditionsCalculation = True
'Behebt den Excel-Bug, der die bedingte Formatierung in manchen Zellen nicht übernimmt
End Sub


hoffe das klappt ;D

wie gesagt
Passwörter sind jeweils "test123"

viel spaß damit vielleicht könnt ihr es auch gebrauchen^^
Angehängte Dateien
Dateityp: xlsm Registrierte Dokumente 1.xlsm (36,6 KB, 1x aufgerufen)
FlorianFo ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 23.02.2018, 05:48   #12
FlorianFo
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

-.-

aktualisierung funktioniert jetzt

aber bei Freigegeben bis muss ich auch so noch was einschreiben können außer ein Datum >.<

da manche Dokumente Auftragsweise gültig sind
wie kann ich das machen

also wenn Datum dann als datum
wenn Auftr dann Auftr...
FlorianFo ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 26.02.2018, 06:38   #13
FlorianFo
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Hilfe^^
bitte benötige nochmal ein wenig Hilfe

in der Spalte muss man auch einen Text eingeben können
und wenn es ein Datum ist muss das mit der Bedingung klappen
FlorianFo ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 16:23 Uhr.


Partner und Co.
Access-Paradies -Alles rund um die Datenbank Microsoft Access -Code -Programme-Tools -Tipps   Kostenlose Tipps & Tricks, Downloads und Programme   www.kulpa-online.com - Tipps - Tricks - Tutorials - Meinungen - Downloads uvm...   vb@rchiv · Willkommen in der Welt der VB Programmierung   Access-Garhammer - Hier finden Sie jede Menge Beispiel-Datenbanken zu Access und mehr ...   mcseboard.de   Die Top Seite für Excel-VBA-Makros uvm.

Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

Copyright ©2000-2018 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günter Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.