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
Hallo,
dat is doch schong in mengem Code drin, musste numme lese!
(05.03.2015, 18:07)BoskoBiati schrieb: [ -> ]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
Hallo Angelina,
zeichne Dir das mit dem Makrorecorder auf. Dann hast Du den VBA-Code.
(05.03.2015, 20:11)Steffl schrieb: [ -> ]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
Hi Angelina,
(05.03.2015, 20:22)Angelina schrieb: [ -> ]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!
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
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
hallo Kuwer ,
danke auch dir - das war meine Lösung
LG
Angelina