title image


Smiley Re: Maximum mit VBA
Hallo



Dein Code "weiss" nicht, auf welches Sheet er sich beziehen soll

Ist es das ActiveSheet, geht's so:



With ActiveSheet

WorksheetFunction.Max (.Range(.Cells(DB_AZeile, 4), .Cells(DB_LZeile, 4)))

End With



Natürlich kannst Du das Sheet auch direkt referenzieren:



With Workbooks("MappeX.xls").Sheets("Tabelle1")

MsgBox WorksheetFunction.Max(.Range(.Cells(DB_AZeile, 4), .Cells(DB_LZeile, 4)))

End With



Satt mit With / End With kannst Du mit Set arbeiten:

Set sh1 = Workbooks("MappeX.xls").Sheets("Tabelle1")

MsgBox WorksheetFunction.Max(sh1.Range(sh1.Cells(DB_AZeile, 4), sh1.Cells _

DB_LZeile, 4)))


Viele Grüße aus Langen (Hessen),
           "Quinoman"
Michael


Bei Lösungsvorschlägen bitte das Feedback nicht vergessen. Ich (und oft auch andere) möchte gerne wissen, ob etwas geholfen/geklappt hat.



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: