Thema Datum  Von Nutzer Rating
Antwort
08.02.2017 11:29:29 Miko
NotSolved
08.02.2017 11:32:23 Miko
NotSolved
Rot Copy worksheet und Nummerieren
 08.02.2017 11:45:01 Gast50412
NotSolved
08.02.2017 13:48:35 Gast28517
Solved

Ansicht des Beitrags:
Von:
Gast50412		 Datum:
08.02.2017 11:45:01		 Views:
616		 Rating:
     
Antwort:
  Ja
Thema:
Copy worksheet und Nummerieren

Moin!

Probiere es mal so. Konnte nicht ganz erkennen, wo du LOZahl herbekommst (global definiert?). Habe mal eine Variante, welche die Blattnamen durchgeht und die Blätter mit test untersucht. Kommt danach eine Zahl, wird die größte gemerkt und dann mit einem erweitert. Einfach mal probieren. VG

Sub CopySheet()
Dim NewName As String
Dim i As Integer
Dim blatt
Dim zahl As Long

'letzte Zahl ermitteln
zahl = 0
For blatt = 1 To Worksheets.Count
    If Left(Worksheets(blatt).Name, 4) = "Test" Then
        If IsNumeric(Right(Worksheets(blatt).Name, Len(Worksheets(blatt).Name) - 4)) Then
            If Right(Worksheets(blatt).Name, Len(Worksheets(blatt).Name) - 4) > zahl Then zahl = Right(Worksheets(blatt).Name, Len(Worksheets(blatt).Name) - 4)
        End If
    End If
Next blatt

ActiveSheet.Copy Before:=ActiveSheet
NewName = "Test " & zahl + 1
ActiveS

 

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
08.02.2017 11:29:29 Miko
NotSolved
08.02.2017 11:32:23 Miko
NotSolved
Rot Copy worksheet und Nummerieren
 08.02.2017 11:45:01 Gast50412
NotSolved
08.02.2017 13:48:35 Gast28517
Solved