Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1812to1816
1812to1816
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zum aktuellen Monat springen

Forumthread: Zum aktuellen Monat springen

Zum aktuellen Monat springen
24.02.2021 09:00:44
A.
Hallo zusammen,
ich habe eine Excel-Tabelle (Dienstplan) erstellt, in der beginnend in Zeile 7 und Spalte B das Datum vom 01.01.2021 steht und spaltenweise bis Zeile 7 und Spalte AF 31.01.2021 weitergeführt wird.
Ich möchte nun, dass der Benutzer automatisch mit öffnen der Excel Datei zum aktuellem Monat oder zum aktuellem Datum springt.
Dieses kann ich wahrscheinlich nur über ein Makro lösen, oder? Kann mir jemand helfen? Besten
Dank im Voraus Gruß Ali
B 7 bis AF 7 Jan (01.01.2021 – 31.01.2021)
B 33 bis AF 33 Feb (01.02.2021 – 28.02.2021)
B 59 bis AF 59 Mrz (01.03.2021 – 31.03.2021)
B 85 bis AF 85 Apr (01.04.2021 – 30.04.2021)
B 111 bis AF 111 Mai (01.05.2021 – 31.05.2021)
B 137 bis AF 137 Jun (usw. …………………….)
B 163 bis AF 163 Jul
B 189 bis AF 189 Aug
B 215 bis AF 215 Sep
B 241 bis AF 241 Okt
B 267 bis AF 267 Nov
B 293 bis AF 293 Dez
Anzeige

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zum aktuellen Monat springen
24.02.2021 09:13:40
Nepumuk
Hallo,
in das Modul "DieseArbeitsmappe":
Private Sub Workbook_Open()
    Call Application.Goto(Worksheets("Tabelle1").Cells(7 + (Month(Date) - 1) * 26, Day(Date) + 1))
End Sub

Tabellennamen anpassen !!!
Gruß
Nepumuk
Anzeige
AW: Zum aktuellen Monat springen
24.02.2021 12:07:39
A.
Hallo Nepumuk, erstmal vielen Dank für die schnelle Hilfe. Was meinst du mit "Tabellennamen anpassen !!!" ? Wo und was soll ich da genau anpassen? Gruß Ali
AW: Zum aktuellen Monat springen
24.02.2021 12:10:17
Nepumuk
Hallo Ali,
na an Stelle von "Tabelle1" deinen Tabellennamen.
Gruß
Nepumuk
AW: Zum aktuellen Monat springen
25.02.2021 08:39:06
A.
Hallo Nepumuk, ich benötige in dieser Angelegenheit noch einmal deine Unterstützung. Habe vergessen euch/dir mitzuteilen, das ein VBA-Code oder Makro (wie Ihr es auch immer nennt) bereits für Tabelle 1 vorhanden ist, dass folgende Ereignesprozedur ausführt: 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 33 Then
Cancel = True
Select Case Target.Row
Case 8
Target = IIf(Target = "", "BDD", "")
Target.Interior.Color = IIf(Target = "BDD", vbRed, xlNone)
Target.Font.Color = IIf(Target = "BDD", vbWhite, vbBlack)
Case 10
Target = IIf(Target = "", "NTB", "")
Target.Interior.Color = IIf(Target = "NTB", vbRed, xlNone)
Target.Font.Color = IIf(Target = "NTB", vbWhite, vbBlack)
Case 11
Target = IIf(Target = "", "HPO", "")
Target.Interior.Color = IIf(Target = "HPO", vbRed, xlNone)
Target.Font.Color = IIf(Target = "HPO", vbWhite, vbBlack)
Case 13
Target = IIf(Target = "", "BLD", "")
Target.Interior.Color = IIf(Target = "BLD", vbRed, xlNone)
Target.Font.Color = IIf(Target = "BLD", vbWhite, vbBlack)
(geht bis Case 334)
Case 334
Target = IIf(Target = "", "NUA", "")
Target.Interior.Color = IIf(Target = "NUA", vbRed, xlNone)
Target.Font.Color = IIf(Target = "NUA", vbWhite, vbBlack)
End Select
End If
End Sub

