Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1136to1140
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Text anzeigen

Text anzeigen
ing.grohn
Hallo Forum,
1. ich möchte einen Text auf dem Bildschirm anzeigen.
2. anschliessend soll ein Makro ablaufen.
3. ist das Makro fertig, soll der Text entfernt werden.
Wie mach ich das?
Vielen Dank für eine Antwort.
Mit freundlichen Grüßen
Albrecht

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Text anzeigen
14.02.2010 18:52:25
Josef
Hallo Albrecht,

da gibt es mehrere Möglichkeiten, hier eine davon.

' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Sub infotext(Optional infotext As String = "")
  Dim objShp As Shape
  
  If infotext = "" Then
    On Error Resume Next
    ActiveSheet.Shapes("+++INFO+++").Delete
  Else
    Set objShp = ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 180#, 63#, 420#, 110#)
    
    With objShp
      .Name = "+++INFO+++"
      With .TextFrame.Characters
        .text = infotext
        .Font.Size = 26
        .Font.ColorIndex = 5
      End With
      With .DrawingObject
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .ReadingOrder = xlContext
        .Orientation = xlHorizontal
        .AutoSize = False
      End With
      .Fill.ForeColor.SchemeColor = 65
      .Fill.Transparency = 0#
      .Line.Weight = 3#
      .Line.ForeColor.SchemeColor = 12
      .Line.BackColor.RGB = RGB(255, 255, 255)
    End With
    DoEvents
  End If
  Set objShp = Nothing
End Sub

Sub text()
  
  infotext "Bitte warten...."
  
  'dein Code
  
  infotext
End Sub

Gruß Sepp

Anzeige
AW: Text anzeigen
14.02.2010 19:34:59
ing.grohn
Hallo Sepp,
hab die Vorlage 1:1 übernommen!
Bei mein Code hab ich eine MsgBox ("jetzt bin ich hier")
Ausser der Box seh ich nichts auf dem Schirm!
Warum nicht?
MfG
Albrecht
AW: Text anzeigen
14.02.2010 19:48:28
ing.grohn
Hallo Sepp,
sobald Userform im Spiel ist gehts nicht!
Mit freundlichen Grüßen
Albrecht
AW: Text anzeigen
14.02.2010 20:27:00
Josef
Hallo Albrecht,

von einem UF war auch nichts in deiner Frage zu lesen!
Dann nimm doch einfach ein Label und blende es am Beginn des Makros ein und am Ende wiedre aus.

Gruß Sepp

Anzeige
AW: Text anzeigen
14.02.2010 20:44:15
ing.grohn
Hallo Sepp,
ne gute Idee, werd ich versuchen und berichte morgen
(Biathlon und pennen ist angesagt)
MfG
Albrecht
AW: an Sepp, Text anzeigen
15.02.2010 10:54:16
ing.grohn
Hallo Sepp,
funktioniert prima!
Vielen Dank!
Mit freundlichen Grüßen
Albrecht

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige