Celleobjekt som input i funksjonsmakro..

[doofhetz]

Ønsker å lage en funksjon som tar en celle som input.

Funksjonen skal hente verdien, kolonnen og raden til cellen som taes som input.

Dette får jeg ikke til å fungere, og får noe feilmelding om object etellerannet.

 

Altså ønsker en funksjon ala

Function test(encelle)

verdi = encelle.value

kolonne = encelle.column

rad = encelle.row

 

Er dette mulig i det hele tatt? Man kan jo ikke vite at verdien som gies som input i funksjonsmakroen er en celle eller om det bare er et tall eller lignende.

 

 

På forhånd takk for hjelp.

[Harald Staff]

Regner med du skal bruke funksjonen i VBA ? Regnearkfunksjoner har ikke lett for å returnere mer enn ett enkelt svar.

 

Celleobjektet i VBA heter Range. Range er en eller flere celler. Bruk derfor parentes (1) som vist i koden, så brukes øverste venstre celle i området ved flere, ellers feiler value, row og column.

 

Her er en enkel løsning med Type. Bruk heller en klasse når det blir alvor.

 

Type CelleInfo

Verdi As Variant

Kolonne As Long

Rad As Long

End Type

 

Function CelleAnalyse(encelle As Range) As CelleInfo

CelleAnalyse.Verdi = encelle(1).Value

CelleAnalyse.Kolonne = encelle(1).Column

CelleAnalyse.Rad = encelle(1).Row

End Function

 

Sub test()

Dim MinCelle As Range

Dim MinInfo As CelleInfo

 

Set MinCelle = Sheets(1).Range("B5")

 

MinInfo = CelleAnalyse(MinCelle)

 

MsgBox MinInfo.Verdi

MsgBox MinInfo.Kolonne

MsgBox MinInfo.Rad

End Sub

 

HTH. Beste hilsen Harald