Laufschrift innerhalb einer zelle

111005



Mit diesem Code kann innerhalb einer Zelle eine Laufschrift erstellt werden.

Die Buchstaben werden der Reihe nach vertauscht.

 

Sub Rotieren()

Dim C As Range

Dim i%

Set C = ActiveCell

For i = 1 To 2000

C = Right(C, Len(C.Value) - 1) + Left(C, 1)

Application.Wait Now + TimeSerial(0, 0, 1)

Next i

End Sub


 

   

Excel-Inside auf FacebookExcel-Live News blogExcel-Inside RSS-FeedMail an Excel-InsideTwitter Account für Excel-InsideMail an Excel-Inside

Office Programmierung

Excel Auftragsprogrammierung

Access Auftragsprogrammierung

Word Auftragsprogrammierung

Outlook Auftragsprogrammierung

 

 

 

 




   
Office Schulungen VBA, Excel, Access
E-Book Formeln und Funktionen Excel 2013
Excel-Inside Newsletter abonnieren
   

Backlink  

ERROR: PAGE_URL belons not to given domain: 573001800