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
Hallo,
ja, mit bedingter Formatierung.
Hallo,
aber dann müsste ich die Bedingte Formartierung auch mit einer Formel bestimmen. Korrekt?
Grüße
Tyler
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.
(12.09.2018, 14:42)Tyler schrieb: [ -> ]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
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
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 |
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_anspringenOption 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 DieseArbeitsmappeOption 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
[
attachment=19737]
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
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
Danke fürs Lob!
Du musst allerdings , Scroll:=True entfernen.
Hatte ich falsch im Gedächtnis.