Vielen Dank,
Daniel
das ist die gleiche Syntax wie die Funktion "Anzahlleerezellen"
Application.WorksheetFunction.CountBlank(Range("A1:A10"))
Zählt alle Leere Zellen im Bereich von A1 : A10
Gruss Rainer
Gruß
RAnton
In Spalte A sind mehrehre Einträge die aber nicht aufeinanderfolgen (aus einem guten Grund ;)
Durch eine For schleife kombiniert mit isempty wird Spalte A durchsucht. If Not IsEmpty dann soll ermittelt werden wieviele leere zellen in der Spalte liegen vor der nächsten nichtleeren Zelle
Spalte A sieht so aus
A
nichtleer
leer
leer
leer
nichtleer
leer
leer
nichtleer
nichtleer
leer
nichtleer
...
...
Danke für die Hilfe!
range("A1",range("A1").End(xlDown)).Select
kannst du immer einen Berich selectieren der entweder belegt ist oder falls du auf der letzten belegten Zelle bist, wird der Bereich bis zur nächsten wieder belegten Zelle markiert.
Das müsste dir eigentlich schon weiterhelfen.
Gruß
RAnton
vielleicht hift dir das:
Ein Schnellschuß, vielleicht ein bischen umständlich
Gruß
Holger
Vielen Dank :)
tot = Application.WorksheetFunction.CountBlank(Range("A" & ActiveCell.Row + 1, Range("A" & ActiveCell.Row + 1).End(xlUp)))
ActiveCell.FormulaR1C1 = "=SUM(R[-tot]C:R[-1]C)"
glaube dass die tot Zeile jetzt stimmt. Stimmt vielleicht etwas nicht mit der einfachen SummenFormel??
du fügst die Variable direkt in die Formel ein.
Damit kann EXCEL nichts anfangen
ActiveCell.FormulaR1C1 = "=SUM(R[-" & tot & "]C:R[-1]C)"
Das sollte gehen.
Gruss Rainer
hoffe auch mal so ein profi wie du zu sein ;) bin leider nochn newbie der sich erst seit 2 wochen mit visual basic und excel beschäftigt :)
nochmals Danke,
Daniel
die Variablen a1,a2,b1,b2 dürfen nicht als String definiert werden, sondern als Integer oder Long.
Sorry
Holger