[Excel] Hernieuwde oproep voor macro

[Verwijderd]

Mensen,
Als ik XL opstart, en de benodigde worksheet, wil ik graag op de worksheet het form laten zien dat ik gemaakt heb in VBA. Het moet zeg maar een soort van extra invulveld zijn in de worksheet. Daarnaast wil ik ook gewoon kunnen werken in Excel zonder dat eerst dat Form ingevuld moet worden. Wie helpt me.
BVD

Bjorn

[mjax]

In de Document_Open sub van het betreffende Excel document voeg je de volgende code toe:

frmJouwForm.Show vmModeless

[Verwijderd]

Ik weet echt niet waar dat sub zit. Vertel me eens stap voor stap waar je dat invult.

Alvast bedankt.

[mjax]

- Excel starten
- Alt-F11
- Nu zie je links een treeview met daarin iets van "VBAProject (Map1)"
- Dubbelklik op "ThisWorkbook"
- Selecteer in de ComboBox waarin nu "(Algemeen)" staat de optie "Workbook"
- De betreffende Sub is nu aangemaakt, vul daarin de code zoals beschreven in mijn 1e reply

P.S. Ik vraag me af hoe je WEL een eigen UserForm kunt maken, maar niet bovenstaande zelf kunt uitzoeken...

[Verwijderd]

Ik vul het in, maar ik krijg geen form te zien. Ik zal het form en de module wel eens meesturen, dan kun je zien wat ik aan het doen ben.
-----------------------------------------------------------
Sub Document_Open()
frmUserForm1.Show vmModeless
End Sub

Private Sub Workbook_Open()

End Sub
------------------------------------------------------------
Sub kleur()
Dim Tijd As Integer
Tijd = UserForm1.TextBox1
Dim kolom, rij, waarde, waarde2 As Long
Dim rood, blauw, rood2, blauw2 As Integer
For rij = 1 To 30
waarde = Sheet2.Cells(rij, Tijd).Value
waarde2 = Sheet2.Cells(rij, Tijd + 6).Value
If waarde <= 8 And waarde >= -30 Then
blauw = -6.72 * (waarde -
rood = 255 - blauw
Sheet1.Cells(rij + 4, 4).Interior.Color = RGB(rood, 40, blauw)
Else
Sheet1.Cells(rij + 4, 4).Interior.Color = RGB(0, 0, 0)
End If
If waarde2 <= 8 And waarde2 >= -30 Then
blauw2 = -6.72 * (waarde2 -
rood2 = 255 - blauw2
Sheet1.Cells(rij + 4, 13).Interior.Color = RGB(rood2, 40, blauw2)
Else
Sheet1.Cells(rij + 4, 13).Interior.Color = RGB(0, 0, 0)
End If
Next rij
End Sub
--------------------------------------------------------
Private Sub Frame1_Click()

End Sub


Private Sub CommandButton1_Click()
Call kleur
End Sub

Private Sub CommandButton2_Click()
Unload UserForm1
End Sub
-----------------------------------------------------------
Wat moet ik doen ??

Ik wil het form op de sheet vertonen. Hoe doe ik dat. Ik heb gedaan wat je zei, maar het werkt niet.
Er gebeurt niets.

Bjorn

[mjax]

Op vrijdag 12 april 2002 11:09 schreef s402461 het volgende:
Sub Document_Open()
frmUserForm1.Show vmModeless
End Sub

Private Sub Workbook_Open()

End Sub

Ik zie dat je mijn eerste post wel erg letterlijk hebt genomen (was uit het hoofd). Je moet die aanroep naar Show verplaatsen naar de Workbook_Open Sub en dan zou het moeten werken.

[Verwijderd]

Hij geeft een run time error nummer 424, Object required. En de waarde van vmModeless=Empty. Wat moet ik nu doen?

Bjorn

[mjax]

Op vrijdag 12 april 2002 11:39 schreef s402461 het volgende:
Hij geeft een run time error nummer 424, Object required. En de waarde van vmModeless=Empty. Wat moet ik nu doen?

Bjorn

Excuse me, het is vbModeLess. Misschien handig om ook je eigen verstand een beetje te laten werken, i.p.v. alles door anderen te laten oplossen...

Overigens, om welke versie van Excel gaat het eigenlijk? Mijn code werkt alleen in 2000 of hoger. Daarvoor worden nog geen Modeless UserForms ondersteund naar mijn weten.

[Verwijderd]

Geeft nog steeds dezelfde foutmelding.

Bjorn

[chem]

Op vrijdag 12 april 2002 12:09 schreef s402461 het volgende:
Geeft nog steeds dezelfde foutmelding.

Bjorn

scp niet onder elke post je naam vermelden.

tevens hierbij de melding dat /14 geen helpdesk is. Als je zo doorgaat gaat dit topic dicht.

[Verwijderd]

Prima zal ik niet meer doen. En dit is geen helpdesk vraag, maar gewoon een vraag zoals dat hoort volgens mij op een forum...............