Das zweite Makro wurde von der geschrieben, dass der Benutzer automatisch mit öffnen der Excel Datei zum aktuellem Monat oder zum aktuellem Datum springt. 
Private Sub Workbook_Open()
Call Application.Goto(Worksheets("Tabelle1").Cells(7 + (Month(Date) - 1) * 26, Day(Date) +   _
_
1))
End Sub

Beide sollen für ein- und dieselbe Tabelle 1 gelten. Kannst du mir bitte dabei helfen, sie zu verbinden bzw. zu einem zusammenführen? Oder gibt es vielleicht doch eine andere Lösung oder sind mehrere Makro für eine Tabelle möglich? Bitte denk daran: Wir sind (absolute) Laien…!!!
Vielen Dank!
Gruß Ali
Anzeige
AW: Zum aktuellen Monat springen
25.02.2021 10:09:48
Nepumuk
Hallo Ali,
da gibt es nichts zusammenzuführen, das sind zwei ganz unterschiedliche Ereignisse die auch in unterschiedlichen Modulen stehen.
Gruß
Nepumuk
AW: Zum aktuellen Monat springen
25.02.2021 11:53:09
A.
Hallo Nepumuk, funktionirt leider nicht! Gruß Ali
AW: Zum aktuellen Monat springen
25.02.2021 11:55:37
A.
Oder, ich krieg das nicht hin...?!
Anzeige
AW: Zum aktuellen Monat springen
25.02.2021 12:09:20
A.
Hallo Nepumuk, besteht evtl. die Möglichkeit, dass ich dir die Datei (per Mail) zukommen lassen kann? wenn es für dich i.O. ist?! Gruß Ali
Anzeige
AW: Zum aktuellen Monat springen
25.02.2021 12:13:10
Nepumuk
Hallo Ali,
Gib hier Bescheid wenn du sie abgeschickt hast, sonst muss ich immer nachschauen.
Gruß
Nepumuk
AW: Zum aktuellen Monat springen
25.02.2021 12:19:05
A.
Habe dir die Excel-Datei soeben geschickt.
;

Forumthreads zu verwandten Themen

VBA Code auch mit aktuellem Datum statt CommandBut
alex

Hallo zusammen,
Den Code in dieser Datei:
https://www.herber.de/bbs/user/55491.xls
schrieb mir ein Forumsmitglied heute Vormittag.
Der funzt so wie ich mir das vorgestellt habe.
Jedoch bräuchte ich das Ding mit aktuellem Datum (also immer am "Heute" ausgerichtet) statt mit...
18.09.2008 22:47:00
Thread-ID: 1010873
2 Beiträge
Zeile mit aktuellem Datum auslesen
Horst

Hallo Excel-Gemeinde!
Wie kann ich bei untenstehendem VBA-Code angeben, dass von der B.xls die Spalte AA jener Zeile A ausgelesen wird, welche dem aktuellem Systemdatum entspricht (Spalte A enthält Datumswerte, Spalte AA Beträge).
Das müsste irgendwie mit "Application.Match(CLng(Date)"...
11.02.2009 14:23:00
Thread-ID: 1049595
17 Beiträge
Anzeige
Zellen färben mittels Datumsabfrage
Pascal

Hallo,
ich brauche mal die Hilfe von Excel "Kennern"...
Ich habe verschiedene Spalten in einem Sheet, die eine zeigt einen Endtermin an, die andere den Status. Dieser steht auf "Released" oder "Service"...
Ist nun ein Endtermin erreicht und der Status steht immer noch auf "Released"...
12.02.2009 11:15:00
Thread-ID: 1049955
2 Beiträge
Zellen färben mittels Datumsabfrage
Pascal

Hallo,
ich brauche mal die Hilfe von Excel "Kennern"...
Ich habe verschiedene Spalten in einem Sheet, die eine zeigt einen Endtermin an, die andere den Status. Dieser steht auf "Released" oder "Service"...
Ist nun ein Endtermin erreicht und der Status steht immer noch auf "Released"...
12.02.2009 11:15:00
Thread-ID: 1049956
3 Beiträge
Zahlen zwischen zwie Spalten mit dem Datum darauf
Oskar

