Hallo allen,
Ik ben weer wat aan het proberen.
Onderstaande code werkt naar volle tevredenheid, ik wil het alleen wat uitbreiden.
Graag zou ik willen zien dat op het moment dat hij de regel leeg heeft gemaakt, hij op dezelfde regel, in kolom 3 een tekst zet.
Ben al een beetje aan het stoeien geweest met
maar dit gaat niet lukken.
Wie weet voor mij de goede oplossing?
(het gaat om de regel in het blauw)
Ik ben weer wat aan het proberen.
Onderstaande code werkt naar volle tevredenheid, ik wil het alleen wat uitbreiden.
Graag zou ik willen zien dat op het moment dat hij de regel leeg heeft gemaakt, hij op dezelfde regel, in kolom 3 een tekst zet.
Ben al een beetje aan het stoeien geweest met
Code:
Cells(c1, 3).Value = "Mijn Waarde"
Wie weet voor mij de goede oplossing?
(het gaat om de regel in het blauw)
Code:
Private Sub CommandButton2_Click()
Dim r1 As Range
Set r1 = Range("A10:A25")
For Each c1 In r1
If c1.Value = ListBox1.Value Then
c1.Font.Bold = True
With c1
c1.EntireRow.ClearContents
End With
End If
[COLOR="#0000FF"]Cells(c1, 3).Value = "Mijn Waarde"[/COLOR]
Me.ListBox1.List = Range("A10:A25").Value
Next c1
End Sub