hilfe!! wie kann ich mittels vba spalten zählen?

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox


Excel-Version: 2002
nach unten

Betrifft: hilfe!! wie kann ich mittels vba spalten zählen?
von: bernd
Geschrieben am: 25.06.2002 - 17:35:16

hallo zusammen,

stehe geradevöllig neben mir.
ich habe ein tabellenblatt mit x- spalten.
nun möchte ich mittels vba ermitteln, wieviel spalten auf basis der 2.zeile in dem tabellenblatt mit inhalt gefüllt sind.
in excel würde ich das mittels " anzahl2(2:2) machen.

vielen dank im vorraus.

mfg
bernd

nach oben   nach unten

Re: hilfe!! wie kann ich mittels vba spalten zählen?
von: Stefan Teschendorff
Geschrieben am: 25.06.2002 - 21:34:48

Hallo Bernd,
Ich hätte da event. etwas für dich.

Sub zählen()
zeile = 2 ' Hier die für die Auswertung benutzte Zeile
treffer = 0 ' Ist ein Zähler für die ausgefüllten Zellen
start = 0 ' Hier wird die Startspalte defeniert ( 0=A, 1=B u.s.w. )
ende = 255 ' Hier wird das Endespalte defeniert (255 = IV )
' Da ich lieder Excel2002 nicht kenne ist mir die Endspalte
' nicht bekannt in Excel97 sind es nur 0 - 255 Spalten
For r = start To ende
Range("A" & zeile).Offset(0, start + r).Select
inh1 = ActiveCell
If inh1 <> "" Then treffer = treffer + 1
Next r
MsgBox ("Belegte Zellen in Zeile : " & zeile & " / " & treffer & " Stück")
End Sub

Ich hoffe es hilft dir.

Cu Stefan

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "hilfe!! wie kann ich mittels vba spalten zählen?"