Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Excel vba Suche nach Fehlerquelle
#11
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!!!!!
Mit freundlichen Grüßen / Best regards
                          //
----------o00o---°(_)°---o00o----------------------

Erich
Antworten Top
#12
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.
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste