Autoausfüllen & gezählte Excel-Zeilen kombinieren

Computer: Software & Programmierung Visual Basic
#1

Hallo zusammen,

bei der VBA-Programmierung (der in meinem Fall eher „zusammenstöpseln“) bin ich noch absoluter Frischling. Wäre toll, wenn mir jemand weiterhelfen könnte:

Ich möchte gern §ein Autoausfüllen§ über ein Makro generieren und dabei soll das Autoausfüllen nur bis zu der letzten gefüllten Zeile passieren (also variabel)

Gebe ich folgendes ein

Dim r As String
Dim s As Byte
Dim n As Long
r = „S1“
s = 1
Range®.FormulaR1C1 = „=CountA(c[“ & s & „])“
n = Range®.Value

(Bis hierhin habe ich es von einer anderen Antwort und als Message Box funktionierts auch tadellos)

Range(„W2“).Select
ActiveCell.FormulaR1C1 = _
„=IF((SUMPRODUCT((Tabelle2!R2C1:R150C1=RC[-21])*(Tabelle2!R2C2:R150C2=RC[-4])*(Tabelle2!R2C4:R150C4=“„X“")))>0,"„X“","""")"
Range(„W2“).Select

Selection.AutoFill Destination:=Range(„W2:W(n)“)

kommt die Fehlermeldung: laufzeitfehler ‚1004‘: Die Methode ‚Range‘ für das Objekt ‚_Global‘ ist fehlgeschlagen.

Was mache ich falsch?

Vielen Dank

#2

hallo Frischling,

Gebe ich folgendes ein
Range®.FormulaR1C1 = „=CountA(c[“ & s & „])“

*hmmh" Von mir aus kommt da kein Fehler, aber
c[" & s & "]
scheint mir seltsam zu sein.

(Bis hierhin habe ich es von einer anderen Antwort

Bei w-w-w? Kann mich an dieses Problem gar nicht erinnern.

und als
Message Box funktionierts auch tadellos)

Ich habe da meine Zweifel. Sicher, so wie du sagst wird die Messagebox irgednwas anzeigen, aber ich habe meine obigen Bedenken ob da alles korrekt läuft.

ActiveCell.FormulaR1C1 = _
„=IF((SUMPRODUCT((Tabelle2!R2C1:R150C1=RC[-21])*(Tabelle2!R2C2:R150C2=RC[-4])*(Tabelle2!R2C4:R150C4=“„X“")))>0,"„X“","""")"
Range(„W2“).Select

Hast du engl. Excel oder arbeitest du international mit deinen Excelmappen?

Wenn nicht, benutze Formulalocal, dann kannste die A1-Schreibweise benutzen. Kriegste es hin die Formel umzubauen?

Selection.AutoFill Destination:=Range(„W2:W(n)“)

kommt die Fehlermeldung: laufzeitfehler ‚1004‘: Die Methode
‚Range‘ für das Objekt ‚_Global‘ ist fehlgeschlagen.

Ich habe jetzt nicht so geschaut aber so kann das nix werden, probier mal:

Selection.AutoFill Destination:=Range(„W2:W“ &n)

Gruß
Reinhard