Supportnet / Forum / Tabellenkalkulation
Tageszähler mit Wochenereignis
Frage
Hallo,
Über eine Funktion lasse ich mir die Anzahl der restlichen Tage zwischen Datum heute(A1) und Enddatum(A2) ausgeben.
Dessweiteren lasse ich mir den aktuellen Wochentag und Datum+Uhrzeit ausgeben.
Jetzt möchte ich noch , dass jeden Montag oder jede neue Woche autom. ein definierter Text in eine Zelle übertragen wird, der 1 Woche stehen bleibt.
Dann soll wieder ein neuer Text erscheinen.
Geht das überhaupt in Excel 2002 ?
Danke im Vorraus!
Antwort 1 von Saarbauer
Hallo,
Radio Erivan, im Prinzip ja, aber deine Darstellung des Problems ist nicht ganz verständlich.
Es ist z.B. nicht klar wo der neue Text her kommt
Gruß
Helmut
Radio Erivan, im Prinzip ja, aber deine Darstellung des Problems ist nicht ganz verständlich.
Es ist z.B. nicht klar wo der neue Text her kommt
Gruß
Helmut
Antwort 2 von Zivichecker
Hallo,
nochmal meine detailierte Situation.
Das ganze soll ein Art Countdown-Zähler werden.
Es werden die restlichen Tage zwischen einem definierten Startdatum(A1) udn einem definierten Enddatum(A2) angeziegt.
zusätzlich habe ich noch eine weiter Tabelle mit den folgenden Spalten:
ID (B1) und Text (C1)(für den User nicht sichtbar).
Unter dem Tageszähler soll jeden Montag ein neuer Text aus der Spalte (C) ausgegeben werde.
Der Text soll von Montag bis Sonntag stehen bleiben.
In der nächsten Woche soll am Monntag der Text aus Zelle (C2) gezogen werden usw..
Hoffe es ist verständlicher.
nochmal meine detailierte Situation.
Das ganze soll ein Art Countdown-Zähler werden.
Es werden die restlichen Tage zwischen einem definierten Startdatum(A1) udn einem definierten Enddatum(A2) angeziegt.
zusätzlich habe ich noch eine weiter Tabelle mit den folgenden Spalten:
ID (B1) und Text (C1)(für den User nicht sichtbar).
Unter dem Tageszähler soll jeden Montag ein neuer Text aus der Spalte (C) ausgegeben werde.
Der Text soll von Montag bis Sonntag stehen bleiben.
In der nächsten Woche soll am Monntag der Text aus Zelle (C2) gezogen werden usw..
Hoffe es ist verständlicher.
Antwort 3 von Saarbauer
Hallo,
etwas klarer aber warum schreibst du den Text nicht in die Spalte c der Tabele und mit einer bedingten Formatierung sichtbar bzw. unsichtbar.
Gruß
Helmut
etwas klarer aber warum schreibst du den Text nicht in die Spalte c der Tabele und mit einer bedingten Formatierung sichtbar bzw. unsichtbar.
Gruß
Helmut
Antwort 4 von zivichecker
Hallo Helmut,
Die User dürfen keine Möglichkeit haben den Text zu editieren, desswegen wird die Spalte C komplett gesperrt und ausgeblendet. Ich habe ca. 40 verschiedene Texte die wöchentlich nach und nach in 1 bestimmen Zelle (für den User sichtbar) angezeigt werden sollen.
Bsp.
In der Zelle A1 steht in der
1. Woche "Test"
2. Woche "Übung"
3. Woche "Versuch"
......
Grüße
Die User dürfen keine Möglichkeit haben den Text zu editieren, desswegen wird die Spalte C komplett gesperrt und ausgeblendet. Ich habe ca. 40 verschiedene Texte die wöchentlich nach und nach in 1 bestimmen Zelle (für den User sichtbar) angezeigt werden sollen.
Bsp.
In der Zelle A1 steht in der
1. Woche "Test"
2. Woche "Übung"
3. Woche "Versuch"
......
Grüße
Antwort 5 von JoeKe
Hallo Zivichecker,
kopier folgenden Code in das VBA-Projekt "DieseArbeitsmappe"
Option Explicit
Private Sub Workbook_Open()
Dim suZelle As String, fiZelle As Range, Zeile As Long
Dim objFSO As Object
Dim objFile As Object
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = _
objFSO.GetFile("C:\Dokumente und Einstellungen\user\Desktop\Text am Montag.xls")
If Day(objFile.DateLastAccessed) = Day(Now) And Sheets("Tabelle1").Cells(2, 1) <> "" _
Then Exit Sub
If Weekday(Now, vbMonday) = 1 And Sheets("Tabelle1").Cells(2, 1) = "" Then
Sheets("Tabelle1").Cells(2, 1) = Sheets("Tabelle2").Cells(1, 3)
ElseIf Weekday(Now, vbMonday) = 1 And Sheets("Tabelle1").Cells(2, 1) <> "" Then
suZelle = Sheets("Tabelle1").Cells(2, 1)
For Each fiZelle In Sheets("Tabelle2").Range("C1:C52")
If fiZelle = suZelle Then Zeile = fiZelle.Row
Sheets("Tabelle1").Cells(2, 1) = Sheets("Tabelle2").Cells(Zeile + 1, 3)
Next
End If
End Sub
Den Dateipfad bei
sowie die Blattnamen musst du deiner Mappe anpassen.
MfG
JöKe
kopier folgenden Code in das VBA-Projekt "DieseArbeitsmappe"
Option Explicit
Private Sub Workbook_Open()
Dim suZelle As String, fiZelle As Range, Zeile As Long
Dim objFSO As Object
Dim objFile As Object
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = _
objFSO.GetFile("C:\Dokumente und Einstellungen\user\Desktop\Text am Montag.xls")
If Day(objFile.DateLastAccessed) = Day(Now) And Sheets("Tabelle1").Cells(2, 1) <> "" _
Then Exit Sub
If Weekday(Now, vbMonday) = 1 And Sheets("Tabelle1").Cells(2, 1) = "" Then
Sheets("Tabelle1").Cells(2, 1) = Sheets("Tabelle2").Cells(1, 3)
ElseIf Weekday(Now, vbMonday) = 1 And Sheets("Tabelle1").Cells(2, 1) <> "" Then
suZelle = Sheets("Tabelle1").Cells(2, 1)
For Each fiZelle In Sheets("Tabelle2").Range("C1:C52")
If fiZelle = suZelle Then Zeile = fiZelle.Row
Sheets("Tabelle1").Cells(2, 1) = Sheets("Tabelle2").Cells(Zeile + 1, 3)
Next
End If
End Sub
Den Dateipfad bei
C:\Dokumente und Einstellungen\user\Desktop\Text am Montag.xlssowie die Blattnamen musst du deiner Mappe anpassen.
MfG
JöKe