Thema Datum  Von Nutzer Rating
Antwort
07.12.2018 18:26:11 Stephan
NotSolved
Blau Laufzeile VBA
 07.12.2018 18:33:23 RPP63
NotSolved
07.12.2018 19:07:51 Stephan
NotSolved
07.12.2018 19:18:50 RPP63
Solved

Ansicht des Beitrags:
Von:
RPP63		 Datum:
07.12.2018 18:33:23		 Views:
512		 Rating:
     
Antwort:
  Ja
Thema:
Laufzeile VBA

Moin!

In meinem Archiv habe ich diese Spielerei.

Es ist völlig egal ob es in eine Zelle oder einen Zellverbund ausgegeben wird.

Wichtig ist lediglich, dass die linke obere Zelle im Code angesprochen wird.

(bei mir Cells(1, 4) also D1)

Option Explicit

Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Sub Laufschrift()
 Dim zelle As Range, pause As Integer, Is_txt As String, Anzahl As Long
 Application.EnableCancelKey = xlErrorHandler
 Is_txt = InputBox("Prozedur kann mit ESC beendet werden!", "Laufschrift Text Eingabe", _
 "Laufschrift ")
 
 If Is_txt > "" Then
   Cells(1, 4) = Is_txt
   Set zelle = Cells(1, 4)
   On Error GoTo fmld
     For Anzahl = 1 To 200
       zelle.Value = Right(zelle.Value, Len(zelle.Value) - 1) + Left(zelle.Value, 1)
       Sleep 200
       DoEvents
     Next
 Else
 End If
fmld:
 If Err = 18 Then
 MsgBox "Abbruch"
 End If

End Sub

Gruß Ralf

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
07.12.2018 18:26:11 Stephan
NotSolved
Blau Laufzeile VBA
 07.12.2018 18:33:23 RPP63
NotSolved
07.12.2018 19:07:51 Stephan
NotSolved
07.12.2018 19:18:50 RPP63
Solved