Hallo
Ich möchte Zahlen auf Spalten Addieren, welche zwischen zwei Datum liegen um zu berechnen, wie lange eine Arbeit unter Berücksichtigung der Feiertage geht. Die Zeile mit %, wieviel nicht gearbeitet ist, ist schon auf der Tabelle. (Zeile 4) Auf Zeile 2 steht das Datum. Die Datum von un...
11.05.2009 14:07:39
Thread-ID: 1074347
3 Beiträge
Wochentag aus Zelle mit Datum
MikeM

Hallo zusammen,
hab ein Problem und hoffe auf eine Lösung.
Ich möchte mir gerne aus einem Datum den Wochentag anzeigen lassen - allerdings als Text.
Beispiel:
Zelle A1 = 11.02.2009 (formatiert als TT, da ich nur den Tag brauche, also 11, da es sich um einen Kalender handelt)
...
18.05.2009 14:47:49
Thread-ID: 1075909
4 Beiträge
Anzeige
VBA Datumsspalte bis zum aktuellen Tag markieren
Michael

Hallo, ich habe einiges ausprobiert aber nichts hat annährend funktioniert daher suche ich nun hier Hilfe.
Ich habe eine Tabelle wo in der Spalte A immer ein Datum steht.
In Zelle E:3 befindet sich das aktuelle Datum.
Nun möchte ich gern das in Spalte A alle Werte bis zum Tag vor de...
10.06.2009 09:13:18
Thread-ID: 1080342
2 Beiträge
Zellen mit Datum - ändern
Burghard

Hallo,
ich brauche mal Hilfe.
Ich möchte in der Spalte A (Bereich A1 bis A200) in der Tabelle1 alle Zellen mit Datum finden und diese Zellen auf das Datumsformat "TTTT TT.MM.JJJJ" verändern.
Ich brauche die Lösung in VBA (nicht als bedingte Formatierung), da ich sie in ein Makro ein...
30.07.2009 09:06:19
Thread-ID: 1092422
4 Beiträge
Anzeige
Nach Datum automatisch beim Öffnen sortieren
chris58

Hallo !
Ich habe diesen Code hier gefunden, Jedoch sortiert dieser Code nur die Spalte A. Ich habe aber 9 Spalten (also von A-I). Was muß ich ändern, daß der code alle Spalten sortiert.
Danke für eure Antwort
chris
Private Sub Workbook_Open() Sheets("Tabelle1").Columns(1).Sort...
09.09.2009 22:46:58
Thread-ID: 1101630
3 Beiträge
Anzeige
Datum mit Klick in andere Zelle kopieren
Josef_T

Hallo zusammen,
ich bräuchte mal eure Hilfe, für eine Formel die folgendes ausführt:
In B6:B30, habe ich Datums (Datümer?) stehen. Wenn ich dann irgendeins der Datümer in dieser Spalte anklicke, soll das jeweilige Datum in die Zelle D6 geschrieben werden. Die Datümer in Spalte B, sollen...
17.09.2009 19:18:21
Thread-ID: 1103686
7 Beiträge
Aktuellen Tag im Chart markieren?
ChrisW

Hallo Leute,
besteht die Möglichkeit und wenn ja - wie - in einem Chart eine Senkrechte linie darzustellen, die den Heutigen Tag markiert?
So ähnlich wie in meinem Screenshot simuliert:

Danke
Chris
23.09.2009 15:32:31
Thread-ID: 1104968
3 Beiträge
Auf Datum mit Uhrzeit springen
Rainer

Hallo,
in meinem Excel Tabellenblatt befindet sich in der Spalte A jeweils fortlaufend das Datum mit einer Uhrzeit (30 Minuten Aufteilung).
Beispiel:
27.10.09 11:00
27.10.09 11:30
27.10.09 12:00 usw.
Da die Tabelle im Laufe der Zeit sehr lang wird, würde ich beim Öffnen...
27.10.2009 12:09:25
Thread-ID: 1112458
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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