nochmal change auslöst click
24.11.2007 13:45:05
klaro
Also was ich will-
ich habe eine UserForm1 in der eine TextBoox1 ist
und ein CommandButton1 und ich hätte gerne ein
Makro das bei Änderung in TextBox1 auf CommandButton1
ein Click von Makro automatisch gemacht wird(symuliert).
ransi hatte mir ein Makro geschrieben das jedoch kein Click
ausgibt sondern den Mausepfeil verschwinden lässt?
' **********************************************************************
' Modul: Tabelle1 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************
Option Explicit
Dim bol
Private Sub TextBox1_Change()
bol = True
Call TextBox1_MouseDown(1, 0, 0, 0)
bol = False
End Sub
Private Sub TextBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As _
Single, ByVal Y As Single)
If bol = True Then _
MsgBox "Maus gedrückt"
End Sub
Also wer kann es zum ende bringen
Grüße
klaro