Registriert seit: 26.01.2015
Version(en): 2003
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
Registriert seit: 13.04.2014
Version(en): 365, 2019
Hallo,
dat is doch schong in mengem Code drin, musste numme lese!
Gruß
Edgar
Meine Antworten sind freiwillig und ohne Gewähr!
Über Rückmeldungen würde ich mich freuen.
Registriert seit: 26.01.2015
Version(en): 2003
(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
Registriert seit: 11.04.2014
Version(en): Office 2007
Hallo Angelina,
zeichne Dir das mit dem Makrorecorder auf. Dann hast Du den VBA-Code.
Gruß Stefan
Win 10 / Office 2016
Registriert seit: 26.01.2015
Version(en): 2003
(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
Registriert seit: 10.04.2014
Version(en): 2016 + 365
05.03.2015, 20:32
(Dieser Beitrag wurde zuletzt bearbeitet: 05.03.2015, 20:35 von Rabe.)
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!
Registriert seit: 26.01.2015
Version(en): 2003
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
Registriert seit: 17.04.2014
Version(en): MS Office 365(32)
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
Folgende(r) 1 Nutzer sagt Danke an Kuwer für diesen Beitrag:1 Nutzer sagt Danke an Kuwer für diesen Beitrag 28
• Angelina
Registriert seit: 26.01.2015
Version(en): 2003
hallo Kuwer ,
danke auch dir - das war meine Lösung
LG
Angelina