danny147
Terugkerende gebruiker
- Lid geworden
- 29 apr 2007
- Berichten
- 4.744
Beste,
Als ik op de knop wijzigen klik in de Userform wil hij de volgende regel niet uitvoeren
Bij controle van de code krijg ik dat If c (160) = ComboBox.2.Value ("160") Then
Volgens mij is 160 niet gelijk aan "160" ?
Hierbij de volledige code:
Het bestandje is te groot om het hier te plaatsen.
Als ik op de knop wijzigen klik in de Userform wil hij de volgende regel niet uitvoeren
Code:
Sheets("Reservatie_overzicht").Range("A" & c.Row) = ComboBox3.Value
Bij controle van de code krijg ik dat If c (160) = ComboBox.2.Value ("160") Then
Volgens mij is 160 niet gelijk aan "160" ?
Hierbij de volledige code:
Code:
Private Sub Wijzigen_Click()
Dim c As Range
If ComboBox3 <> "" Then
For Each c In Sheets("Reservatie_overzicht").Range("A6:A400")
If c = ComboBox2.Value Then
Sheets("Reservatie_overzicht").Range("A" & c.Row) = ComboBox3.Value
Sheets("Reservatie_overzicht").Range("B" & c.Row) = Txt_Afm
Sheets("Reservatie_overzicht").Range("C" & c.Row) = Txt_Beschr
Sheets("Reservatie_overzicht").Range("D" & c.Row) = Txt_Aanvrager
Sheets("Reservatie_overzicht").Range("E" & c.Row) = Txt_Datum
Sheets("Reservatie_overzicht").Range("F" & c.Row) = Txt_LK
Sheets("Reservatie_overzicht").Range("G" & c.Row) = Txt_Order1.Value
Sheets("Reservatie_overzicht").Range("G" & c.Row) = Txt_Order2.Value
Sheets("Reservatie_overzicht").Range("H" & c.Row) = Txt_Order3.Value
Sheets("Reservatie_overzicht").Range("I" & c.Row) = Txt_Omschr1
Sheets("Reservatie_overzicht").Range("J" & c.Row) = Txt_Omschr2
Sheets("Reservatie_overzicht").Range("K" & c.Row) = Txt_Omschr3
End If
Next
End If
ComboBox2.Value = ""
ComboBox3.Value = ""
Txt_Afm = ""
Txt_Beschr = ""
Txt_Aanvrager = ""
Txt_Datum = ""
Txt_LK = ""
Txt_Order1.Value = ""
Txt_Order2.Value = ""
Txt_Order3.Value = ""
Txt_Omschr1 = ""
Txt_Omschr2 = ""
Txt_Omschr3 = ""
End Sub
Het bestandje is te groot om het hier te plaatsen.