cel invulln

[gerenmarly]

Hallo
in zit met een vraag
Ik wil cellen in laten vullen aan de hand van tekst

Cel G5 moet bij "platen' 1 worden en bij "rollen" leeg blijven en zelf in te vullen zijn

Cel G7 moet bij "platen" leeg blijven en zelf in te vullen zijn en bij "rollen" 0 zijn

Kan dit zie voorbeeld

BVD
Groetjes Ger

 

[Cobbe]

Is het zo iets dat je zoekt?

 

[gerenmarly]

Hoy Cobbe

er hoeft geen pop-up te komen voor wat ik wil invullen
en bij G7 moet bij rollen 0 zijn

Ger

 

[Cobbe]

Ge zijt braaf lastig.

 

[gerenmarly]

Hoi Cobbe
Dit is precies zoals ik bedoelde
Maar nu moet ik het nog in het origineel bestand invoegen
maar ik zie niet de code of formule hoe het gedaan is om deze dan in het origineel toe te passen

PS sorry voor de late reactie, ben net terug van mijn werk

Ger

 

[Cobbe]

Dit is de code die daar voor verantwoordelijk is:

Private Sub ComboBox1_Change()
 Range("G5,G7").ClearContents
  If ComboBox1 = "Platen" Then [G5] = 1: [G7] = ""
   If ComboBox1 = "Rollen" Then [G5] = "": [G7] = 0
End Sub

Via ALT-F11 kom je in de VBE waar achter Blad1 deze code hangt.

 

[gerenmarly]

Hoi Cobbe

bedankt ik had hem niet gezien omdat het venster heel smal was
ik ga deze nu in het origineel toepassen

Ger