Office: (Office 2016) Vba - Neues Worksheet in anderem Workbook erstellen

Hallo zusammen,

es ist mir etwas peinlich diese Frage zu stellen, aber irgendwie raffe ich es gerade NICHT.
Ich habe ein Master Workbook (M) und aus diesem Workbook erstelle ich ein weiteres Workbook (X). Nun soll aus Workbook M im Workbook X ein neues Worksheet erstellt werden. Wenn M aktiv ist wird das neue Sheet in M erstellt und nicht in X. Wenn aber das Workbook X aktiv ist wird es in X erstellt.

Um das zu realisieren rufe ich eine Funktion auf und uebergebe den File Namen und den Namen des neuen Sheets.

Was ist da der Denkfehler in der Function?

Code:

Public Function CreateNewWorksheet( _
    ByVal strFileName As String, _
    ByVal strNewWorksheetName As String) As String
   
'Variablen deklarieren
    Dim objWorkbook As Workbook
    Dim objWorksheet As Worksheet
 
'Workbook zuweisen
    Set objWorkbook = Application.Workbooks(strFileName)
 
'Ãœberprüfen ob das Sheet bereits besteht
    With objWorkbook
        For Each objWorksheet In .Sheets
            If objWorksheet.Name = strNewWorksheetName Then
                CreateNewWorksheet = "Bad"
                Exit Function
            End If
        Next objWorksheet
 
    'Neues Worksheet erstellen
        Set objWorksheet = .Worksheets.Add
   
    'Namen vergeben und Platz zuweisen
        With objWorksheet
            .Name = strNewWorksheetName
            .Move Before:=Sheets(1)
        End With
           
    End With
 
'Der Funktion einen Wert zu weisen
    CreateNewWorksheet = "okay"
   
'Object ordnungsgemäß schließen
    Set objWorkbook = Nothing
    Set objWorksheet = Nothing
   
End Function

 

Hallo,

die Sheet-Referenzierung bei .Move haut Dich rein....

..oder alternativ sollte auch gehen...

...ach ja übrigens, die .Add-Methode enthält auch bereits die Platzierungsparameter Before und After...

Gruß, MultiUniverse

 

Hallo MultiUniverse,

Danke für deine Antwort.
Klappt super:D.

Schöne Grüße
Tauchmann