---

Hallo Ihr Spezialisten.

Ich möchte per VBA eine Formel in eine Spalte einer Exceltabelle schreiben, bekomme aber die Abfrage Inhalt<>"" nicht hin:

Im nachfolgenden Code ist es die Zuweisung Cells(ii, 49).Formula = aaa auch als Cells(ii, 49).Value = aaa die nicht funktioniert.

Code:

Function rang()
Dim ii, zz As Integer
Dim aaa As String

ii = 1
zz = 0
Do
    ii = ii + 1
    bew = Cells(ii, 1).Value
    zz = zz + 1
Loop Until bew = ""
'############ Ziel
'############ =WENN(AQ2<>"";RANG(AU2;$AU$2:$AU$355;1);"")
For ii = 2 To zz
    aaa = "=WENN(AQ" & ii & "<>" & Chr(34) & Chr(34) & ";RANG(AU" & ii & ";$AU$2:$AU$" & zz & ";1);" & Chr(34) & Chr(34) & ")"

    Cells(ii, 49).Formula = aaa
Next ii

End Function

Danke für die Bemühungen.

------------------
----------------
"Ich stimme mit der Mathematik nicht überein. Ich meine, daß die Summe von Nullen eine gefährliche Zahl ist."  (Stanislaw Jerzy Lec)

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Moin Wyndorps,

Du brauchst, uzm Funktionen per VBA in eine Zelle zu schreiben, die englischen Bezeichnungen der Funktionen. Also: WENN(; wird zu IF(;

Dann sollte es eigentlich klappen.

Gruß, Ole

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Ole,

danke für den Tip, aber das ist es leider nicht.
Es muss irgendwie mit der Art zu tun haben, wie ich versuche die als String zusammengebastelte Formel in die Zelle zu übertragen.

------------------
----------------
"Ich stimme mit der Mathematik nicht überein. Ich meine, daß die Summe von Nullen eine gefährliche Zahl ist."  (Stanislaw Jerzy Lec)

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hab mal den String wirkllich in kleine Abschnitte unterteilt. Der Finzt bei mir sehr gut.

Code:

---

Dim strFormel As String
    strFormel = "=IF("
    strFormel = strFormel & "AQ"
    strFormel = strFormel & ii
    strFormel = strFormel & "<>"""""
    strFormel = strFormel & ","
    strFormel = strFormel & "RANK("
    strFormel = strFormel & "AU"
    strFormel = strFormel & ii
    strFormel = strFormel & ","             
    strFormel = strFormel & "$AU$2:$AU$"
    strFormel = strFormel & ","            [EDIT: die Zeile muss raus!!! Bin zu d** zum kopieren...]
    strFormel = strFormel & zz
    strFormel = strFormel & ","
    strFormel = strFormel & 1
    strFormel = strFormel & ")"
    strFormel = strFormel & """"
    strFormel = strFormel & ")"

---

Gruß

[Diese Nachricht wurde von okl am 24. Jul. 2008 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi-Ho,
wahrscheinlich stolperst Du über die Anführungsstriche, die müssen im VBA geschachtelt werden, weil er die sonst nicht richtig interpretiert. und evtl. über FormulaLocal

Mal ein Beispiel, ich habe Deins jetzt nicht getestet:

Code:

---

Sub test()
Dim strFormel$

strFormel = "=Wenn(A1<>0;""1"";""0"")"

Sheets(1).Cells(1, 2).FormulaLocal = strFormel

End Sub

---

Versuch mal, ob Dir das schon hilft, wenn nicht meld Dich noch mal.

------------------
Gruß,
runkelruebe          Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße...

System-Info     Excel -Suche    RuA-Suche     FAQ-ACAD     Hilfe zu CAD.de 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Übrigens:

Code:

---

Dim ii, zz As Integer

---

definiert ii asls Variant und nur zz als Integer. Das kann mancvhmal zu Problemen führen.

Code:

---

Dim ii As Integer, zz As Integer

---

schreibt es richtig in eine Zeile.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Über FormulaLocal kannst Du bbei deutschem Excel deutsche Formeln eingeben??

Muss ich später mal probieren.

Grüße

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi,

Zitat:

---

...die englischen Bezeichnungen der Funktionen...

---

Nicht nur der Funktionen, sondern auch die Schreibweise:
IF(A1="",0,1)
Beachte: Komma statt Semikolon

Grüsse, Henning

------------------
Henning Jesse
VoxelManufaktur
Computer-Dienstleistungen für Architekten und Ingenieure

  http://www.voxelman.de

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Das "FormulaLocal" war's.

Ihr seid super!
Dank Ü well!

------------------
----------------
"Ich stimme mit der Mathematik nicht überein. Ich meine, daß die Summe von Nullen eine gefährliche Zahl ist."  (Stanislaw Jerzy Lec)

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

IMHO
deutsche Begriffe und in Formeln Semikolon durch Komma austauschen.
Kurze Makroaufzeichnung der Zelle hilft wie XL die Formel in den Code schreibt;-)

aaa = "=IF(AQ" & ii & "<>" & Chr(34) & Chr(34) & ",RANK(AU" & ii & ",$AU$2:$AU$" & zz & ",1)," & Chr(34) & Chr(34) & ")"

wie schon wronzky  & okl bemerkten.

@Rübe, FormulaLocal kannte ich auch noch nicht 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP