Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
912to916
912to916
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Anzeige
Inhaltsverzeichnis

Differenz von Datumsangaben

Forumthread: Differenz von Datumsangaben

Differenz von Datumsangaben
04.10.2007 17:03:54
Datumsangaben
Hi,
ich möchte zwei Datumsangaben voneinander abziehen und das Ergebnis wieder in ein Excelsheet einfügen. Kann mir da bitte jemand helfen? Bin leider VB Anfanger. Danke!
Gruß, Roman

Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Differenz von Datumsangaben
04.10.2007 17:05:56
Datumsangaben
Hallo,
Datumsangaben sind auch bloß Zahlen! also:
Datum 1 - Datum 2 = Datum neu (als Datum formatieren)
Micha

AW: Differenz von Datumsangaben
04.10.2007 17:13:00
Datumsangaben
Innerhalb eine Schleife habe ich folgenden Befehl und bekomme immer einen Laufzeitfehler "13"-Typen unverträglich.
Zeit(i, 6) = (Worksheets("Tabelle1").Cells(j + 1, 7)) - (Worksheets("Tabelle1").Cells(j + 1, 18))

Anzeige
AW: Differenz von Datumsangaben
04.10.2007 21:57:15
Datumsangaben
Hallo,
vielleicht könnte es an Zeit(i, 6) liegen,schaut nach einer oder mehreren schleifen aus, ist dies vielleicht cells(i,6) oder cells(j,6)
Gruss
Tino

AW: Differenz von Datumsangaben
05.10.2007 11:34:26
Datumsangaben
Nein, Zeit(i,6) ist schon richtig. Ich hab eine Tabelle1 mit i Zeilen, möchte zwei Daten aus den Zeilen subtrahieren und mir das Ergebnis als Variable Zeit(i,6) ausgeben lassen.

Anzeige
AW: Differenz von Datumsangaben
05.10.2007 12:35:16
Datumsangaben
Hallo,
kannst du mal dein Bsp. hochladen?
Gruss
Tino

AW: Differenz von Datumsangaben
05.10.2007 13:11:02
Datumsangaben
Ja klar: 

Sub TEST()
Dim Intervall(1 To 36, 6 To 7)
Dim j As Integer
For i = 1 To 36
j = 1
Do While Worksheets("Tabelle1").Cells(j + 1, 1)  ""
Intervall(i, 6) = (Worksheets("Tabelle1").Cells(i + 1, 7) - Worksheets("Tabelle1").Cells(i  _
+ 1, 18))
j = j + 1
Loop
Next i
For i = 1 To 36
Sheets("Result").Cells(i + 2, 6) = Intervall(i, 6)
Next i
End Sub


Anzeige
AW: Differenz von Datumsangaben
05.10.2007 13:35:00
Datumsangaben
Hallo,
also bei funktioniert der Code.
Option Explicit

Sub TEST()
Dim Intervall(1 To 36, 6 To 7)
Dim i As Byte
Dim j As Integer
For i = 1 To 36
j = 1
Do While Worksheets("Tabelle1").Cells(j + 1, 1)  ""
Intervall(i, 6) = (Worksheets("Tabelle1").Cells(i + 1, 7) - Worksheets("Tabelle1").Cells(i  _
_
+ 1, 18))
j = j + 1
Loop
Next i
For i = 1 To 36
Sheets("Result").Cells(i + 2, 6) = Intervall(i, 6)
Next i
End Sub


Gruss
Tino

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum