Office: [Excel 2007] Addieren von Wochen zum Datum

Hallo ich habe eine kurze Frage.

Ich habe eine Art Wartungsdatenbank in Excel erstellt, bei der ich die Daten über ein Userform eingebe, unter anderem auch den Wartungsturnus (x Wochen) und das Datum der letzten Wartung (Textbox in der Form TT.MM.JJJJ, Felder in Excel als Datum formatiert).
Nun möchte ich in der Spalte neben der Letzen Wartung, das Datum der Nächsten Wartung angezeigt haben, also letz_Wart + x Wochen = Näch_Wart. Diese Berechnung soll automatisch geschen, wenn die Daten aus dem Userform in die Tabelle übertragen werden.

Ich hoffe hier kann mir jemand helfen.

Viele Grüße
Christian

 

Hallo Christain,

=A1+7*Wartungsabstand

Gruß Hajo

 

Danke das klappt, wenn ich die Formel direkt in die Exceltabelle eingebe. Icvh möchte aber, dass die Berechnung schon im UserForm passiert.

Momentan sieht die Eingabeprozedur des UserForms so aus:

Code:

Private Sub Eintragen_Click()                       'Eintragen
   Dim intZ As Integer
    intZ = Range("A65536").End(xlUp).Row + 1        'Erste leere Zeile suchen
    Cells(intZ, 1) = TextBox1                       'Inventarnummer
    Cells(intZ, 2) = TextBox2                       'Bezeichnung
    Cells(intZ, 3) = TextBox3                       'Art
    Cells(intZ, 4) = TextBox4                       'Bereich
    Cells(intZ, 5) = TextBox5                       'Art der Wartung
    Cells(intZ, 6) = TextBox6                       'Veranwortlich
    Cells(intZ, 8) = TextBox7                       'Turnus in Wochen
    Cells(intZ, 9) = TextBox8                       'Letzte Wartung TT.MM.JJJJ
    Cells(intZ, 10) = ????
End Sub

In die letzte Zelle soll nun das Datum für die nächste Wartung rein. Gebe ich die Formel:

Code:

Cells(intZ, 10) = TextBox8 +7*TextBox7

an
So bekomme ich bei der Eingabe von 2 Wochen und 14.01.2010 als Ausgabe nur ########## und in dem Feld steht 14012024.

 

du schreibst Text in die zellen und keine Zahl, da würde eine Berechnung in der Zelle auch nicht klappen. Eine Textbox enthält das was der Name schon sagt Text, möchtest Du eine Zahl haben nußt Du Umwandlungsfunktionen benutzen. Bei Datum z.B. Cdate()
=Cdate(Textbox8)*7*Cdbl(Textbox7)

 

Danke hat jetzt geklappt.

Es ist leider nur ein kleiner Tippfehler bei deinem letzten Tip. Nach TextBox gehört ein + anstelle von *, aber mit dem ersten Tip zusammen, war es dann kein Problem.

 

Danke nochmal, hat ja soweit geklappt.

Jetzt aber noch eine Verständnisfrage, da ich gerade dabei bin mir das ganze VBA Zeug zu erarbeiten.

Wie würde das Ganze aussehen, wenn ich nun anstatt Wochen Monate addieren wollte, da hier ja die Anzahl der Tage nicht gleich ist?

 

MsgBox Application.WorksheetFunction.EDate(Range("A1"), 1)

 

Vielen Dank