Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1136to1140
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Wenn Jahreszahl übereinstimmt,dann, sonst...

Wenn Jahreszahl übereinstimmt,dann, sonst...
Wolfgang
Hallo,
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 

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Wenn Jahreszahl übereinstimmt,dann, sonst...
21.02.2010 08:29:01
Hajo_Zi
Hallo Wolfgang,
lösche
.Value

Danke Hajo
21.02.2010 08:45:15
Wolfgang
Hallo Hajo,
herzlichen Dank für Deine schnelle Rückmeldung. Das war wohl die Ursache, wäre nie darauf gekommen. Du hast mir sehr geholfen - Danke!!
Herzliche Grüße
Wolfgang
AW: Danke Hajo
21.02.2010 08:47:07
Hajo_Zi
Hallo Wolfgang,
das erste ist eine Variable und die hat keine Eigenschaften. Bei Range ist es nicht notwendig.
Gruß Hajo
AW: Variablen
21.02.2010 09:01:21
Hajo_Zi
Hallo Wolfgang,
für Variable war es nicht ganz korrekt. Sie hat schon Eigenschaften, aber nicht solche wie Steuerelemente und Zelle.
Gruß Hajo
Anzeige
erneut herzlichen Dank.
21.02.2010 09:45:44
Wolfgang
Hallo Hajo,
erneut herzlichen Dank für Deine Rückmeldungen und die weiteren Hinweise!
Gruß - Wolfgang

381 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige