kaan
Gebruiker
- Lid geworden
- 9 feb 2007
- Berichten
- 189
Beste tijdens het zoeken vond ik een 2 oude maar helaas werkt het niet meer.
Bij google heb ik uren zitten zoeken naar een alternatief maar het wil mij niet lukken.
Zou een van de Ecxel profs deze code kunnen aanpassen?
Mijn dank is groot
Kaan
Bij google heb ik uren zitten zoeken naar een alternatief maar het wil mij niet lukken.
Zou een van de Ecxel profs deze code kunnen aanpassen?
Mijn dank is groot
Kaan
Allereerst een label aanmaken in Excel (beeld, werkbalk, Werkset besturingselementen aanvinken. Uit de werkblak kiezen voor Tekstvak. Tekstvak naar je zin vormgeven. Boven het tekstvak een opdrachtknop zetten. Deze gebruik je om het tekstvak weg te klikken.
De onderstaande code plakken in de editor van ThisWorkbook (Alt & F11):
Private Sub Workbook_Open()
Tekst = "": n = 0
For i = 11 To 9999
If Month(Cells(i, 4)) * 100 + Day(Cells(i, 4)) = Month(Date) * 100 + Day(Date) Then Tekst = Tekst & Cells(i, 3) & Chr(10): n = n + 1
Next i
Worksheets(1).TextBox1.Text = Tekst
TextBox1.Height = n * 15
TextBox1.Visible = True
CommandButton1.Visible = True
Range("A2").Select
End Sub
In de editor van het werkblad:
Private Sub CommandButton1_Click()
TextBox1.Visible = False
CommandButton1.Visible = False
End Sub