Formel in VBA umschreiben

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo, Peter,
sofern nicht das gesucht wurde, wofür Hajo einen Lösungsweg beschrieben hat, nämlich das Schreiben einer Zellenformel aus VBA heraus, bin ich nicht sicher, ob Du überhaupt dieses "1:1"-Abbild der Zellenformel als VBA-Codezeile herstellen kannst, da in der Zellenformel Variabiabelnfelder eingesetzt werden.
Warum also dieser Weg, der nur über das Auflösen der Formel führt, da die Felder, hier {2.1} und {1.0}, nicht in einer VBA-Formel geschrieben werden können:
Sub Datumsformel() Dim dDatum As Date, nDatum As Date Dim n1Datum As Date, n2Datum As Date, n3Datum As Date, n4Datum As Date dDatum = Cells(1, 1) '==== nur für Testzwecke n1Datum = DateSerial(Year(dDatum), _ Month(dDatum) + (Day(dDatum + 1) = 1) + 1, _ 1 * Day(dDatum) * (Day(dDatum + 1) > 1)) n2Datum = DateSerial(Year(dDatum), _ Month(dDatum) + (Day(dDatum + 1) = 1) + 2, _ 1 * Day(dDatum) * (Day(dDatum + 1) > 1)) n3Datum = DateSerial(Year(dDatum), _ Month(dDatum) + (Day(dDatum + 1) = 1) + 1, _ 0 * Day(dDatum) * (Day(dDatum + 1) > 1)) n4Datum = DateSerial(Year(dDatum), _ Month(dDatum) + (Day(dDatum + 1) = 1) + 2, _ 0 * Day(dDatum) * (Day(dDatum + 1) > 1)) nDatum = Application.Min(DateSerial(Year(dDatum), _ Month(dDatum) + (Day(dDatum + 1) = 1) + 1, _ 1 * Day(dDatum) * (Day(dDatum + 1) > 1)), _ DateSerial(Year(dDatum), _ Month(dDatum) + (Day(dDatum + 1) = 1) + 2, _ 1 * Day(dDatum) * (Day(dDatum + 1) > 1)), _ DateSerial(Year(dDatum), _ Month(dDatum) + (Day(dDatum + 1) = 1) + 1, _ 0 * Day(dDatum) * (Day(dDatum + 1) > 1)), _ DateSerial(Year(dDatum), _ Month(dDatum) + (Day(dDatum + 1) = 1) + 1, _ 0 * Day(dDatum) * (Day(dDatum + 1) > 1))) Range("E" & lZeile).Value= nDatum End Sub

Ich erspare es mir, die Formeln nDatum(i,j) = DateSerial(Year(dDatum), Month(dDatum) + (Day(dDatum + 1) = 1) + i, j * Day(dDatum) * (Day(dDatum + 1) > 1)) für in eine doppelte Schleife zu packen und das Minimum aus den vier Werten zu suchen.
Gruß,
Uwe

Hallo, Peter,
nun mal in konkret, was soll Deine Formel berechnen?
Dass die Einführung von Matrixelementen in eine Zellenformel interessante Ansätze bietet, ist wohl war und nicht immer leicht auf dem ersten Blick zu überschauen. Ist jedoch erst einmal die Fragestelle in Worten gekleidet, wird sich wohl auch dazu ein Code finden, wobei es, wenn ich Dich richtig verstehe, hier nur der "Codeformulierungsergeiz" Dich dazu treibt, nicht auf einfache und vorhandene Funktionen zurück zu greifen.
Doch generell ist zu beachten, dass die WAHR/FALSCH-Zahlen in EXCEL und VBA nicht identisch sind¹).
Diesen Umstand bedenkend, wird man mit der Transformation der Wahrheitswerte iif(day(dDatum+),1,0) bzw. iff(day/dDatum+1)>1,1,0) oder einfacher, dem Einsatz der ABS-Funktion für den VBA-Boolean-Wert , wohl zu die ensprechenden Ergebnisse finden, sofern eine entsprechende Aufgabenformulierung (s.o.) vorliegt, denn für den 15.05.2007 in der Zelle A2 wird als kleinster Wert der 31.05.2007 aus der "Matrix" {1.2}{1.0} berechnet:

	D	E	F	G	H	I	J
5					1	0
6					15	15	=TAG(A2)
7					WAHR	WAHR	=TAG(A2+1)>1
8	=JAHR(A2)	=MONAT(A2)	=(TAG(A2+1)=1)
9	2007	5	FALSCH	1	15.06.2007	31.05.2007
10				2	15.07.2007	30.06.2007

Formeln der Tabelle

H6 : =TAG(A2)
I6 : =TAG(A2)
J6 : ="=TAG(A2)"
H7 : =TAG(A2+1)>1
I7 : =TAG(A2+1)>1
J7 : ="=TAG(A2+1)>1"
D8 : ="=JAHR(A2)"
E8 : ="=MONAT(A2)"
F8 : ="=(TAG(A2+1)=1)"
D9 : =JAHR(A2)
E9 : =MONAT(A2)
F9 : =(TAG(A2+1)=1)
H9 : =DATUM($D9;$E9+$F9+$G9;H$5*H$6*H$7)
I9 : =DATUM($D9;$E9+$F9+$G9;I$5*I$6*I$7)
H10 : =DATUM($D9;$E9+$F9+$G10;H$5*H$6*H$7)
I10 : =DATUM($D9;$E9+$F9+$G10;I$5*I$6*I$7)

Diagramm - Grafik - Excel Tabellen einfach im Web darstellen Excel Jeanie HTML 3.0 Download
Gruß,
Uwe
¹⁾
EXCEL:
=5+(6>3) :: Ergebnis 6
=5+(6<3) :: Ergebnis 5
WAHR = +1 :: FALSCH = 0
VBA (z.B. im Direkbereich testen):
=5+(6>3) :: Ergebnis 4
=5+(6<3) :: Ergebnis 5
WAHR = -1 :: FALSCH = 0

nDatum = Application.Min(DateSerial(Year(dDatum), _ Month(dDatum) + Abs(Day(dDatum + 1) = 1) + 1, _ 1 * Day(dDatum) * Abs(Day(dDatum + 1) > 1)), _ DateSerial(Year(dDatum), _ Month(dDatum) + Abs(Day(dDatum + 1) = 1) + 2, _ 0 * Day(dDatum) * Abs(Day(dDatum + 1) > 1)))

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

305 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Formel in VBA umschreiben

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

305 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread