ein kleines Hallo usw. verbunden mit einem Gruss und Name macht sich ganz einfach besser ;-)
Ein richtiges ToolTip ist tatsächlich nicht möglich, den einzigen Workaround kann ich bieten, in dem Moment wo der Button den Focus erhält.
Wenn dein Button Commandbutton1 heisst, mache einen Doppelklick darauf und kopiere den Code in das geöffnete Codefenster, dann funktioniert es.
Wenn dein Button anders heisst, musst du den Namen entsprechend anpassen.
Private Sub CommandButton1_GotFocus()
Code eingefügt mit Syntaxhighlighter 1.16
Option Explicit
Dim topCorner As Double, leftCornerTxt As Double, bottomCornerTxt As Double
Dim oldCell As String
oldCell = ActiveCell.Address
leftCornerTxt = ActiveSheet.CommandButton1.Left + ActiveSheet.CommandButton1.Width
bottomCornerTxt = ActiveSheet.CommandButton1.Top + ActiveSheet.CommandButton1.Height
ActiveSheet.Shapes.AddLabel(msoTextOrientationHorizontal, leftCornerTxt, bottomCornerTxt, 0#, 0#).Select ' 132#, 0#, 0#).Select
Selection.ShapeRange(1).TextFrame.AutoSize = msoTrue
Selection.Characters.Text = "Dein Texthinweis:" & Chr$(10) & "(C) Ramses"
With Selection.Font
.Name = "Arial"
.FontStyle = "Standard"
.Size = 10
End With
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 43
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
Selection.ShapeRange.Line.Weight = 1#
Selection.ShapeRange.Line.Visible = msoTrue
Selection.ShapeRange.Line.Style = msoLineSingle
Selection.ShapeRange.Line.ForeColor.SchemeColor = 64
TempTextName = Selection.Name
Range(oldCell).Select
End Sub
Private Sub CommandButton1_LostFocus()
ActiveSheet.Shapes(TempTextName).Select
Selection.Delete
End Sub
Gruss Rainer
das ist beim kopieren vergessen gegangen:
Public TempTextName As String
Das gehört in die oberste Zeile des Moduls für den Commandbutton.
Gruss Rainer
vielen Dank und schöne Grüße
Hätte noch ein paar Fragen und zwar:
wie bringe ich eine Exceltabelle mit der AS400 in verbindung
oder wie exportiere ich die Tabelle auf den AS400 Server.
Weiß Du da was? Ich finde niergendwo ein Beispiel oder ähnliches.
Vielen Dank und schöne Grüße
Peter
Hätte noch ein paar Fragen und zwar:
wie bringe ich eine Exceltabelle mit der AS400 in verbindung
oder wie exportiere ich die Tabelle auf den AS400 Server.
Weiß Du da was? Ich finde niergendwo ein Beispiel oder ähnliches.
Peter
da habe ich leider keine Idee.
AS 400 ist für mich ein Buch mit 7 Siegeln :-)
Gruss Rainer