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

Macro von WernerB.

Macro von WernerB.
28.04.2006 20:26:00
WernerB.
Hallo zusammen,
habe hier ein ganz hervoragendes Macro von WernerB. gefunden
und müßte es noch mit einer formel erweitern. Ist das möglich und wenn ja wie ?
Dim c As Range
Dim dd As Date
Dim laR As Long
Application.ScreenUpdating = False
laR = Cells(Rows.Count, 1).End(xlUp).Row
For Each c In Range("A1:A" & laR)
dd = CDate(c.Text)
c.ClearContents
c.NumberFormat = "hh:mm"
c.Value = dd
Next c
Application.ScreenUpdating = True
End Sub
Die jeweils geänderte Zelle sollte noch gerundet werden
zb. =Runden(A1*96)/96
Die Formel rundet die Zeit immmer auf eine viertelstunde ab oder auf.
Für Hilfe wäre ich dankbar
Gruß Frank

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Macro von WernerB.
28.04.2006 21:09:30
WernerB.
Hallo Frank,
dann ersetzte die Zeile c.Value = dd durch c.Value = Round(dd * 96) / 96
Viele Grüße Peter
Eine kurze Nachricht, ob es läuft, wäre nett - danke.
AW: Macro von WernerB.
28.04.2006 21:45:06
WernerB.
Hallo Peter,
das war es, es klappt bestens
Danke für die schnelle Hilfe
Gruß Frank

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige