kolom count

[nout]

vba experts,

Ik heb een programma wat werkt echter nu vul ik het aan om de kolomen te tellen en krijg ik daar een foutmelding van.
zie onderstaande kolombereik.

Set rijbereik = Range("C6:C" & Cells(Rows.Count, 3).End(xlUp).Row).Cells
aantalrijen = rijbereik.Rows.Count

Set kolombereik = Range("C6:6" & Cells(6, Columns.Count).End(xlToLeft).Column).Cells"
aantalkolomen = kolombereik.Columns.Count
Range("A10") = aantalkolomen

Weet iemand wat ik verkeerd doe?

Bij voorbaat dank,

Nout

 

[Warme bakkertje]

Sub tst()
Set rijbereik = Range("C6:C" & Cells(Rows.Count, 3).End(xlUp).Row)
aantalrijen = rijbereik.Rows.Count

Set kolombereik = Range(Cells(6, 3).Address & ":" & Cells(6, Columns.Count).End(xlToLeft).Address)
aantalkolommen = kolombereik.Columns.Count

MsgBox "Rijen in bereik: " & Space(11) & aantalrijen & vbLf & vbLf & "Kolommen in bereik: " & aantalkolommen
 
End Sub

 

[nout]

bedankt rudi

kun je uitleggen waarom er nu bij het tellen van de kolommen adress etc bij komt, ik zou verwachten dat het gelijk (omgekeerd) zou moeten zijn als de regel voor de count van de regels.

alvast bedankt.

nout

 

[snb]

of

sub snb()
  with cells(5,3).currentregion
    msgbox .rows.count & " rijen en  " & .columns.count & " kolommen"
  end with
end sub