Excel vba Suche nach Fehlerquelle

[sharky51]

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!!!!!

[Sulprobil]

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.