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

Kalender: beim Starten zum Tagesdatum

Forumthread: Kalender: beim Starten zum Tagesdatum

Kalender: beim Starten zum Tagesdatum
12.10.2007 09:38:18
Frank
Hallo,
mein selbsterstellter Kalender hat in der Spalte D das jeweilige Datum pro Zeile.
Wie kann ich das anstellen, daß beim Starten des Kalenders die Zeile mit dem
Tagesdatum oben als erste (lieber noch als 2. !) steht ?
Vielen Dank

Anzeige

13
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Kalender: beim Starten zum Tagesdatum
12.10.2007 09:45:00
Tino
Hallo,
D1 =heute()
D2 =D1 + 1
usw...
Gruß
Tino

AW: Kalender: beim Starten zum Tagesdatum
12.10.2007 10:18:00
Frank
Hallo Tino,
so habe ich sowieso das Datum in meinem Kalender aufgebaut.
Aber wie komme ich dazu, das die Zeile mit dem Tagesdatum beim
Programmstart als oberste angezeigt wird ?

Anzeige
AW: Kalender: beim Starten zum Tagesdatum
12.10.2007 09:45:00
serge
Hallo Frank
pass einer von beiden an:
Für Formel gültig

Private Sub Worksheet_Activate()
Dim zelle As Range
For Each zelle In Range("kalender")
If zelle.Value = Date Then
zelle.Select
Exit Sub
End If
Next zelle
End Sub


nur für Datum gültig nicht für Formel


Private Sub Worksheet_Activate()
Cells.Find(What:=Date, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate
End Sub


Serge

Anzeige
sorry!
12.10.2007 09:53:00
serge
Frank
in DieseArbeitsmappe mit
Private Sub Workbook_Open()
nicht
Private Sub Worksheet_Activate() anpassen
Serge

AW: sorry!
12.10.2007 10:13:29
Frank
Hallo Serge,
was soll ich denn anpassen ? Das "Kalender" habe ich geändert in meinen Namen "Org 2007_test",
meckert er trotzdem an (Laufzeitfehler 1004) !
Brauche ich beide Makro's oder welches ?
Entschuldige, bin bei Makro's sehr unbedarft.

Anzeige
weiter geht es so!
12.10.2007 10:25:55
serge
Hi Frank
Du must der Spalte D den Namen "kalender" einfügen.
Siehe mein Beispiel: C:\Transfer\kalender2.xls
Serge

AW: weiter geht es so!
12.10.2007 10:38:51
Frank
Hi serge,
wo finde ich Dein Beispiel "C:\Transfer\kalender2.xls" ?
Ich steh wohl z.Zt voll neben mir ?

AW: sorry!
12.10.2007 10:35:02
Matthias
Hallo Frank
hier mal ein Beispiel:
Beim Aktivieren des Blattes "Tabelle1", wird automatisch zum Tagesdatum gesprungen.
Diesen Code in Tabelle1 kopieren

Private Sub Worksheet_Activate()
Dim LoX As Long
For LoX = 1 To 365
If Cells(LoX, "D") = Date Then Application.Goto Cells(LoX, "D"), True: Exit For
Next
ActiveWindow.SmallScroll Down:=-1
Cells(ActiveCell.Row, 1).Select
Cells(ActiveCell.Row, 4).Select
End Sub


hier eine Beispielmappe: https://www.herber.de/bbs/user/46717.xls
Userbild

Anzeige
AW: sorry!
12.10.2007 10:46:28
Frank
Hallo Matthias,
Dein Tip war klasse !
Läuft genau wie gewollt !
Vielen vielen Dank !

kleine Änderung
12.10.2007 11:09:00
Matthias
Hallo

Private Sub Worksheet_Activate()
Dim LoX As Long
For LoX = 1 To 365
If Cells(LoX, "D") = Date Then Application.Goto Cells(LoX, "D"), True: Exit For
Next
ActiveWindow.SmallScroll -1
Application.Goto Cells(ActiveCell.Row, 1)
Application.Goto Cells(ActiveCell.Row, 4)
End Sub


Es scheint so schneller zu laufen.
oder wie Serge Dir vorgeschlagen hat: (etwas modifiziert)


Private Sub Workbook_Open()
Dim zelle As Range
For Each zelle In Range("kalender")
If zelle.Value = Date Then Application.Goto zelle, True: Exit For
Next zelle
ActiveWindow.SmallScroll -1
Application.Goto Cells(ActiveCell.Row, 1)
Application.Goto Cells(ActiveCell.Row, 4)
End Sub


wobei Du dem Bereich D1:D365 den Namen Kalender zuweisen mußt.
Das geht so:
D1:D365 markieren - Strg+F3 - Namen vergeben
Userbild
Userbild

Anzeige
AW: kleine Änderung
12.10.2007 11:30:12
Frank
Hi Matthias,
es hat auch schon vorher schnell gelaufen.
Es läuft aber nur beim manuellen Ausführen.
Wie bekomme ich das gespeichert, so daß es beim Aufruf des Kalenders automatisch läuft ?
Wie oder wohin soll ich das denn in Tabelle1 kopieren ?

AW: kleine Änderung
12.10.2007 13:35:00
Frank
Ich habs jetzt selber rausgefunden, klappt prima !
Danke an alle freundlichen Helfer !
Anzeige
;

Forumthreads zu verwandten Themen

Tage aus (Datum von/bis)
gseibold@phocus-marketing.de

Hallo,
nach Eingabe der Datumswerte von/bis, sollen die Tage in Spalte A1-An,
und daneben in Spalte B1-Bn der Wochentag ausgegeben werden.
also z.B:
01.12.2008 Montag
02.12.2008 Dienstag
u.sw
gibt es ggf. bereits ein Bsp./Funktion die das schon erledigt.
LG
01.12.2008 10:05:38
Thread-ID: 1029175
3 Beiträge
Wochentage Zählen mit Bedingung
Michael

Hallo,
ich habe ein Problem, das ich nicht alleine lösen kann.
Ich habe ein Excel Liste, in der ich zählen möchte, an welchen Wochentagen Person x gearbeitet hat.
Hierfür habe ich zuerst einmal zwei spalten, in denen das Datum steht und die Person, die an dem Tag ihren Dienst geleis...
10.08.2009 10:39:37
Thread-ID: 1094640
3 Beiträge
Zählen von Tagen
Tagen

Hallo,
habe Frage zu folgender Aufgabenstellung:
Tabelle mit Datum in Spalte A - Anzahl der Positionen pro Tag ist immer unterschiedlich.
Es soll die Gesamtanzahl der Tage (im Beispiel wären es 6) über eine Formel errechnet
werden. Wie ist das möglich? Danke für die Hilfe.
A...
04.12.2009 11:06:00
Thread-ID: 1121790
3 Beiträge
Einzigartige Tage im Monat zählen
Michael

Hallo,
ich komme mit meinem Problem irgendwie nicht weiter, vielleicht hat jemand von euch eine Idee?
Ich habe einer Spalte mit Datumseinträgen, wobei das selbe Datum auch mehrmals eingetragen sein kann und manche Tage auch ausgelassen sind.
Wie kann ich die Anzahl der einzigartigen...
15.03.2010 13:20:44
Thread-ID: 1145900
12 Beiträge
Wochentage im Kalender
Marc

Hallo Zusammen,
ich hoffe mir kann hier einer Helfen!
Ich habe folgendes Problem und zwar möchte ich einen Ausbildungsnachweis erstellen welcher wie folgt aufgebaut ist.
Zelle C5 : = Datum (Anfangsdatum der Ausbildung / Beispiel(01.09.2011)
Zelle A10: = Wochentag
Zelle B10:...
25.01.2013 15:10:35
Thread-ID: 1296016
3 Beiträge
Feiertage im Jahreskalender
kerstin

Hallo!Habe ein Problem. Ich habe einen Jahreskalender erstellt, der mir auch die Wochenende markiert, ein extra Blatt mit den Feiertagen habe ich auch, aber wie kann ich dieses Blatt mit meinem Jahreskalender verknüpfen, so dass mir in meinem Kalender in einer extra Spalte die Feiertage angegeb...
04.07.2002 16:05:14
Thread-ID: 133920
3 Beiträge
Feiertage im Jahreskalender
kerstin

Guten morgen!
Danke für eure Antworten, aber auf den Seiten war ich schon und mit der Berechnung hatte ich auch kein Problem, das hat wunderbar geklappt, aber dieses Tabellenblatt mit den Feiertagen mit meinem Kalender zu verbinden, so dass ich die Feiertage mit Namen drinstehen habe funktio...
05.07.2002 07:29:09
Thread-ID: 134040
3 Beiträge
Anzeige
Feiertage im Kalender farbig kennzeichnen
kerstin

Hallo!Ich habe mir einen Kalender erstellt, in dem auch die Wochenende farbig makiert sind. Dies würde ich jetzt auch gerne bei den beweglichen Feiertagen machen. Für die Feiertage habe ich ein extra Tabellenblatt. Habe schon überall geschaut, wie das gehen kann, komme aber nicht so zurecht dam...
08.07.2002 12:47:18
Thread-ID: 134683
4 Beiträge
Zählen von Tage
Tage

Hallo Forum
Ich benötige mal wieder eure Hilfe,

Es soll die Anzahl der Tage ab Datum A (Abreisetag) bis einschließlich Datum B (Rückreisetag) ermitteln werden. Das ist soweit klar.
Jedoch soll nur das Datum A sowie das Datum B mitgezählt werden wenn diese mehr als 10 Reisestun...
14.06.2014 12:15:10
Thread-ID: 1365810
6 Beiträge
Anzeige
Datum Textbox4 bis heute Tagezählen und wer in TB6
Vulferin
Hallo zusammen
ich versuche schon ne ganze zeit
In Textbox4 habe ich ein Datum stehen
und in Textbox 6 würde ich gerne die Tage Zwischen Textbox 4 bis Heute sehen
Ich hab das damit versucht
TextBox6.Value = TextBox4.Value - Date
geht irgendwie nicht
05.10.2014 13:42:02
Thread-ID: 1384890
12 Beiträge
Anzeige
Suchfunktion Berücksichtigung von bis Zahlen
bis

Hallo,
ich bräuchte eine Suchfunktion.
In den ersten 9 Tabellenblättern habe ich in Spalte "O" Aktennummern stehen.
Das sieht etwa so aus:
Alt. 258
Alt. 189 - 191
Neu. 879 - 882
Altb. 789
Alta. 963
Neu. 698
Alt. 145
Neu. 478 + 479
usw.
Nun sol...
16.01.2015 16:33:02
Thread-ID: 1403257
11 Beiträge
Anzahl Tage von bis x zählen
bis

Hi Comunity,
ich stehe wieder einmal vor einem Problem. Ich habe einen Urlaubsplaner entworfen, wo unter anderem auch die Anzahl der anwesenden Mitarbeiter angeführt wird.
Weiters möchte ich in einer Liste ausweisen, an wieviel Tage bis heute (Zeile 2) x Mitarbeiter anwesen waren. Um me...
12.03.2015 09:15:13
Thread-ID: 1414474
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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