AW: Makroaufzeichnung - zu lange Formel
01.12.2008 20:42:00
Erich
Hallo Kurt,
wenn die Formel so lang ist, dass sie sich nicht auf einmal aufzeichnen lässt, kannst du sie aufteilen
und die zwei (oder evtl. mehr) Teile getrennt aufzeichnen.
Wichtig dabei:
Die Aufzeichnung sollte immer in derselben Zelle stattfinden, damit die Bezüge stimmen.
In R6 ist deine Formel, in R7 eine gekürzte Fassung ( hoffentlich lässt sich TEXT(P2;"") ersetzen durch P2 ).
In R10 und R11 sind die beiden Formelteile.
In R8 habe ich beide Aufzeichnungen (Makro 1) vorgenommen, danach die beiden Teile in Makro2
per Hand zusammengefasst. Die Formel in R8 wurde dann mit Makro2 geschrieben.
| R |
6 | aa= 2 | bb= 3 | cc= 4 | dd= 5 | ee= 6 | ff= 7 | gg= 8 | hh= 9 Gesamt = 11 |
7 | aa= 2 | bb= 3 | cc= 4 | dd= 5 | ee= 6 | ff= 7 | gg= 8 | hh= 9 Gesamt = 11 |
8 | aa= 2 | bb= 3 | cc= 4 | dd= 5 | ee= 6 | ff= 7 | gg= 8 | hh= 9 Gesamt = 11 |
9 | |
10 | aa= 2 | bb= 3 | cc= 4 | dd= 5 | ee |
11 | = 6 | ff= 7 | gg= 8 | hh= 9 Gesamt = 11 |
Formeln der Tabelle |
Zelle | Formel | R6 | =TEXT(P1;"")&"= "&TEXT(Q1;"##")&" | "&TEXT(P2;"")&"= "&TEXT(R1;"##")&" | "&TEXT(P3;"") &"= "&TEXT(S1;"##")&" | "&TEXT(P4;"")&"= "&TEXT(T1;"##")&" | "& TEXT(P5;"")&"= "&TEXT(U1;"##") &" | "&TEXT(P6;"")&"= "&TEXT(V1;"##")&" | "&TEXT(P7;"")&"= "&TEXT(W1;"##")&" | "&TEXT(P8;"") &"= "&TEXT(X1;"##")&" Gesamt = "&TEXT(Z1;"##") | R7 | =P1&"= "&TEXT(Q1;"##")&" | "&P2&"= "&TEXT(R1;"##")&" | "&P3&"= "&TEXT(S1;"##")&" | "&P4&"= "&TEXT(T1;"##")&" | "&P5&"= "&TEXT(U1;"##") &" | "&P6&"= "&TEXT(V1;"##")&" | "&P7&"= "&TEXT(W1;"##")&" | "&P8&"= "&TEXT(X1;"##")&" Gesamt = "&TEXT(Z1;"##") | R8 | =P1&"= "&TEXT(Q1;"##")&" | "&P2&"= "&TEXT(R1;"##")&" | "&P3&"= "&TEXT(S1;"##")&" | "&P4&"= "&TEXT(T1;"##")&" | "&P5&"= "&TEXT(U1;"##") &" | "&P6&"= "&TEXT(V1;"##")&" | "&P7&"= "&TEXT(W1;"##")&" | "&P8&"= "&TEXT(X1;"##")&" Gesamt = "&TEXT(Z1;"##") | R10 | =P1&"= "&TEXT(Q1;"##")&" | "&P2&"= "&TEXT(R1;"##")&" | "&P3&"= "&TEXT(S1;"##")&" | "&P4&"= "&TEXT(T1;"##")&" | "&P5 | R11 | ="= "&TEXT(U1;"##") &" | "&P6&"= "&TEXT(V1;"##")&" | "&P7&"= "&TEXT(W1;"##")&" | "&P8&"= "&TEXT(X1;"##")&" Gesamt = "&TEXT(Z1;"##") |
|
Und hier die beiden Makros (per Hand überarbeitet, damit sie hier besser darstellbar sind):
Sub Makro1()
' 1. Teil
Range("R8").FormulaR1C1 = _
"=R[-7]C[-2]&""= ""&TEXT(R[-7]C[-1],""##"")&"" | ""&R[-6]C[-2]&""= ""&" & _
"TEXT(R[-7]C,""##"")&"" | ""&R[-5]C[-2]&""= ""&" & _
"TEXT(R[-7]C[1],""##"")&"" | ""&R[-4]C[-2]&""= ""&" & _
"TEXT(R[-7]C[2],""##"")&"" | ""&R[-3]C[-2]"
' 2. Teil
Range("R8").FormulaR1C1 = _
"=""= ""&TEXT(R[-7]C[3],""##"") &"" | ""&R[-2]C[-2]&""= ""&" & _
"TEXT(R[-7]C[4],""##"")&"" | ""&R[-1]C[-2]&""= ""&" & _
"TEXT(R[-7]C[5],""##"")&"" | ""&RC[-2]&""= ""&" & _
"TEXT(R[-7]C[6],""##"")&"" Gesamt = ""&TEXT(R[-7]C[8],""##"")"
End Sub
Sub Makro2()
' beide Teile
Range("R8").FormulaR1C1 = _
"=R[-7]C[-2]&""= ""&TEXT(R[-7]C[-1],""##"")&"" | ""&R[-6]C[-2]&""= ""&" & _
"TEXT(R[-7]C,""##"")&"" | ""&R[-5]C[-2]&""= ""&" & _
"TEXT(R[-7]C[1],""##"")&"" | ""&R[-4]C[-2]&""= ""&" & _
"TEXT(R[-7]C[2],""##"")&"" | ""&R[-3]C[-2]" & _
"&""= ""&TEXT(R[-7]C[3],""##"") &"" | ""&R[-2]C[-2]&""= ""&" & _
"TEXT(R[-7]C[4],""##"")&"" | ""&R[-1]C[-2]&""= ""&" & _
"TEXT(R[-7]C[5],""##"")&"" | ""&RC[-2]&""= ""&" & _
"TEXT(R[-7]C[6],""##"")&"" Gesamt = ""&TEXT(R[-7]C[8],""##"")"
End Sub
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort