Frage / =ANZAHL / wie in VBA schreiben?

[Angelina]

hallo an @,

In Spalte GC schreibe ich die Formel =ANZAHL(DW1:FS1)

dann ziehe ich dies runter bis in Spalte DT kein Eintrag
mehr vorhanden ist.

 Nun die Frage - wie schreibe ich das in VBA für Excel 2003 ?


LG
Angelina

[BoskoBiati]

Hallo,

dat is doch schong in mengem Code drin, musste numme lese!

[Angelina]

Hallo,

dat is doch schong in mengem Code drin, musste numme lese!

hallo,

ja ... hm.... wo

In Spalte GC schreibe ich die Formel =ANZAHL(DW1:FS1)

Also in Spalte GC soll angezeigt werden wieviel Zahlen im Bereich DW1:FS1 stehen
dann runterziehen bis in Spalte DT kein Eintrag mehr ist. Nur als VBA

LG
Angelina

[Steffl]

Hallo Angelina,

zeichne Dir das mit dem Makrorecorder auf. Dann hast Du den VBA-Code.

[Angelina]

Hallo Angelina,

zeichne Dir das mit dem Makrorecorder auf. Dann hast Du den VBA-Code.

hallo Steffl,

danke für deine Rückmeldung.

Ja - aber das ist ja nur ein Teil

Selection.AutoFill Destination:=Range("GC1:GC20"), Type:=xlFillDefault

Dazu muss in GC1 die Formel vorhanden sein
=ANZAHL(DW1:FS1)

Und das ist sie eben am Anfang nicht.

Desweiteren soll es in Abhängigkeit der Spalte DT sein - die gibt an was die letzte Zeile ist.

LG
Angelina

[Rabe]

Hi Angelina,

Dazu muss in GC1 die Formel vorhanden sein
=ANZAHL(DW1:FS1)

Und das ist sie eben am Anfang nicht.

na, dann schreibe sie halt während des Aufzeichnens am Anfang ganz einfach in die Zelle GC1 rein.

Problem gelöst!

[Angelina]

hallo Rabe,

danke für deine Info

PHP-Code:

   Range("GC1").Select
    ActiveCell.FormulaR1C1 = "=COUNT(RC[-58]:RC[-10])"
    Selection.AutoFill Destination:=Range("GC1:GC20"), Type:=xlFillDefault
    Range("GC1:GC20").Select 


Und die Abhängigkeit zur Spalte DT
die besagt was die letzte Zeile ist ?

Wie baue ich die in die Aufzeichnung ein?

LG
Angelina

[Kuwer]

Hallo Angelina,

das Autofill braucht es nicht unbedingt:

Code:

Sub Formel_In_GC()
 With ActiveSheet
   .Range(.Cells(1, 185), .Cells(.Cells(.Rows.Count, 124).End(xlUp).Row, 185)).Formula = "=COUNT(DW1:FS1)"
 End With
End Sub

Gruß Uwe

[Angelina]

hallo Kuwer ,




danke auch dir - das war meine Lösung




LG
Angelina