bartcorvers
Gebruiker
- Lid geworden
- 6 apr 2012
- Berichten
- 32
hallo iedereen, ik gebruik een combobox op een userform. Als de waarde van de combobox aangepast wordt verschijnt een inputbox welke naar een range op het werkblad vraagt.
De actie wordt correct uitgevoerd, echter indien ik op de Annuleerknop van de inputbox duw loopt de vba code vast. Wie kan mij helpen? Zie hieronder de vba code.
dank bij voorbaat Bart
De actie wordt correct uitgevoerd, echter indien ik op de Annuleerknop van de inputbox duw loopt de vba code vast. Wie kan mij helpen? Zie hieronder de vba code.
Code:
Private Sub ComboBox1_AfterUpdate()
Dim myRange As Range
Dim tekstwaarde As String
tekstwaarde = ComboBox1.Value
If tekstwaarde = Empty Then
Exit Sub
End If
Set myRange = Application.InputBox(prompt:="Kies cel op blad.", Type:=8) 'code loopt vast op deze regel indien myrange =nothing
myRange.Value = tekstwaarde
End Sub
Code:
Private Sub ComboBox1_Change()
Dim myRange As Range
Dim tekstwaarde As String
tekstwaarde = ComboBox1.Value
If tekstwaarde = Empty Then
Exit Sub
End If
Set myRange = Application.InputBox(prompt:="Kies cel op blad.", Type:=8)
myRange.Value = tekstwaarde
End Sub
dank bij voorbaat Bart
Laatst bewerkt door een moderator: