2017-03-02 4 views
0

mein Skript kompiliert gut, so nahm ich an, es war in Ordnung, aber konnte es nicht finden und natürlich ist es Fehler in dieser Zeile, das ist in einer while-Schleife eingekapselt, ich versuche nur eine einfache Möglichkeit, eine Formel hinzuzufügen zu einer Reihe von Daten, dann tun Sie etwas ähnliches, um es zu einer Reihe von Daten hinzuzufügen. Gibt es keine .Formula oder habe ich einen anderen Fehler?Gibt es eine Cells(). Formel-Funktion?

Cells(arow, acol).Formula = "=COUNTIF(" & wsData.Name & "!" & Cells(fdRow, acol).Address & ":" & Cells(ldRow, acol) & ")" 
acol = acol + 1 
+0

Mißachtung der .Address, das war meine schlechte –

+1

Ihre 'CountIf' Formel ähnlich aussehen muss: = COUNTIF (B2: B11, "A"), in dem Der erste Parameter ist der Bereich und der zweite der Wert, nach dem gesucht werden soll. Nicht sicher, was Sie im Feld "wsData, Name" usw. haben. Oh, zu Ihrer Information ist es eine gute Übung, den spezifischen Fehlercode/Nachricht zu geben, da es so viele Möglichkeiten gibt. –

+0

Danke nochmal, alles was ich sagen kann, ist DUH ... lol –

Antwort

5

Nur ein paar kleine Änderungen erforderlich:

  1. Sie verpassen eine .Address auf Cells(ldRow, acol)
  2. Ich habe auch Apostrophe ' um den Arbeitsblatt-Namen (nur erforderlich, wenn der Name Leerzeichen enthält).
  3. Wie @Wayne G. Dunn auch darauf hingewiesen, benötigen Sie den zweiten Parameter der COUNTIF Funktion, die ich am Ende als 1 gestellt habe. Sie müssen das aktualisieren. Hier

ist der aktualisierte Code:

Cells(arow, acol).Formula = "=COUNTIF('" & wsData.Name & "'!" & Cells(fdRow, acol).Address & ":" & Cells(ldRow, acol).Address & ",1)" 
+1

OH GROSSARTIG, danke, dass ich eine Stunde lang meinen Kopf gegen die Tastatur geschlagen habe ... LOL –

+1

@RickFlyFish https://meta.stackexchange.com/questions/5234/Wie-akzeptiert-eine-Antwort-Arbeit – 0m3r