Monatstage aus Variablenwert

Liebe Excelfreunde,
ich habe mit der Variable X die Spalte in der ich in der Tabelle arbeite.
X ist auch gleichzeitig der Monat für den ich monatliche Berechnungen durchführe (also X=3 entspricht Januar, X=4 entspricht Februar.....bis X=14 entspricht Dezember)
Nun muss ich aus dem Wert der Variable X die Monatstage für eine weitere Rechnung ermitteln. Habe dazu nachstehenden Syntax geschrieben, der zwar funktioniert aber erfahrenen Programmieren bestimmt nur ein mitleidiges Lächeln abgewinnt. Hat denn nicht jemand einen Tip wie ich diese Sache etwas eleganter lösen kann?
Über die Schaltjahrproblematik habe ich natürlich nicht nachgedacht , da die Tabelle ja jedes Jahr angepasst werden kann, aber wenn es auch da ne einfache Lösung gibt?
vielen Dank für Eure Hilfe und schöne Grüße
Marco
If X = 3 Then
T = 31
ElseIf X = 4 Then
T = 28
ElseIf X = 5 Then
T = 31
ElseIf X = 6 Then
T = 30
ElseIf X = 7 Then
T = 31
ElseIf X = 8 Then
T = 30
ElseIf X = 9 Then
T = 31
ElseIf X = 10 Then
T = 31
ElseIf X = 11 Then
T = 30
ElseIf X = 12 Then
T = 31
ElseIf X = 13 Then
T = 30
ElseIf X = 14 Then
T = 31
End If

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Monatstage aus Variablenwert

15.12.2013 09:25:08

fcs

AW: Monatstage aus Variablenwert

15.12.2013 10:05:46

Marco

Einzeiler

15.12.2013 10:39:00

Erich

kleine Korrektur

15.12.2013 10:45:54

Erich

AW: Einzeiler

15.12.2013 12:25:39

Marco

AW: Einzeiler

15.12.2013 13:41:24

fcs

AW: Einzeiler

15.12.2013 14:25:09

Marco

Abrechnungstage

15.12.2013 16:45:44

Erich

einfacher ohne Schleife

15.12.2013 19:13:38

Erich

einfacher ohne VBA

15.12.2013 19:36:44

Erich

AW: einfacher ohne VBA

16.12.2013 03:01:00

Marco

noch etwas einfacher

17.12.2013 01:18:10

Erich

AW: noch etwas einfacher

18.12.2013 17:12:49

Marco

Verstehe ich nicht...

15.12.2013 13:50:59

Erich

AW: Verstehe ich nicht...

15.12.2013 15:08:15

Marco

Variablenname Jahr

15.12.2013 10:41:59

Erich

Sub Monatstage() Dim myJahr As Long, X As Long, tt As Long myJahr = 2014 ' steht vielleicht in einer Zelle? X = 4 ' Monatsspalte für Februar als Beispiel tt = Day(DateSerial(myJahr, X - 1, 0)) MsgBox X & "/" & myJahr & ": " & tt End Sub

Dim X, T, Jahr Dim intMonat As Integer, strMonat As String, Wert2 intMonat = X - 2 'Nummer des Monats strMonat = Format(DateSerial(Year(Date), intMonat, 1), "MMMM") 'Langname Select Case intMonat 'Nummer des Monats prüfen Case 1: T = 31: Wert2 = 21 Case 2 Jahr = 2014 '4-stellig, hier ggf. Info aus einer Zelle im Tabellenblatt holen If IsDate(Format(Jahr, "0000") & "-02-29") Then T = 29 Else T = 28 End If Wert2 = 22 Case 3: T = 31: Wert2 = 23 Case 4: T = 30: Wert2 = 24 Case 5: T = 31: Wert2 = 25 Case 6: T = 30: Wert2 = 26 Case 7: T = 31: Wert2 = 27 Case 8: T = 31: Wert2 = 28 Case 9: T = 30: Wert2 = 29 Case 10: T = 31: Wert2 = 30 Case 11: T = 30: Wert2 = 31 Case 12: T = 31: Wert2 = 32 End Select

Hallo Franz,
vielen Dank für Deine Mühe.
Ich will Netzleistungen zurückrechnen und deswegen müssen den einzelnen Monaten unterschiedliche Werte für die Rückrechnung zugeordnet werden, weil die Energieversorger immer aus der Abnahme des höchsten Viertelstunde Wertes den Monatsleistungspreis auch rückwirkend für die vergangenen Monate berechnen.
Bedeutet für 2014 ich brauche folgende Zuordnungen:
Januar = 31 Tage
Februar = 59 Tage (also 31Tage + 28Tage)
März = 90 Tage
April = 120 usw. bis
Dezember = 365 Tage
pro KW müssen für 365 Tage 50 bezahlt werden die sich auf die Monate Tag genau aufteilen. Der höchste gemessene Wert im Jahr wird auf jeden Monat berechnet und auch zurückberechnet.
Also angenommen im Monat April ist der höchste gemessene Wert = 500 KW und in den Monaten davor war er nur 400 KW
Bedeutet das also bis Ende März folgende Rechnung galt
(400KW * 50 *90Tage(für März))/365 Tage = 4931,51 bis Ende März
nun auf Grund der höheren 15min Leistung im April gilt neu
(500KW * 50 *120Tage(für April))/365 Tage = 8219,18 bis Ende April
4931,51 wurden ja schon bezahlt, also beträgt die Rechnung im April
8219,18-4931,51 = 3287,67
Kam das klar rüber?
Mein Problem ist ich setz mich an die Programmiererei einmal im Jahr und da fängt man fast immer wieder bei Null an. Aber mit Deiner Empfehlung vorhin kann ich sicher schon einiges anfangen.
Nochmals vielen Dank für Deine Hilfe
und viele Grüße
Marco

Option Explicit Sub MarcoMonate() Dim X As Long ' Tabellenspalte Dim iMon As Integer ' Monat Dim iJahr As Integer ' Jahr Dim ii As Integer ' Laufindex Dim iTage As Integer ' Anz. Tage für Abrechnung iJahr = 2014 X = 6 '(Spalte für April) For iMon = 1 To X - 2 ' Januar bis Monat iTage = iTage + Day(DateSerial(iJahr, iMon + 1, 0)) Next iMon MsgBox iTage & " für Monat " & X - 2 & "/" & iJahr End Sub

Option Explicit Sub Test() MsgBox AbrTage(2014, 4) MsgBox AbrTage(2014, 12) MsgBox AbrTage(2016, 12) End Sub Function AbrTage(iJahr As Integer, iMon As Integer) As Integer AbrTage = DateSerial(iJahr, iMon + 1, 1) - DateSerial(iJahr, 1, 1) End Function

Beliebteste Forumthreads (12 Monate)

	A	B	C	D	E	F	G
1	Jahr	2014	EUR/kW:	50,00
2
3				zu zahlender
4	Monat	max kW	aufgel. EUR	Rest EUR
5	1	300	1273,97	1273,97		31	365
6	2	300	2424,66	1150,69		59
7	3	400	4931,51	2506,85		90
8	4	400	6575,34	1643,83		120
9	5	400	8273,97	1698,63		151
10	6	600	14876,71	6602,74		181

	A	B	C	D
1	Jahr	2014	EUR/kW:	50,00
2	Tage	365
3
4	Monat	max kW	aufgel. EUR	zu zahlender Rest (EUR)
5	1	300	1273,97	1273,97
6	2	300	2424,66	1150,69
7	3	400	4931,51	2506,85
8	4	400	6575,34	1643,83
9	5	400	8273,97	1698,63
10	6	600	14876,71	6602,74

16 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread