AW: dann zeig doch mal eine Musterdatei owt
11.05.2017 12:53:19
UweD
Hallo
da fällt mir nur eine UDF ein...
- alles ist statisch und aufwändig
- Die Formeln in englisch und in R1C1 Modus eintragen
- du darfst an der Tabelle keine Spalten ändern
Function Formelgrform(StrTyp As String)
Dim Formel As String
Select Case StrTyp
Case "BA"
Formel = "IF(RC[-10]+RC[-9]>RC[-8]+RC[-7],ROUNDUP(((RC[-10]+RC[-9]+4*RC[-12])*2)*(((RC[-2]*PI()*(RC[-6]+RC[-9]+RC[-12]))/180)+RC[-5]+RC[-4])/1000000,2),ROUNDUP(((RC[-8]+RC[-7]+4*RC[-12])*2)*(((RC[-2]*PI()*(RC[-6]+RC[-7]+RC[-12]))/180)+RC[-5]+RC[-4])/1000000,2))"
Case "RA"
Formel = "ROUNDUP((RC[-10]+RC[-9]+4*RC[-12])*2*RC[-11]/1000000,2)"
Case "ES"
'...
'...
End Select
Formelgrform = Application.Evaluate(Application.ConvertFormula(Formel, xlR1C1, xlA1))
End Function
In der Tabelle dann den Aufruf so ausführen.
Tabelle1 | B | C | D | E | F | G | H | I | J | K | L | M | N | O | P | Q |
1 | Typ | Blatt Nr. | Anzahl | Dicke | L | a | b | c | d | r | e | f | g | alpha | h | grForm |
2 | BA | '2.2.2 | 1 | 19 | 0 | 750 | 650 | 0 | 250 | 100 | 50 | 50 | 0 | 90 | Formstück | 3,87 |
3 | RA | '2.2.3 | 1 | 30 | 500 | 500 | 500 | 0 | 500 | 0 | 50 | 0 | 0 | 0 | Formstück | 1,12 |
verwendete Formeln | |
Zelle | Formel | Bereich | N/A |
P2: P3 | =WENN(B2="L";"Gerade";"Formstück") | | |
Q2:Q3 | =Formelgrform(B2) | | |
http://excel-inn.de/dateien/vba_beispiele/tabellenanzeige_in_html_addin.zip |
http://Hajo-Excel.de/tools.htm
|
XHTML-Tabelle zur Darstellung in Foren, einschl. der neuen Funktionen ab Version 2007 |
Add-In-Version 21.10 einschl. 64 Bit |
LG UweD