Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
320to324
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
320to324
320to324
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Suche Hilfe zur Tabellenkalkulation

Suche Hilfe zur Tabellenkalkulation
08.10.2003 14:33:27
sunlight08
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

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Suche Hilfe zur Tabellenkalkulation
08.10.2003 18:32:31
Klaus-Dieter
Hallo sunlight,

so geht es:
AW: Suche Hilfe zur Tabellenkalkulation
09.10.2003 13:14:54
sunlight
Vielen Dank

wie kann ich den Pkt 2 lösen.

Gruss
Sunlight
AW: Suche Hilfe zur Tabellenkalkulation
09.10.2003 22:35:16
Klaus-Dieter
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:

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige