ich hab mir folgenden Code für einen Hilfetext zu einem CommandButton aus dem Archiv gezogen.
Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X _
_
As Single, ByVal Y As Single)
Dim h As Shape
For Each h In ActiveSheet.Shapes
If h.Name = "Hilfe" Then Exit Sub
Next
ActiveSheet.OLEObjects.Add(ClassType:="Forms.TextBox.1", _
Left:=CommandButton1.Left, _
Top:=CommandButton1.Top + CommandButton.Height, _
Width:=0, Height:=0) _
.Name = "Hilfe"
With ActiveSheet.OLEObjects("Hilfe").Objects
.Font.Size = 8
.Text = "Soll-Ist-Vergleich Miete QI. " & Chr(13) _
& "Miete Plan = Grün"
.AutoSize = True
.MultiLine = True
End With
End Sub
Private Sub Hilfe_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, _
_
ByVal Y As Single)
Shapes("Hilfe").Delete
End Sub
Der hängt sich bei Teil 1 (nach Next) immer auf und markiert als fehlerhaften Codeteil den gesamten Block
ActiveSheet.OLEObjects.Add(ClassType:="Forms.TextBox.1", _
Left:=CommandButton1.Left, _
Top:=CommandButton1.Top + CommandButton.Height, _
Width:=0, Height:=0) _
.Name = "Hilfe"
Hat jemand 'ne Idee?
Vielen Dank im Voraus.
Gruss Gunnar