Ik heb een stukje code die de datum dmv een combobox vind in een sheet
Ik zou dit ook met text/namen willen doen en dat wil maar niet lukken
De code die werkt met de datum:
[Private Sub CommandButton3_Click()
Dim Datums As Range, Datum As Range, TempDatum As Date
Set Datums = ActiveSheet.Range("C1:C400")
'dim c as range
Dim c As Range
TempDatum = CDate(DTPicker1)
For Each Datum In Datums
If Datum = TempDatum Then Exit For
Next Datum
If Datum Is Nothing Then
MsgBox (DTPicker1.Value & " is niet gevonden, ")
Else
'Datum.Select
Datum.Select
Columns(3).Interior.ColorIndex = 0
Datum.Interior.ColorIndex = 36
Datum.Font.ColorIndex = 5
End If
End Sub]
Alvast bedankt
Drubbus
Ik zou dit ook met text/namen willen doen en dat wil maar niet lukken
De code die werkt met de datum:
[Private Sub CommandButton3_Click()
Dim Datums As Range, Datum As Range, TempDatum As Date
Set Datums = ActiveSheet.Range("C1:C400")
'dim c as range
Dim c As Range
TempDatum = CDate(DTPicker1)
For Each Datum In Datums
If Datum = TempDatum Then Exit For
Next Datum
If Datum Is Nothing Then
MsgBox (DTPicker1.Value & " is niet gevonden, ")
Else
'Datum.Select
Datum.Select
Columns(3).Interior.ColorIndex = 0
Datum.Interior.ColorIndex = 36
Datum.Font.ColorIndex = 5
End If
End Sub]
Alvast bedankt
Drubbus