Macro runnen in Excel

[Verwijderd]

Beste mensen,

ik ben bezig met een macro te maken in Excel. Deze bestaat uit een Module en een Form.Ik heb echter een aantal vragen. Ik wilde deze beide onderdelen samenvoegen tot een macro, en automatisch openen in de worksheet. Daarnaast moet de ingevulde waarde in het Form gebruikt worden in de Module. Hoe lees ik deze uit, en hoe doe ik bovenstaande ? Wie kan me helpen? Ben net begonnen met VBA, dus weet er nog vrij weinig van. Alvast bedankt.

Bjorn

PS: De Code ziet er zo uit

Sub Auto_Open()

Load UserForm1
UserForm1.Show

End Sub

Sub kleur()
Dim kolom, rij, waarde As Long
Dim rood, blauw As Integer
For rij = 1 To 30
For kolom = 1 To 2
waarde = Sheet2.Cells(rij, kolom).Value
If waarde <= 8 And waarde >= -30 Then
rood = -6.72 * (waarde -
blauw = 255 - rood
Sheet1.Cells(rij + 4, kolom + 3).Interior.Color = RGB(rood, 0, blauw)
Else
Sheet1.Cells(rij + 4, kolom + 3).Interior.Color = RGB(0, 0, 0)
End If
Next kolom
Next rij
End Sub

[Verwijderd]

Wat wil je nu precies door de gebruiker laten invullen op een formulier?

het uitlezen van een formulier is heel eenvoudig en gaat als volgt:

Dim Iets as string

Iets = userform1.textbox1

Vervolgens kun je die variable iets als een string gebruiken.

Op het formulier maak je een knop die je bijvoorbeeld: commandbutton1 noemt. Je hangt dan de volgende code aan de volgende procedure:

sub Commandbutton1_Click

call Kleur

End sub

[jjbstolk]

Op donderdag 11 april 2002 09:49 schreef s402461 het volgende:
Beste mensen,

ik ben bezig met een macro te maken in Excel. Deze bestaat uit een Module en een Form.Ik heb echter een aantal vragen. Ik wilde deze beide onderdelen samenvoegen tot een macro, en automatisch openen in de worksheet. Daarnaast moet de ingevulde waarde in het Form gebruikt worden in de Module. Hoe lees ik deze uit, en hoe doe ik bovenstaande ? Wie kan me helpen? Ben net begonnen met VBA, dus weet er nog vrij weinig van. Alvast bedankt.

Bjorn

PS: De Code ziet er zo uit

Sub Auto_Open()

Load UserForm1
UserForm1.Show

End Sub

Sub kleur()
Dim kolom, rij, waarde As Long
Dim rood, blauw As Integer
For rij = 1 To 30
For kolom = 1 To 2
waarde = Sheet2.Cells(rij, kolom).Value
If waarde <= 8 And waarde >= -30 Then
rood = -6.72 * (waarde -
blauw = 255 - rood
Sheet1.Cells(rij + 4, kolom + 3).Interior.Color = RGB(rood, 0, blauw)
Else
Sheet1.Cells(rij + 4, kolom + 3).Interior.Color = RGB(0, 0, 0)
End If
Next kolom
Next rij
End Sub

het form automatisch openen als je het excel bestand opent dan kan als je in VBA (openen met Alt-F11) en dan in Thisworkbook
Load formnaam
of
Show formnaam
Verder weet ik eht effe niet

[Verwijderd]

Ik wil graag het Form in Excel laten openen samen met mijn sheet, en dan de ingevoerde data uitlezen en verwerken in module kleur. Het moet dan wel een macro worden neem ik aan.

Hoe moet ik dat doen.

Bjorn