20.04.2017, 09:11
Hallo zusammen
Kennt vielleicht jemand eine VBA, mit der ich bestehende Formeln erweitern kann ohne das der Inhalt der Formel verändert wird.
Als Beispiel hätte ich
=(WENN(UND($C$4=$C$212;$D$4=$F$254;$E$4=$E$211;$F$4=$F$211);$H$4;0)+WENN(UND($C$10=$C$212;$D$10=$F$254;$E$10=$E$211;$F$10=$F$211);$H$10;0)+WENN(UND($C$16=$C$212;$D$16=$F$254;$E$16=$E$211;$F$16=$F$211);$H$16;0)/$S$W12
Dies ist nur der Auszug aus einer Formel.
Prinzipiell soll aber diese mit einem Wennfehler ergänzt werden. Also
=Wennfehler((WENN(UND($C$4=$C$212;$D$4=$F$254;$E$4=$E$211;$F$4=$F$211);$H$4;0)+WENN(UND($C$10=$C$212;$D$10=$F$254;$E$10=$E$211;$F$10=$F$211);$H$10;0)+WENN(UND($C$16=$C$212;$D$16=$F$254;$E$16=$E$211;$F$16=$F$211);$H$16;0)/$S$W12;0) .
Ich habe schon einmal was dazu gefunden. Allerdings kommt schon ein Fehler beim erstellen der VBA.
Sub WENNFEHLER_drumrum()
‚ © Peter Rühm, Pollmann & Rühm Training
‚ Setzt die Funktion WENNFEHLER um Formeln in den markierten Zellen
‚ aber nur, wenn noch kein Wennfehler drum ist
Dim Zelle As Range
For Each Zelle In Selection
If Zelle.HasFormula Then
If UCase(Left(Zelle.FormulaLocal, 12)) <> UCase(„=wennfehler(„) Then
Zelle.FormulaLocal = „=wennfehler(“ & Mid(Zelle.FormulaLocal, 2) & „;0)“
End If
End If
Next Zelle
End Sub
Vielleicht hat ja jemand eine Idee dazu. Würde mir echt viel Arbeit ersparen.
Danke und Gruß
Micha
Kennt vielleicht jemand eine VBA, mit der ich bestehende Formeln erweitern kann ohne das der Inhalt der Formel verändert wird.
Als Beispiel hätte ich
=(WENN(UND($C$4=$C$212;$D$4=$F$254;$E$4=$E$211;$F$4=$F$211);$H$4;0)+WENN(UND($C$10=$C$212;$D$10=$F$254;$E$10=$E$211;$F$10=$F$211);$H$10;0)+WENN(UND($C$16=$C$212;$D$16=$F$254;$E$16=$E$211;$F$16=$F$211);$H$16;0)/$S$W12
Dies ist nur der Auszug aus einer Formel.
Prinzipiell soll aber diese mit einem Wennfehler ergänzt werden. Also
=Wennfehler((WENN(UND($C$4=$C$212;$D$4=$F$254;$E$4=$E$211;$F$4=$F$211);$H$4;0)+WENN(UND($C$10=$C$212;$D$10=$F$254;$E$10=$E$211;$F$10=$F$211);$H$10;0)+WENN(UND($C$16=$C$212;$D$16=$F$254;$E$16=$E$211;$F$16=$F$211);$H$16;0)/$S$W12;0) .
Ich habe schon einmal was dazu gefunden. Allerdings kommt schon ein Fehler beim erstellen der VBA.
Sub WENNFEHLER_drumrum()
‚ © Peter Rühm, Pollmann & Rühm Training
‚ Setzt die Funktion WENNFEHLER um Formeln in den markierten Zellen
‚ aber nur, wenn noch kein Wennfehler drum ist
Dim Zelle As Range
For Each Zelle In Selection
If Zelle.HasFormula Then
If UCase(Left(Zelle.FormulaLocal, 12)) <> UCase(„=wennfehler(„) Then
Zelle.FormulaLocal = „=wennfehler(“ & Mid(Zelle.FormulaLocal, 2) & „;0)“
End If
End If
Next Zelle
End Sub
Vielleicht hat ja jemand eine Idee dazu. Würde mir echt viel Arbeit ersparen.
Danke und Gruß
Micha