Avatar billede cooraz Nybegynder
05. maj 2011 - 10:18 Der er 5 kommentarer og
1 løsning

problemer med do loop i excel vba

jeg har et problem med en do loop i excel...

når jeg kører koden giver den Runtime error 1004 - application defined or object-defined error

min kode ser sådan ud:

Sub histogram()

Dim NoRows As Integer
NoRows = 0

Do Until IsEmpty(ActiveCell)


Do While (ActiveCell.Text = ActiveCell.Offset(-1, 0).Text)

NoRows = NoRows + 1

Loop

ActiveCell.Offset(0, 2).Value = NoRows

ActiveCell.Offset(1, 0).Select
Loop

End Sub


det er denne linje der er fejl ved:
Do While (ActiveCell.Text = ActiveCell.Offset(-1, 0).Text)

jeg har også prøvet med .Value i stedet for .Text men uden held... hvad er det jeg gør forkert?
Avatar billede Mads Larsen Nybegynder
05. maj 2011 - 10:30 #1
Do While (ActiveCell.Text = ActiveCell.Offset(-1, 0).Text)

Den flytter ikke cellen, så det er den samme celle den tester på, og så bliver NoRows for højt et tal til integer :)
Avatar billede cooraz Nybegynder
05. maj 2011 - 10:32 #2
den siger det samme hvis jeg indsætter:
ActiveCell.Offset(1, 0).Select

i loopen
Avatar billede tjp Mester
05. maj 2011 - 10:57 #3
Er det ikke fordi du starter i første række og derved prøver at læse række 0 med ActiveCell.Offset(-1, 0).Text?
Avatar billede Mads Larsen Nybegynder
05. maj 2011 - 11:02 #4
Tror du har ret tjp, :) det var en anden fejl jeg fik frem da jeg testede.
Avatar billede cooraz Nybegynder
05. maj 2011 - 11:03 #5
det har du nok ret i...
har lavet det på en anden måde som virker bare smid svar så kan du få point
Avatar billede cooraz Nybegynder
20. juli 2011 - 10:26 #6
hhh
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester