Worksheets(2).Range("A1:D4").Copy Destination:=Worksheets(3).Range("A1")
Sub Tab2Umbenennen()
name3 = Worksheets(3).Name
nn = Right(name3, Len(name3) - InStr(name3, "("))
nn1 = Val(nn)
nn2 = nn1 + 1
name3new = Replace(name3, nn1, nn2)
Worksheets(2).Name = name3new
End Sub
Sub Tab2UmbenennenVersion2()
tabname3 = Worksheets(3).Name
For nn = 1 To Len(tabname3)
xx = Mid(tabname3, nn, 1)
If IsNumeric(xx) Then Exit For
Next nn
If Not IsNumeric(xx) Then
Worksheets(2).Name = tabname3 & "(1)"
Exit Sub
End If
mm1 = Val(Mid(tabname3, nn, 999))
mm2 = mm1 + 1
name3new = Replace(tabname3, mm1, mm2)
Worksheets(2).Name = name3new
End Sub
Sub Tab2Umbenennen()
name3 = Worksheets(3).Name
nn = Right(name3, Len(name3) - InStr(name3, "("))
nn1 = Val(nn)
nn2 = nn1 + 1
name3new = Replace(name3, nn1, nn2)
Worksheets(2).Name = name3new
End Sub
Sub Tab2NewNameVers4()
On Error GoTo fehler1
name3 = Worksheets(3).Name
name2 = Left(name3, InStr(name3, "("))
nn2 = Val(Right(name3, Len(name3) - InStr(name3, "("))) + 1
name2 = name2 & nn2 & ")"
Worksheets(2).Name = name2
Exit Sub
fehler1:
If Err.Number = 1004 Then
MsgBox "Es gibt bereits eine Tabelle " & name2 & "!"
End If
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen