Zellen an Datum Justieren

[Tyler]

Hallo zusammen,

ich würde gerne das beim öffnen der Excel, die Markierung immer am Aktuellen Datum startet.
[
Bild bitte so als Datei hochladen: Klick mich!
]

Also am Mittwoch den 11.07. ist die Spalte /11\ /Mi\ markiert, am 12.07. die Spalte /12\ /Do\ usw.

Gibt es da eine möglichkeit sowas umzusetzten?
Ich habe leider keine Idee

Danke
Tyler

[Klaus-Dieter]

Hallo,

ja, mit bedingter Formatierung.

[Tyler]

Hallo,

aber dann müsste ich die Bedingte Formartierung auch mit einer Formel bestimmen. Korrekt?

Grüße
Tyler

[Rabe]

Hi,

ich habe folgende Liste:

Arbeitsblatt mit dem Namen 'September'
	H	I	J	K
1			kommt	geht
2	Sa, 01.09.
3	So, 02.09.
4	Mo, 03.09.
5	Di, 04.09.
6	Mi, 05.09.
7	Do, 06.09.
8	Fr, 07.09.
9	Sa, 08.09.
10	So, 09.09.

Verwendete Systemkomponenten: [Windows (32-bit) NT 10.00] MS Excel 2016

Diese Tabelle wurde mit Tab2Html (v2.6.0) erstellt. ©Gerd alias Bamberg

mit diesem Makro wird immer die Zelle mit dem aktuellen Datum und Zeit (vormittags "kommt"/nachmittags "geht") angesprungen:

Code:

Private Sub Datum_Uhrzeit_anspringen()
  
   Dim lngZ As Long
   For lngZ = 2 To 32
      If ActiveSheet.Cells(lngZ, 1).Value = Date Then
         If Time < 0.5 Then
            ActiveSheet.Cells(lngZ, 10).Select
         Else
            ActiveSheet.Cells(lngZ, 11).Select
         End If
         Exit For
      End If
   Next
  
   Beep
  
End Sub

Diese Sub wird bei dem Ereignis Workbook_Open aufgerufen, sowie bei Workbook_SheetActivate.

[happy-jack]

Hallo,

aber dann müsste ich die Bedingte Formartierung auch mit einer Formel bestimmen. Korrekt?

Grüße
Tyler

Richtig!

Zeile/n und/oder Spalte/n markieren, bedingte Formatierung > Formel > A1=HEUTE() > Format > Farbe auswählen > OK

Formel natürlich an deine erste linksoben Zelle anpassen.

jack

[RPP63]

Moin!
Ich nehme ja eher an, dass die Markierung beim Öffnen der Datei zum heutigen Tag gescrollt werden soll.
Näheres aber erst nach Rückmeldung und Vorliegen der Datei.

Gruß Ralf

[Rabe]

Hi,

hier Dein Bildchen mal nachgebaut und mit Makros:

Arbeitsblatt mit dem Namen 'Tabelle1'

A

B

C

D

E

F

G

H

I

J

K

L

M

N

O

P

Q

R

S

T

U

V

W

X

Y

Z

AA

AB

AC

AD

AE

AF

AG

AH

AI

AJ

AK

AL

AM

AN

AO

1

Monat

September

##

2

Tag

01

02

03

04

05

06

07

08

09

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

01

02

03

04

05

06

07

08

09

10

3

Sa

So

Mo

Di

Mi

Do

Fr

Sa

So

Mo

Di

Mi

Do

Fr

Sa

So

Mo

Di

Mi

Do

Fr

Sa

So

Mo

Di

Mi

Do

Fr

Sa

So

Mo

Di

Mi

Do

Fr

Sa

So

Mo

Di

Mi

Zelle	Format	Wert
B2	TT	01.09.2018
B3	TTT	01.09.2018

Zelle	Formel
B3	=B2

Verwendete Systemkomponenten: [Windows (32-bit) NT 6.01] MS Excel 2013

Diese Tabelle wurde mit Tab2Html (v2.6.0) erstellt. ©Gerd alias Bamberg

Modul mdl_anspringen

Option Explicit 



Sub Datum_anspringen() 

   

  Dim lngZeile As Long 

  Dim lngSpalte As Long 

  For lngSpalte = 2 To 367 

     If ActiveSheet.Cells(2, lngSpalte).Value = Date Then 

        ActiveSheet.Cells(2, lngSpalte).Select 

        Exit For 

     End If 

  Next 

   

  Beep 

   

End Sub 

Microsoft Excel Objekt DieseArbeitsmappe

Option Explicit 



Private Sub Workbook_Open() 

  Call Datum_anspringen 

End Sub 



Private Sub Workbook_SheetActivate(ByVal Sh As Object) 

  If ActiveSheet.Name = "Tabelle1" Then 

     Call Datum_anspringen 

  End If 

End Sub 

  Datumsspalte anspringen.xlsb (Größe: 18,03 KB / Downloads: 2)

[RPP63]

Moin Ralf!
Ich gehe so etwas pragmatischer an.
Wenn ein Zeitstrahl ein Inkrement von einem Tag hat, dann brauche ich keine Schleife, sondern rechne die Spalte gleich aus.

Bsp.:
1.1. befindet sich in E1
2.1. in F1, usw.

Heute befindet sich dann in Spalte Date - DateSerial(2018, 1, 1) + 5  (5 für Spalte E)

Man kann zwar per .Select "hüpfen", allerdings wird dann immer in die Mitte des Bildschirms gescrollt.
Ich nehme lieber
ActiveWindow.ScrollColumn = Date - DateSerial(2018, 1, 1) + 5, Scroll:=True

Gruß Ralf

[Rabe]

Hi Ralf,

das gefällt mir viel besser als meine Schleifenlösung.

Muß ich gleich mal testen.
An der Stelle des "+5," wird das Anweisungsende erwartet, also wird nicht gescrollt.

So geht es für ein beliebiges Startdatum, aber halt wieder mit Select:

Code:

Sub Datum_anspringen()
   'beliebiges Startdatum in Zelle B2
   ActiveWindow.ScrollColumn = Date - Range("B2").Value + 2
   ActiveSheet.Cells(2, ActiveWindow.ScrollColumn).Select
   Beep
End Sub

Gruß Ralf

[RPP63]

Danke fürs Lob!
Du musst allerdings , Scroll:=True entfernen.
Hatte ich falsch im Gedächtnis.