Discussion:
gevulde cellen tellen in een kolom
(te oud om op te antwoorden)
emile
2004-07-28 21:30:25 UTC
Permalink
ik weet bijna zeker dat we het al eens hebben behandeld
maar via zoeken kan ik hem niet vinden

in kolom B wil ik het aantal gevulde cellen weten
het aantal moet vervolgens in E1 geplaast worden

wie kan mij helpen??

emile
Quandan - Marcel Kreijne
2004-07-28 21:52:14 UTC
Permalink
Met de volgende formule in E1 moet dat lukken ;-)
=AANTALARG(B:B)

Met vriendelijke groet,

Marcel Kreijne
Quandan - steunpunt voor spreadsheetgebruikers
www.quandan.nl
Post by emile
ik weet bijna zeker dat we het al eens hebben behandeld
maar via zoeken kan ik hem niet vinden
in kolom B wil ik het aantal gevulde cellen weten
het aantal moet vervolgens in E1 geplaast worden
wie kan mij helpen??
emile
emile
2004-07-28 21:52:20 UTC
Permalink
peter
bedankt voor je snelle reaktie
ik was even vergeten te vertellen dat het in VBA moet
gebeuren het is een stukje code die ik in een macro wil
plaasten ( zie het vorige bericht, zoeken met combobox )

emile
-----Oorspronkelijk bericht-----
Post by emile
ik weet bijna zeker dat we het al eens hebben behandeld
maar via zoeken kan ik hem niet vinden
in kolom B wil ik het aantal gevulde cellen weten
het aantal moet vervolgens in E1 geplaast worden
wie kan mij helpen??
emile
__
= AANTALARG(B:B)
--
Peter
.
emile
2004-07-31 21:10:57 UTC
Permalink
toch nog wat hulp nodig

dit heb ik nu :

Private Sub CommandButton1_Click()
A = ComboBox1.Value
Sheets("namen_gereedschap").Cells.Find(What:=A).Select
aantal = [counta (selection)]
TextBox1.Value = aantal

End Sub

uitleg : in combox1 staat een lijst van gereedschappen
met commandbutton1 wil ik nu in rij 1 van
blad "gereedschap"( daar staan ook de gereedschapsnamen )
naar het juiste gereedschap zoeken en vervolgens in
textbox 1 het aantal weergeven ( onder het betreffende
gereedschapsnaam staan in een kolom verschillende
opmerkingen en aantallen ( ik hoef alleen maar het aantal
gevulde cellen te tellen
wat doe ik verkeerd???

emile
-----Oorspronkelijk bericht-----
Post by emile
peter
bedankt voor je snelle reaktie
ik was even vergeten te vertellen dat het in VBA moet
gebeuren het is een stukje code die ik in een macro wil
plaasten ( zie het vorige bericht, zoeken met combobox )
emile
-----Oorspronkelijk bericht-----
Post by emile
ik weet bijna zeker dat we het al eens hebben
behandeld
Post by emile
Post by emile
maar via zoeken kan ik hem niet vinden
in kolom B wil ik het aantal gevulde cellen weten
het aantal moet vervolgens in E1 geplaast worden
wie kan mij helpen??
emile
__
= AANTALARG(B:B)
--
Peter
.
__
helpt dit je verder?
Sub TelB()
aantal = [counta(B:B)]
End Sub
--
Peter
.
PeterS
2004-07-31 21:21:21 UTC
Permalink
Post by emile
toch nog wat hulp nodig
Private Sub CommandButton1_Click()
A = ComboBox1.Value
Sheets("namen_gereedschap").Cells.Find(What:=A).Select
aantal = [counta (selection)]
TextBox1.Value = aantal
End Sub
uitleg : in combox1 staat een lijst van gereedschappen
met commandbutton1 wil ik nu in rij 1 van
blad "gereedschap"( daar staan ook de gereedschapsnamen )
naar het juiste gereedschap zoeken en vervolgens in
textbox 1 het aantal weergeven ( onder het betreffende
gereedschapsnaam staan in een kolom verschillende
opmerkingen en aantallen ( ik hoef alleen maar het aantal
gevulde cellen te tellen
wat doe ik verkeerd???
emile
-----Oorspronkelijk bericht-----
Post by emile
peter
bedankt voor je snelle reaktie
ik was even vergeten te vertellen dat het in VBA moet
gebeuren het is een stukje code die ik in een macro wil
plaasten ( zie het vorige bericht, zoeken met combobox )
emile
-----Oorspronkelijk bericht-----
Post by emile
ik weet bijna zeker dat we het al eens hebben
behandeld
Post by emile
Post by emile
maar via zoeken kan ik hem niet vinden
in kolom B wil ik het aantal gevulde cellen weten
het aantal moet vervolgens in E1 geplaast worden
wie kan mij helpen??
emile
__
= AANTALARG(B:B)
--
Peter
.
__
helpt dit je verder?
Sub TelB()
aantal = [counta(B:B)]
End Sub
--
Peter
.
__
Gesteld dat (selection) in "CountA" echt staat voor de geselecteerde cellen.

Een van de beperkingen van de verkorte wijze is, dat er geen relatieve verwijzingen gebruikt mogen worden.

Hier dien je dus de volledige formule te gebruiken:
Application.WorksheetFunction.CountA(Selection)
--
Peter
emile
2004-07-31 21:50:27 UTC
Permalink
peter
je wijze raad toegepast en wat is het resultaat
hij telt de selectie ( de naam van het gereedschap ) is
dus 1
het is de bedoeling dat de naam wordt gevonden en
vervolgens in de betreffende kolom naar beneden wordt
geteld naar het aantal gevulde cellen
hoe doe ik dat??

emile
-----Oorspronkelijk bericht-----
Post by emile
toch nog wat hulp nodig
Private Sub CommandButton1_Click()
A = ComboBox1.Value
Sheets("namen_gereedschap").Cells.Find(What:=A).Select
aantal = [counta (selection)]
TextBox1.Value = aantal
End Sub
uitleg : in combox1 staat een lijst van gereedschappen
met commandbutton1 wil ik nu in rij 1 van
blad "gereedschap"( daar staan ook de
gereedschapsnamen )
Post by emile
naar het juiste gereedschap zoeken en vervolgens in
textbox 1 het aantal weergeven ( onder het betreffende
gereedschapsnaam staan in een kolom verschillende
opmerkingen en aantallen ( ik hoef alleen maar het
aantal
Post by emile
gevulde cellen te tellen
wat doe ik verkeerd???
emile
-----Oorspronkelijk bericht-----
Post by emile
peter
bedankt voor je snelle reaktie
ik was even vergeten te vertellen dat het in VBA
moet
Post by emile
Post by emile
gebeuren het is een stukje code die ik in een macro
wil
Post by emile
Post by emile
plaasten ( zie het vorige bericht, zoeken met
combobox )
Post by emile
Post by emile
emile
-----Oorspronkelijk bericht-----
Post by emile
ik weet bijna zeker dat we het al eens hebben
behandeld
Post by emile
Post by emile
maar via zoeken kan ik hem niet vinden
in kolom B wil ik het aantal gevulde cellen weten
het aantal moet vervolgens in E1 geplaast worden
wie kan mij helpen??
emile
__
= AANTALARG(B:B)
--
Peter
.
__
helpt dit je verder?
Sub TelB()
aantal = [counta(B:B)]
End Sub
--
Peter
.
__
Gesteld dat (selection) in "CountA" echt staat voor de
geselecteerde cellen.
Een van de beperkingen van de verkorte wijze is, dat er
geen relatieve verwijzingen gebruikt mogen worden.
Application.WorksheetFunction.CountA(Selection)
--
Peter
.
PeterS
2004-07-31 22:09:07 UTC
Permalink
Post by emile
peter
je wijze raad toegepast en wat is het resultaat
hij telt de selectie ( de naam van het gereedschap ) is
dus 1
het is de bedoeling dat de naam wordt gevonden en
vervolgens in de betreffende kolom naar beneden wordt
geteld naar het aantal gevulde cellen
hoe doe ik dat??
emile
Het vinden van de plaats van een gereedschap gaat bv. via:

Sheets("namen_gereedschap").Cells.Find(A).Select

regel = Selection.Row
kolom = Selection.Column

Aantal = Application.WorksheetFunction.CountA(Range(Cells(1, kolom), Cells(regel, kolom)))
--
Peter


Private Sub CommandButton1_Click()
Post by emile
Post by emile
A = ComboBox1.Value
Sheets("namen_gereedschap").Cells.Find(What:=A).Select
aantal = [counta (selection)]
TextBox1.Value = aantal
End Sub
emile
2004-07-31 22:28:58 UTC
Permalink
oke dus moet het zo zijn ??

Private Sub CommandButton1_Click()
A = ComboBox1.Value
Sheets("namen_gereedschap").Cells.Find(What:=A).Select
Aantal = Application.WorksheetFunction.Count(Rows("2:50"))
TextBox1.Value = Aantal
End Sub

dit werkt helaas maar een keer
als ik de combobox met een ander gereedschaps naam vul dan
blijft hij het vorige aantal aangeven
het lijkt wel of hij het onthoudt??

emile
-----Oorspronkelijk bericht-----
Post by emile
peter
je wijze raad toegepast en wat is het resultaat
hij telt de selectie ( de naam van het gereedschap ) is
dus 1
het is de bedoeling dat de naam wordt gevonden en
vervolgens in de betreffende kolom naar beneden wordt
geteld naar het aantal gevulde cellen
hoe doe ik dat??
emile
Sheets("namen_gereedschap").Cells.Find(A).Select
regel = Selection.Row
kolom = Selection.Column
Aantal = Application.WorksheetFunction.CountA(Range(Cells
(1, kolom), Cells(regel, kolom)))
--
Peter
Private Sub CommandButton1_Click()
Post by emile
Post by emile
A = ComboBox1.Value
Sheets("namen_gereedschap").Cells.Find(What:=A).Select
aantal = [counta (selection)]
TextBox1.Value = aantal
End Sub
.
PeterS
2004-07-31 22:54:42 UTC
Permalink
Post by emile
oke dus moet het zo zijn ??
Private Sub CommandButton1_Click()
A = ComboBox1.Value
Sheets("namen_gereedschap").Cells.Find(What:=A).Select
Aantal = Application.WorksheetFunction.Count(Rows("2:50"))
TextBox1.Value = Aantal
End Sub
dit werkt helaas maar een keer
als ik de combobox met een ander gereedschaps naam vul dan
blijft hij het vorige aantal aangeven
het lijkt wel of hij het onthoudt??
emile
Nee, hij houdt niet het laatste aantal vast.
Je telt steeds dezelfde cellen (2:50)
Waarom neem je nu niet gewoon de regel over zoals het er staat?
Of anders:

Private Sub CommandButton1_Click()
A = ComboBox1.Value
Sheets("namen_gereedschap").Cells.Find(What:=A).Select
Aantal = Selection.Row -1
TextBox1.Value = Aantal

'Of echt tellen:
'regel = Selection.Row
'kolom = Selection.Column
'Aantal = Application.WorksheetFunction. _
CountA(Range(Cells(1, kolom), Cells(regel, kolom)))

'TextBox1.Value = Aantal
End Sub


Peter
Post by emile
Post by PeterS
Sheets("namen_gereedschap").Cells.Find(A).Select
regel = Selection.Row
kolom = Selection.Column
Aantal = Application.WorksheetFunction.CountA(Range(Cells
(1, kolom), Cells(regel, kolom)))
Post by PeterS
--
Peter
emile
2004-08-01 21:05:14 UTC
Permalink
sorry peter

ik heb nu beide code's exact over genomen
de eesrte code geeft als resultaat 0
terwijl er 4 cellen in die kolom zijn gevuld

de tweede code geeft het resultaat 1

weet jij nog een andere oplossing??

emile
-----Oorspronkelijk bericht-----
Post by emile
oke dus moet het zo zijn ??
Private Sub CommandButton1_Click()
A = ComboBox1.Value
Sheets("namen_gereedschap").Cells.Find(What:=A).Select
Aantal = Application.WorksheetFunction.Count(Rows
("2:50"))
Post by emile
TextBox1.Value = Aantal
End Sub
dit werkt helaas maar een keer
als ik de combobox met een ander gereedschaps naam vul
dan
Post by emile
blijft hij het vorige aantal aangeven
het lijkt wel of hij het onthoudt??
emile
Nee, hij houdt niet het laatste aantal vast.
Je telt steeds dezelfde cellen (2:50)
Waarom neem je nu niet gewoon de regel over zoals het er
staat?
Private Sub CommandButton1_Click()
A = ComboBox1.Value
Sheets("namen_gereedschap").Cells.Find(What:=A).Select
Aantal = Selection.Row -1
TextBox1.Value = Aantal
'regel = Selection.Row
'kolom = Selection.Column
'Aantal = Application.WorksheetFunction. _
CountA(Range(Cells(1, kolom), Cells(regel, kolom)))
'TextBox1.Value = Aantal
End Sub
Peter
Post by emile
Post by PeterS
Het vinden van de plaats van een gereedschap gaat bv.
Sheets("namen_gereedschap").Cells.Find(A).Select
regel = Selection.Row
kolom = Selection.Column
Aantal = Application.WorksheetFunction.CountA(Range
(Cells
Post by emile
(1, kolom), Cells(regel, kolom)))
Post by PeterS
--
Peter
.
PeterS
2004-08-01 21:52:14 UTC
Permalink
Post by emile
sorry peter
ik heb nu beide code's exact over genomen
de eesrte code geeft als resultaat 0
terwijl er 4 cellen in die kolom zijn gevuld
de tweede code geeft het resultaat 1
weet jij nog een andere oplossing??
emile
Nee, Emile, dan houdt m'n kennis een beetje op, ben ik bang.
Als je wilt kun je 't me even mailen.

naar: info At schnitzler.nl
--
Peter
Post by emile
-----Oorspronkelijk bericht-----
Post by emile
oke dus moet het zo zijn ??
Private Sub CommandButton1_Click()
A = ComboBox1.Value
Sheets("namen_gereedschap").Cells.Find(What:=A).Select
Aantal = Application.WorksheetFunction.Count(Rows
("2:50"))
Post by emile
TextBox1.Value = Aantal
End Sub
dit werkt helaas maar een keer
als ik de combobox met een ander gereedschaps naam vul
dan
Post by emile
blijft hij het vorige aantal aangeven
het lijkt wel of hij het onthoudt??
emile
Nee, hij houdt niet het laatste aantal vast.
Je telt steeds dezelfde cellen (2:50)
Waarom neem je nu niet gewoon de regel over zoals het er
staat?
Private Sub CommandButton1_Click()
A = ComboBox1.Value
Sheets("namen_gereedschap").Cells.Find(What:=A).Select
Aantal = Selection.Row -1
TextBox1.Value = Aantal
'regel = Selection.Row
'kolom = Selection.Column
'Aantal = Application.WorksheetFunction. _
CountA(Range(Cells(1, kolom), Cells(regel, kolom)))
'TextBox1.Value = Aantal
End Sub
Peter
Post by emile
Post by PeterS
Het vinden van de plaats van een gereedschap gaat bv.
Sheets("namen_gereedschap").Cells.Find(A).Select
regel = Selection.Row
kolom = Selection.Column
Aantal = Application.WorksheetFunction.CountA(Range
(Cells
Post by emile
(1, kolom), Cells(regel, kolom)))
Post by PeterS
--
Peter
.
__
Luc Heyndrickx
2004-07-28 22:01:11 UTC
Permalink
Emile:

Application.WorksheetFunction.CountA(Range("B:B"))

Luc
Post by emile
ik weet bijna zeker dat we het al eens hebben behandeld
maar via zoeken kan ik hem niet vinden
in kolom B wil ik het aantal gevulde cellen weten
het aantal moet vervolgens in E1 geplaast worden
wie kan mij helpen??
emile
Johan
2004-07-29 15:44:14 UTC
Permalink
Geeft de syntax van beide hetzelfde resultaat?
"aantal = [counta(B:B)]" en
"aantal = Application.WorksheetFunction.CountA(Range("B:B"))"
En waar vind men dan uitleg over het gebruik van bv die vierkante haken?
Ik vind dit niet in de help van Excel terug.
PeterS
2004-07-29 16:13:30 UTC
Permalink
Post by Johan
Geeft de syntax van beide hetzelfde resultaat?
"aantal = [counta(B:B)]" en
"aantal = Application.WorksheetFunction.CountA(Range("B:B"))"
En waar vind men dan uitleg over het gebruik van bv die vierkante haken?
Ik vind dit niet in de help van Excel terug.
__
Ja, hoor.

Resultaat is identiek.
een heeel klein stukje over de verkorte notatie vond ik in help onder

Verwijzen naar cellen met de korte notatie
Voorts is het een kwestie van veel experimenteren.
(Soms gaat het wel, soms ook niet)
--
Peter
Loading...