Suche Hilfe zur Tabellenkalkulation

Suche Hilfe zur Tabellenkalkulation von sunlight08 vom 08.10.2003 14:33:27
- AW: Suche Hilfe zur Tabellenkalkulation - von Klaus-Dieter am 08.10.2003 18:32:31
  - AW: Suche Hilfe zur Tabellenkalkulation - von sunlight am 09.10.2003 13:14:54
    - AW: Suche Hilfe zur Tabellenkalkulation - von Klaus-Dieter am 09.10.2003 22:35:16

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

Formeln der Tabelle

B2 : =LINKS(A2;5)*1

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