title image


Smiley Meldung "Makro läuft" Version 1.1
Hallo Karin,



so ist es ein bischen universeller:







      

Sub Meldung()

Dim Breite As Long, Hoehe As Long, Farbe As Long, SFarbe As Long

Dim Mldg As String

Mldg = "Daten werden bearbeitet, bitte etwas Geduld"

Breite = ActiveWindow.Width 'Breite des Textfeldes es gehen auch Masse wie 250

Hoehe = ActiveWindow.Height 'Höhe des Textfeldes

Farbe = 12 'Farbe des Textfeldes hier Blau

SFarbe = 2 'Schriftfarbe hier weiss

With ActiveWindow ' Fokus auf oben Llinks setzen sonst Meldung ggf. nicht zu sehen

.ScrollColumn = 1

.ScrollRow = 1

End With



    ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, (ActiveWindow.Width - Breite) / 2, (ActiveWindow.Height - Hoehe) / 2, Breite, Hoehe).Select

    With Selection

        .Name = "Meldung"

        .Characters.Text = Mldg

        .ShapeRange.Fill.Visible = msoTrue

        .ShapeRange.Fill.ForeColor.SchemeColor = Farbe

        .HorizontalAlignment = xlCenter

        .VerticalAlignment = xlCenter

        With .Characters.Font

            .Name = "Arial"

            .FontStyle = "Standard"

            .Size = 16

            .ColorIndex = SFarbe

        End With

    End With

    

    'Dein Code

    Application.Wait (Now + TimeValue("0:00:03")) 'nur zum Testen, später löschen

    ActiveSheet.Shapes("Meldung").Delete

End Sub 





Code eingefügt mit Syntaxhighlighter 3.0







Gruss Georg
Beiträge zu Excel 2002 in Verbindung mit Win XP

 A
1Tabellentool
2von StrgAltEntf


Gibts hier


geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: