Das Archiv des Excel-Forums
Suche Hilfe zur Tabellenkalkulation
Betrifft: Suche Hilfe zur Tabellenkalkulation
von: sunlight08
Geschrieben am: 08.10.2003 14:33:27
Hallo,
ich mache gerade eine Tracking Liste zum Projekt.
Da habe ich folgendes situation:
ich habe mir aus Project den Projektplan in excel geladen.
habe die spalten in excel so eingefügt, wie in projekt.
nun das problem:
ich möchte die daten vereinfachen.
das datum format ist: tt.mm.yyyy hh:mm
ich will das in tt.mm.yyyy haben, nicht über format, zelle, datum sondern auch wirklich die zeit rausschmeissen, (praktisch am ende kappen) sonst filtert er nicht.
2. alle termine in einer KW auf den freitag hochlegen.
besipiel: termin ist auf 08.10.2003 : diesen auf 10:10.2003 legen,
Bitte helft mir,
danke
>Gruss
sunlight
Betrifft: AW: Suche Hilfe zur Tabellenkalkulation
von: Klaus-Dieter
Geschrieben am: 08.10.2003 18:32:31
Hallo sunlight,
so geht es:
Tabelle1 |
| A | B | C | 1 | Datum und Zeit | Datum (Formel) | Datum | 2 | 01.01.03 12:30 | 01.01.03 | 01.01.03 |
|
Excel Tabellen einfach im Web darstellen Excel Jeanie HTML 2.0 Download
Um die Formel wegzubekommen, mußt du die Spalte B kopieren, und über Inhalt einfügen / Werte wieder zurückschreiben. (Ich habe das Ergebnis in Spalte C demonstriert.
Gruß Klaus-Dieter
Betrifft: AW: Suche Hilfe zur Tabellenkalkulation
von: sunlight
Geschrieben am: 09.10.2003 13:14:54
Vielen Dank
wie kann ich den Pkt 2 lösen.
Gruss
Sunlight
Betrifft: AW: Suche Hilfe zur Tabellenkalkulation
von: Klaus-Dieter
Geschrieben am: 09.10.2003 22:35:16
Hallo Sunlight,
das hatte ich ganz übersehen. Man wird alt. ;-)
Hier ein Lösungsansatz per Makro:
Option Explicit
Sub termin_aufrunden()
Dim r As Integer
Dim dat As Date
For r = 1 To Range("A65536").End(xlUp).Row
dat = Cells(r, 1)
If WeekDay(Cells(r, 1)) < 6 Then
Cells(r, 2) = dat + 6 - WeekDay(Cells(r, 1))
Else: Cells(r, 2) = ""
End If
Next r
End Sub
Code eingefügt mit: Excel Code Jeanie
So sieht das Ergebnis aus:
Tabelle1 |
| A | B | 1 | Di. 07.10.03 | 10.10.03 | 2 | Mi. 08.10.03 | 10.10.03 | 3 | Do. 09.10.03 | 10.10.03 | 4 | Fr. 10.10.03 | | 5 | Sa. 11.10.03 | | 6 | So. 12.10.03 | 17.10.03 | 7 | Mo. 13.10.03 | 17.10.03 | 8 | Di. 14.10.03 | 17.10.03 |
|
Excel Tabellen einfach im Web darstellen Excel Jeanie HTML 2.0 Download
Ich habe zur verdeutlichung die Ergebnisse in Spalte B schreiben lassen. Wenn du das Ausgangsdatum überschreiben möchtest, mußt du im unteren Teil des Makros, in den zwei Cells-Befehlen die zwei in eine eins ändern.
Gruß Klaus-Dieter