title image


Smiley Laufschrift in Excel auf Blatt...
Hallo Poli,ist zwar nicht in einer MsgBox aber vielleicht hilft es Dir ja ein bischen weiter.Folgender Code durchläuft die Spalten 1-10 und die Zeihen 1-10 und erzeugt dort eine Art Laufschrift:Sub laufschrift()s1 = "S"s2 = "v"s3 = "e"s4 = "n"On Error GoTo stepstep:With ActiveSheet .Columns.ColumnWidth = 2 .Cells.Value = "" For z = 1 To 10 For i = 1 To 10 .Cells(z, i).Value = s1 .Cells(z, i + 1).Value = s2 .Cells(z, i + 2).Value = s3 .Cells(z, i + 3).Value = s4 Application.Wait Now + TimeSerial(0, 0, 1) .Cells(z, i).Value = "" Next i Rows(z).ClearContents Next zEnd WithEnd SubGruß
Gruß,
Sven

CnC Community News
Infos rund um alle RTS Games (und natürlich Renegade)
von Westwood.
Unsere Foren: CnC Foren




geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: