Das Clever-Excel-Forum.de - Treffen
findet vom 15. - 17. September 2017 in Friedrichroda /
Thüringen / Region Großer Inselsberg statt. Hotelbuchung ab sofort möglich.

Frage / =ANZAHL / wie in VBA schreiben?
#1
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
to top
#2
Hallo,

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


Opa Edgar

Meine Antworten sind freiwillig und ohne Gewähr!
Über Rückmeldungen würde ich mich freuen.
to top
#3
(05.03.2015, 18:07)BoskoBiati schrieb: Hallo,

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

hallo,

ja ... hm.... wo Huh

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
to top
#4
Hallo Angelina,

zeichne Dir das mit dem Makrorecorder auf. Dann hast Du den VBA-Code.
Gruß Stefan
Win 7 / Office 2007
to top
#5
(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
to top
#6
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!
Gruß Ralf

?mage

Die deutsche Rechtschreibung ist Freeware, d.h. du kannst sie kostenlos nutzen.
Allerdings ist sie nicht Open Source, deswegen darfst du sie nicht verändern oder in veränderter Form veröffentlichen.
to top
#7
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
to top
#8
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 Benutzer sagt Danke an Kuwer für diesen Beitrag:
Angelina
to top
#9
hallo Kuwer ,




danke auch dir - das war meine Lösung




LG
Angelina
to top


Möglicherweise verwandte Themen...
Thema Verfasser Antworten Ansichten Letzter Beitrag
  VBA suchen und schreiben automatisiert tw3aker 36 987 23.02.2017, 10:45
Letzter Beitrag: tw3aker
  VBA: Daten von einer in andere Datei schreiben DrWahnsinn 11 215 14.02.2017, 14:09
Letzter Beitrag: tw3aker
  VBA - in Arbeitsmappe Schreiben ohne diese auszuwählen Sebastian8029 2 116 04.02.2017, 17:48
Letzter Beitrag: Sebastian8029
  Makro Suchen und Wert in vorhandene Tabelle schreiben mvn 3 162 31.01.2017, 18:03
Letzter Beitrag: schauan
  Datumsbereich addieren und in Label schreiben tmessers 5 252 25.01.2017, 20:59
Letzter Beitrag: steve1da
  Text per Makro in Zeile schreiben Hawkeye 17 705 22.12.2016, 08:49
Letzter Beitrag: Hawkeye
  Textbox Inhalt einer Userform in eine bestimmte Zelle schreiben - VBA - Hiiilfe Chris1112 9 392 20.12.2016, 10:21
Letzter Beitrag: Rabe
  Formel für: Kosten durch die aktuelle Anzahl der Tage des Monats * die Anzahl der ... User255 10 465 18.11.2016, 14:43
Letzter Beitrag: BoskoBiati
  Formel kürzer schreiben coemm 5 233 13.11.2016, 19:47
Letzter Beitrag: BoskoBiati
  Daten nach Entscheidung in anderes Blatt schreiben appelschnut 5 265 27.10.2016, 17:03
Letzter Beitrag: appelschnut

Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste