erweiterte Datumsberechnung

[PhilippB]

Stimmt korrekt ich habe im Makro auf die falsche Zeile C verwiesen. Jetzt ist es korrekt.
Einfach mal Makro laufen lassen.

Dennoch kann mir da jemand helfen mit VBA weil die Arbeitsmappe wird zum Schluss gelöscht und somit wären die formeln auch weg.

[BoskoBiati]

Hi,

warum nicht einfach so:

Arbeitsblatt mit dem Namen 'Ausleitung'
	A	B	C
1	Abnahme-Datum	Datum verbriefte Laufzeit	JAHRE
2	17.05.1999	16.05.2009	10
3	18.05.1999	17.05.2019	20
4	19.05.1999	18.05.2029	30
5	20.05.1999	19.05.2039	40
6	21.05.1999	20.05.2049	50
7	22.05.1999	21.05.2059	60
8	23.05.1999	22.05.2069	70
9
10
11

Zelle	Formel
B2	=WENN(A2<>"";EDATUM(A2;C2*12)-1;"")

Diese Tabelle wurde mit Tab2Html (v2.4.1) erstellt. ©Gerd alias Bamberg

wenn's denn VBA sein soll:

Code:

Sub datum()

Dim loLetzte As Long

loLetzte = Cells(Rows.Count, 1).End(xlUp).Row
Dim loCo As Long
For loCo = loLetzte To 2 Step -1
    Cells(loCo, 2) = Application.WorksheetFunction.EDate(Cells(loCo, 1), Cells(loCo, 3) * 12) - 1
Next
End Sub

[Jockel]

...
Dennoch kann mir da jemand helfen mit VBA weil die Arbeitsmappe wird zum Schluss gelöscht und somit wären die formeln auch weg.

Oh Mann, ich schau mir das aus der Ferne an... Mir wird's hier zu wild...

[Jockel]

Hi,

warum nicht einfach...

Hi Edgar, weil die Vorgaben (nun berichtigt) andere sind..:

Arbeitsblatt mit dem Namen 'Ausleitung'
	A	B	C
1	Abnahme-Datum	Datum verbriefte Laufzeit	JAHRE
2	17.05.2001	17.05.2011	10

Verwendete Systemkomponenten: [Windows (32-bit) NT :.00] MS Excel 2013

Diese Tabelle wurde mit Tab2Html (v2.6.0) erstellt. ©Gerd alias Bamberg

[echo]

Hallo Jörg
sorry wenn es missverständlich war, aber eigendlich wollte ich deine Meinung nur bestätigen bzw. kommentieren.
Gruß Holger

[PhilippB]

Hi,

warum nicht einfach so:

Arbeitsblatt mit dem Namen 'Ausleitung'
	A	B	C
1	Abnahme-Datum	Datum verbriefte Laufzeit	JAHRE
2	17.05.1999	16.05.2009	10
3	18.05.1999	17.05.2019	20
4	19.05.1999	18.05.2029	30
5	20.05.1999	19.05.2039	40
6	21.05.1999	20.05.2049	50
7	22.05.1999	21.05.2059	60
8	23.05.1999	22.05.2069	70
9
10
11

Zelle	Formel
B2	=WENN(A2<>"";EDATUM(A2;C2*12)-1;"")

Diese Tabelle wurde mit Tab2Html (v2.4.1) erstellt. ©Gerd alias Bamberg

Die Arbeitsmappe wird danach automatisch gelöscht. Alle formeln wären dann weg. Ich benötige eine VBA Lösung welche ich in den allg. Prozess integriere.

Stand jetzt ist eine Datenbank welche ich mittels einer Erfassungsmaske Auslese und meine Ausgelesenen Daten in ein neues Sheet speichere. Das neue Sheet wird dann seperat abgespeichert und die Masterdatei wird ClearContens gelöscht.

[BoskoBiati]

Hi,

Makro im Beitrag ergänzt!

[Jockel]

Die Arbeitsmappe wird danach automatisch gelöscht ...

Dann ist alles weg... Arbeitsmappe = Datei...!!! Datei gelöscht, alles weg... VBA und Formeln, alles!!!!

[PhilippB]

Hi,

warum nicht einfach so:

Arbeitsblatt mit dem Namen 'Ausleitung'
	A	B	C
1	Abnahme-Datum	Datum verbriefte Laufzeit	JAHRE
2	17.05.1999	16.05.2009	10
3	18.05.1999	17.05.2019	20
4	19.05.1999	18.05.2029	30
5	20.05.1999	19.05.2039	40
6	21.05.1999	20.05.2049	50
7	22.05.1999	21.05.2059	60
8	23.05.1999	22.05.2069	70
9
10
11

Zelle	Formel
B2	=WENN(A2<>"";EDATUM(A2;C2*12)-1;"")

Diese Tabelle wurde mit Tab2Html (v2.4.1) erstellt. ©Gerd alias Bamberg

wenn's denn VBA sein soll:

Code:

Sub datum()

Dim loLetzte As Long

loLetzte = Cells(Rows.Count, 1).End(xlUp).Row
Dim loCo As Long
For loCo = loLetzte To 2 Step -1
    Cells(loCo, 2) = Application.WorksheetFunction.EDate(Cells(loCo, 1), Cells(loCo, 3) * 12) - 1
Next
End Sub

Danke passt. würdest du mir noch schnell veraten wo ich das Worksheet eintrage wenn es jetzt bsp. Tabelle 1 statt Ausleitung wäre. Ich also ein andere Worksheet ansprechen muss. Vor Cells ?

[PhilippB]

Dann ist alles weg... Arbeitsmappe = Datei...!!! Datei gelöscht, alles weg... VBA und Formeln, alles!!!!

Ich meinte das Worksheet wird gelöscht danach. Sry. Lösung ist nun da danke Dir.