title image


Smiley müsste eigentlich noch einfacher gehen ..


' So richtig werde aus dem was Du willst nicht..

' Denke aber eine Schleife ist überflüssig

Sub Umbennen1()

Dim Ws As Worksheet

On Error Resume Next

  Set Ws = Worksheets("Wo " & CStr(ActiveSheet.Range("B13").Value))

  If Err.Number = 0 Then _

    Ws.Name = "Wo " & _

                CStr(ActiveSheet.Range("B13").Value) & " Blatt " & "2"

 Set Ws = Nothing



End Sub

 Code eingefügt mit Syntaxhighlighter 1.16

Knofi So wie wir heute arbeiten, werden morgen die Beamten leben ...

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: