Wenn Jahreszahl übereinstimmt,dann, sonst...
Wolfgang
der nachfolgende Code teilt eine Summe ggfs. nach Jahren auf. Wie muss ich den Code ändern, damit eine Abfrage "eingebaut" wird, die überprüft, ob das Jahr -intB5j- mit der Jahreszahl in Tabelle "Daten", Zelle M1 übereinstimmt. Wenn ja, dann entsprechend weiter.
Wenn nein, dann nach "else" weiter. Komme da irgendwie nicht weiter. VBA meldet da immer, dass ein Objekt fehlt. Danke schon jetzt für die Rückmeldungen.
Herzlichen Gruß
Wolfgang
Private Sub entschieden()
Dim daTB5 As Date, daTB6 As Date, intB5j As Integer
Dim SchnittTag As Double, ii As Integer
Dim datVon As Date, datBis As Date
With Application.WorksheetFunction
If IsDate(TextBox5) And IsDate(TextBox6) Then
daTB5 = CDate(TextBox5) + 31
daTB6 = CDate(TextBox6) + 32
intB5j = Year(daTB5)
TextBox25 = .Round((.Max(daTB5, daTB6) - .Min(daTB5, daTB6) + 1) / 30.4, 1)
SchnittTag = CDbl(TextBox10) / (daTB6 - daTB5) ' Wert pro Tag
If intB5j.Value = Sheets(2).Range("M1").Value Then '###hier komme ich nicht weiter####
'wenn das Jahr mit dem Jahr in Zelle M1 übereinstimmt dann hier weiter
For ii = 0 To Year(daTB6) - intB5j
datVon = .Max(daTB5, DateSerial(intB5j + ii, 1, 1))
datBis = .Min(daTB6, DateSerial(intB5j + ii + 1, 1, 1))
Me("TextBox" & 13 + ii) = .Round(SchnittTag * (datBis - datVon), 2)
If ii Anzeige