TextBox Ereignis gesucht
19.05.2006 15:01:00
ronny
mit unten stehendem Code realisiere ich dass, beim anklicken der Zelle C21 die Verzeichnisauswahl geöffnet wird und ausgewähltes Verzeichnis in selbige Zelle geschrieben wird. Funktioniert super.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = ("$C$21") Then
Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFolderPicker)
If fd.Show = -1 Then
Cells(21, 3).Value = fd.SelectedItems(1) & "\"
End If
End If
End Sub
Jetzt die neue Aufgabe:
Wie kann ich das ganze für eine TextBox erreichen.
Also bei aktivieren der TextBox (nicht doppelclick) soll sich die Verzeichnisauswahl öffnen usw.
Habe natürlich im Vorfeld die Recherche bemüht und bin dabei auf das Ereignis
Sub TextBox1_Enter() gestoßen. Das funktioniert bei mir aber überhaupt nicht. Warum? -(Achselzuck)
Wäre toll, wenn ich das richtige Ereignis in einer der zahlreichen (?) Lösungsvorschläge fände.
Viele Grüße
ronny