Als ik mijn datum opvraagvan mijn werkblad(24/11/2012) in mijn userform krijg ik deze zo (24-11-2012) in mijn userfrom te zien .
Wanneer ik deze dan terus opsla naar mijn werkblad komt deze dan ook zo (24-11-2012) in mijn werkblad terug en dan werkt de voorwaardelijke opmaak niet meer omdat deze gebruik maakt van
siriële getallen ik gebruik volgende code :
Om mijn gegevens op tezoeken en weer opteslaan, wat moet ik veranderen mijn datum staat in kolom I en J dat is een begin en eind datum
Wanneer ik deze dan terus opsla naar mijn werkblad komt deze dan ook zo (24-11-2012) in mijn werkblad terug en dan werkt de voorwaardelijke opmaak niet meer omdat deze gebruik maakt van
siriële getallen ik gebruik volgende code :
Om mijn gegevens op tezoeken en weer opteslaan, wat moet ik veranderen mijn datum staat in kolom I en J dat is een begin en eind datum
Private Sub Opslaan_Click()
Dim code As Range
With Worksheets("Planning")
Set code = .Range("A:AA").Find(ComboBox4.Value, LookIn:=xlValues, Lookat:=xlWhole)
For i = 2 To 15
.Cells(code.Row, i) = Me("TextBox" & i)
Next
End With
End Sub
Private Sub Opzoeken_Click()
Dim code As Range
With Worksheets("Planning")
Set code = .Range("A:L").Find(ComboBox4.Value, LookIn:=xlValues, Lookat:=xlWhole)
For i = 2 To 15
Me("TextBox" & i) = .Cells(code.Row, i)
Next
End With
End Sub
Laatst bewerkt: