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.
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
(08.01.2018, 23:19)PhilippB schrieb: [ -> ]...
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...
(08.01.2018, 23:22)BoskoBiati schrieb: [ -> ]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 |
Hallo Jörg
sorry wenn es missverständlich war, aber eigendlich wollte ich deine Meinung nur bestätigen bzw. kommentieren.
Gruß Holger
(08.01.2018, 23:22)BoskoBiati schrieb: [ -> ]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.
Hi,
Makro im Beitrag ergänzt!
(08.01.2018, 23:27)PhilippB schrieb: [ -> ]Die Arbeitsmappe wird danach automatisch gelöscht ...
Dann ist alles weg... Arbeitsmappe = Datei...!!! Datei gelöscht, alles weg... VBA und Formeln, alles!!!!
(08.01.2018, 23:22)BoskoBiati schrieb: [ -> ]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 ?
(08.01.2018, 23:29)Jockel schrieb: [ -> ]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.