2.versuch brauche dringend hilfe

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


Excel-Version: 10.0 (Office XP)
nach unten

Betrifft: 2.versuch brauche dringend hilfe
von: bernd
Geschrieben am: 25.06.2002 - 19:59:05

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: 2.versuch brauche dringend hilfe
von: Roland Köstring
Geschrieben am: 25.06.2002 - 20:17:45

Hallo Bernd,
versuche es wie folgt:
Sub Zaehle_Spalten
dim i as integer
dim anzsp as integer
for i = 1 to 256
if cells(2,i) <> "" then
anzsp = anzsp + 1
endif
next i
msgbox "Anz.Spal=" anzsp
End Sub
Gruss Roland
nach oben   nach unten

Re: 2.versuch brauche dringend hilfe
von: Rolf, Lgh.
Geschrieben am: 25.06.2002 - 20:24:53

Hallo Bernd,
so?

Sub Zaehlen2()
  MsgBox WorksheetFunction.CountA(Rows(2))
End Sub

Gruß Rolf
PS: Bitte FAQ beachten!

nach oben   nach unten

vielen lieben dank für die hilfe
von: bernd
Geschrieben am: 25.06.2002 - 21:49:41

mfg
bernd

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Fuer absolute Profis - bedingter Druckauftrag"