Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
888to892
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
888to892
888to892
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zeiten addieren

Zeiten addieren
23.07.2007 08:47:03
Gerhard
Hallo zusammen,
Bitte um Eure Hilfe!
Wie frage ich via VBA die Aktive Zelle die Format z.B. >>Mo, 23.07.2007 08:30 und addiere zu diesem Datum 57:15 Stunden hinzu, sodaß das Ergebnis: >>Mi, 25.07.2007 17:45 3 Spalten weiter rechts von aktiver Zelle eingetragen wird?
Vielen Dank für Eure Hilfe
Gruß Gerhard

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeiten addieren
23.07.2007 08:55:00
OttoH
Hallo Gerhard,
so geht's:
 
 ABCD
1    
2Mo, 23.07.2007 08:3057:15:00Mi, 25.07.2007 17:45 
3    
4    
Formeln der Tabelle
C2 : =A2+B2
 
Diagramm - Grafik - Excel Tabellen einfach im Web darstellen    Excel Jeanie HTML  3.0    Download  
Format in A2 und C2 als benutzerdefiniert TTT"," TT.MM.JJJJ hh:mm
Gruß OttoH

Anzeige
AW: Zeiten addieren
23.07.2007 09:00:00
Gerhard
Hallo
Danke zuerst einmal,
Ich wollte aber keine Formellösung
sondern wie löse ich das Problem mit VBA?
Gruß Gerhard

AW: Zeiten addieren
23.07.2007 09:21:00
Sigi
Hi Gerhard,
so könntest du es abfragen ...
Sub ZeitAdd() If IsDate(Range("A1").Value) Then Range("B1").Value = Range("A1").Value + TimeSerial(57, 15, 0) End If End Sub


Gruß
Sigi

AW: Zeiten addieren
23.07.2007 09:22:00
Sigi
Hi Gerhard,
etwa so ...
Sub ZeitAdd() If IsDate(Range("A1").Value) Then Range("B1").Value = Range("A1").Value + TimeSerial(57, 15, 0) End If End Sub


Gruß
Sigi

AW: ... oder so
23.07.2007 09:29:00
Renee
Mazwara Gerhard,

Sub x()
Cells(1, 3) = Cells(1, 1) + Cells(1, 2)     ' C1 = A1 (Datum) + B1 = (Zeit)
'   oder
Cells(1, 4) = Cells(1, 1) + 57.25 / 24      ' D1 = A1 (Datum) + Stunden/24
'   oder
Cells(1, 5) = CDate("23.07.07 8:30") + 57.25 / 24 ' E1 = Datum + Stunden/24)
End Sub

greetz Renee

Anzeige
AW: ... oder so
23.07.2007 09:43:44
Gerhard
Vielen Dank für Eure Hilfe,
funktioniert super!!
Gruß Gerhard

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige