09. december 2003 - 12:05Der er
7 kommentarer og 1 løsning
Skriv til celle!
Jeg kan SIMPELTHEN ikke få min excel-vba til at skrive noget ud til mit regneark andet en lige præcis værdien af min function i den celle, hvor jeg kalder den.
Men i min function vil jeg gerne have skrevet nogle af værdierne ud til andre celler.
Sub Makro1() If Femtabel(5) = True Then MsgBox "Det gik godt" Else MsgBox "Det gik skidt" End If End Sub
Private Function Femtabel(antal) As Boolean Dim i As Integer On Error GoTo ErrLabel Femtabel = True For i = 1 To antal Cells(i, 1).Value = i * 5 Next i Exit Function ErrLabel: Femtabel = False End Function
prøv så at kalde den med kriterier i en celle, som man normalt bruger en funktion,
Virker den så
Function Femtabel(antal) As Boolean Dim i As Integer On Error GoTo ErrLabel Femtabel = True For i = 1 To antal Cells(i, 1).Value = i * 5 Next i Exit Function ErrLabel: Femtabel = False End Function
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.
