Forum: PC-Programmierung VBA Excel Kalendar heute funktion


Announcement: there is an English version of this forum on EmbDev.net. Posts you create there will be displayed on Mikrocontroller.net and EmbDev.net.
von flo (Gast)


Angehängte Dateien:

Bewertung
0 lesenswert
nicht lesenswert
Hallo,

ich habe in excel ein jahreskalendar erstellt. Der Tag heute wird rot 
schraffiert (Bedingte Formatierung, siehe Bild). ich würde gerne in VBA 
eine Funktion schreiben die die rot schraffierte Zelle also die Zelle 
von heute selektiert.

z.B. sowas ähnliches wie das hier:

if sheets("Plan").Range("BX15") = heute??? then

end if

von Mike B. (mike_b97) Benutzerseite


Bewertung
0 lesenswert
nicht lesenswert
=heute()
Dafür musst du die Zellen mit "24." und "Juni 2018" miteinander 
verketten.
Am besten von beiden Ergebnissen den wert(...) bilden und diese 
vergleichen.
Formatierung musst du noch anpassen

: Bearbeitet durch User
von ge-nka (Gast)


Bewertung
0 lesenswert
nicht lesenswert
irgendwie so:


Dim aktDatum As Date
aktDatum = Date

Dim Zelle As Excel.Range
For Each Zelle In Range("DatumKalender")
    If Zelle.Value = aktDatum Then
        ActiveSheet.Cells(Zelle.Row, Zelle.Column).Select
    End If
Next

Antwort schreiben

Die Angabe einer E-Mail-Adresse ist freiwillig. Wenn Sie automatisch per E-Mail über Antworten auf Ihren Beitrag informiert werden möchten, melden Sie sich bitte an.

Wichtige Regeln - erst lesen, dann posten!

  • Groß- und Kleinschreibung verwenden
  • Längeren Sourcecode nicht im Text einfügen, sondern als Dateianhang

Formatierung (mehr Informationen...)

  • [c]C-Code[/c]
  • [code]Code in anderen Sprachen, ASCII-Zeichnungen[/code]
  • [math]Formel in LaTeX-Syntax[/math]
  • [[Titel]] - Link zu Artikel
  • Verweis auf anderen Beitrag einfügen: Rechtsklick auf Beitragstitel,
    "Adresse kopieren", und in den Text einfügen




Bild automatisch verkleinern, falls nötig
Bitte das JPG-Format nur für Fotos und Scans verwenden!
Zeichnungen und Screenshots im PNG- oder
GIF-Format hochladen. Siehe Bildformate.
Hinweis: der ursprüngliche Beitrag ist mehr als 6 Monate alt.
Bitte hier nur auf die ursprüngliche Frage antworten,
für neue Fragen einen neuen Beitrag erstellen.

Mit dem Abschicken bestätigst du, die Nutzungsbedingungen anzuerkennen.