Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1308to1312
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1308to1312
1308to1312
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

aktuelles Datum

aktuelles Datum
26.04.2013 12:55:08
Manfred
Hallo zusammen,
es gibt viel, habe aber nichts richtiges gefunden.
Habe einen Jahreskalender der in Q4 den 1.1.2013 anzeigt, in R4 den 2.1.2013 usw.
Der Kalender läuft in Zeile 4 nach rechts weiter bis zum 31.12.2013.
Ich suche nun die Möglichkeit daß das aktuelle Datum immer ungefähr in Bildschirmmitte (nur linker - rechter Bildschirmrand) steht. Gibt es eine Formel für die bedingte Formatierung ?
Mit freundlichen Grüßen
Manfred

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: aktuelles Datum
26.04.2013 13:05:01
Rudi
Hallo,
Gibt es eine Formel für die bedingte Formatierung ?
wie willst du per Format scrollen?
Das geht nur mit VBA
Gruß
Rudi

AW: aktuelles Datum
26.04.2013 13:09:36
Manfred
Hallo Rudi,
ja muss dir Recht geben. Habe ich nicht dran gedacht.
Gruß
Manfred

AW: aktuelles Datum
26.04.2013 13:07:12
EtoPHG
Hallo Manfred,
Zeichne einen ActiveX-Button auf dein Blatt und weise ihm diesen Code zu: 
Private Sub CommandButton1_Click()
Dim rngF As Range
Set rngF = Rows(4).Find(what:=Date, LookIn:=xlValues)
If Not rngF Is Nothing Then rngF.Select
End Sub

Gruess Hansueli

Anzeige
AW: aktuelles Datum
26.04.2013 13:20:30
Manfred
Hallo Hansueli
habe 20 Kalenderblätter.

Private Sub Workbook_Open()
Dim rngF As Range
Set rngF = Rows(4).Find(what:=Date, LookIn:=xlValues)
If Not rngF Is Nothing Then rngF.Select
End Sub
Kannst du mir das Umbauen ?
Gruß
Manfred

AW: aktuelles Datum
26.04.2013 13:37:41
Matthias
Hallo
Code in DieseArbeitsmappe
Option Explicit
Private Sub Workbook_Open()
Dim rngF As Range
Set rngF = Rows(4).Find(what:=Date, LookIn:=xlValues)
If Not rngF Is Nothing Then rngF.Select
End Sub


Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim rngF As Range
Set rngF = Rows(4).Find(what:=Date, LookIn:=xlValues)
If Not rngF Is Nothing Then rngF.Select
End Sub
Gruß Matthias

Anzeige
AW: aktuelles Datum
26.04.2013 13:47:53
Manfred
Hallo Matthias,
vielen Dank für den Lösungsvorschlag, da stimmt aber was nicht, ich schau mir das nochmal an und erstelle eine Beispieldatei.
Thema vorerst erledigt.
Bin die nächsten 14 Tage weg.
Gruß
Manfred

Links zu Excel-Dialogen

CommandButton

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige