Clever-Excel-Forum

Seiten: 1 2

Hallo André,

ja genau der gleiche Fehler-Code!

Habe das Ganze jetzt nochmals anders aufgebaut und das Kopieren umgedreht, heißt ich kopiere jetzt aus der Quell-Tabelle in die Zieltabelle.
Bisher war es ja umgekehrt.

Mit diesen Code funktioniert es:

Code:
Sub TestCopy()

  Dim intZahl As Integer

  Dim wb As Workbook

  Set wb = GetObject("D:\1_Mydaten_Aktiv\Office\Excel\Aktuell\Sellin\2020 Auswertungen\SunTec_Monitoring_Oktober_2020.xlsm")

  intZahl = wb.Sheets.Count

  'MsgBox intZahl

  ActiveSheet.Copy After:=Workbooks("SunTec_Monitoring_Oktober_2020.xlsm").Sheets(intZahl)

End Sub

Aber es nervt mich schon dass der ursprüngliche Code, der ja mal funktioniert hat, in einen Fehler läuft!!!!!

Du musst das bitte auch richtig programmieren:

Code:
Sub Kopieren_Auswertung()

    Dim sPfad As String

    Dim sName As String

    sPfad = ThisWorkbook.Path

    sName = "D:\1_Mydaten_Aktiv\Office\Excel\Aktuell\Sellin\2020 Auswertungen\SunTec_Monitoring_Oktober_2020.xlsm\"

        If sName <> ThisWorkbook.Name Then

            ThisWorkbook.Worksheets("Tabelle2").Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)

        End If

End Sub

Bei Worksheets("...") muss ein Worksheet Name stehen, kein Workbook Name.
Und das ActiveWorkbook würde ich eh nie verwenden. Im Debug Modus oder wenn der Anwender bei einer MessageBox mit Alt + Tab in eine andere Excel Datei wechselt, gibt es sonst immer Tränen.

Seiten: 1 2

sharky51

Sulprobil