Fehlermeldung Excel VBA

Wandelröschen · 19.04.2005

Hallo VBA-Profis,

Erkennt jemand den Fehler in diesem Code? Laufzeitfehler 9.
Was bedeutet Laufzeitfehler 9. Wie kann ich diese Fehler beheben?

Sub SumMessage()
'
Dim AWF As WorksheetFunction
Dim rngArea As Range

Set AWF = Application.WorksheetFunction
Set rngArea = Worksheets(AWF).Range(A1:A10)

MsgBox AWF.Sum(rngArea)
End Sub

Ich möchte mich schon im Voraus bedanken.
Gruß
Silke

ReinerZ · 23.04.2005

Hallo Silke,

versuchs mal mit folgendem Code:

Code:

Sub SumMessage()
'
    Dim AWF As WorksheetFunction
    Dim rngArea As Range
    
    Set AWF = Application.WorksheetFunction
    on error resume next
    Set rngArea = Worksheets(AWF).Range(A1:A10)
   -> Hier Code aendern...
    if err.Number > 0 then 
     call MsgBox(Error:  &amp; err.Number &amp; ,  &amp; err.Description)   
    end if 
   -> ---
    MsgBox AWF.Sum(rngArea)
End Sub

Der Fehler ist damit nicht behoben, aber VBA sagt dir dann,
was du evtl. falsch gemacht hast!

Gruss

Reiner

Wandelröschen · 23.04.2005

Hallo Reiner,

Besten Dank für deine Hilfe. Ich habe es sofort ausprobiert
und es funktioniert. Nochmals Danke.

Ich wünsche dir noch ein schönes und erholsames Wochenende.

Gruß
Silke

Fehlermeldung Excel VBA

Wandelröschen

ReinerZ

Wandelröschen

Fehlermeldung Excel VBA

ANGEBOTE & SPONSOREN

Neueste Themen

Statistik des Forums