Thema Datum  Von Nutzer Rating
Antwort
Rot Sheet-Erstellung bringt Fehler
24.11.2023 08:46:25 Gast74119
NotSolved
24.11.2023 16:18:18 xlKing
Solved
27.11.2023 08:23:27 Gast15848
NotSolved

Ansicht des Beitrags:
Von:
Gast74119
Datum:
24.11.2023 08:46:25
Views:
578
Rating: Antwort:
  Ja
Thema:
Sheet-Erstellung bringt Fehler

Guten Morgen!

Ich möchte mit Hilfe von VBA eine Reihe von Worksheets erstellen und in jedes neu erstellte Sheet Daten aus einem Template hinein kopieren. Hier mein zugehöriger Code:

Sub SheetCopyTest()

Dim wbMasterWorkbook As Workbook
    Set wbMasterWorkbook = Workbooks("Master Workbook")

Dim rNewSheetName As Range
Set rNewSheetName = Workbooks("VBA Codes").Sheets("Helper").Range("A1")

Do While rNewSheetName <> ""
    wbMasterWorkbook.Sheets.Add Before:=wbMasterWorkbook.Sheets("My Sheet")
    wbMasterWorkbook.Sheets(Sheets("My Sheet").Index - 1).Name = rNewSheetName.Value
    wbMasterWorkbook.Sheets("Template").Range("A:BD").Copy Destination:=wbMasterWorkbook.Sheets(rNewSheetName.Value).Range("A1")
    Set rNewSheetName = rNewSheetName.Offset(1, 0)

Loop
End Sub

 

Wenn ich einfach nur die Sheets erstellen lasse, läuft der Code problemlos. Sobald ich aber die Daten vom Template mit kopieren möchte, kommt der "Subscript out of Range" Error: Das neu erstellte Sheet wird plötzlich nicht mehr richtig benannt, sondern heißt dann "Sheet14" oder so.

 

Hat jemand Ideen, warum der Fehler hier auftritt?

 

Viele Grüße

Erich

 

 


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
Rot Sheet-Erstellung bringt Fehler
24.11.2023 08:46:25 Gast74119
NotSolved
24.11.2023 16:18:18 xlKing
Solved
27.11.2023 08:23:27 Gast15848
NotSolved