Laufzeitfehler ?
rauscher
in meiner Datei wird seit zwei Tagen beim aktualisieren auf einmal ein Laufzeitfehler angezeigt.
Ich habe die Datei bzw das Makro mit dem Backup das funktioniert verglichen und keinen Fehler finden können.
Der Fehler wird erzeugt, wenn die Datei aktualisiert wird um die Datei für das interne Web anzuzeigen.
Wenn ich das Meldungsfenster beende und nicht Debugge wird das Makro jedoch ohne Probleme ausgeführt.
Makro:
Sub Aktualisieren()
Dim wksEin As Worksheet, wksHTML As Worksheet
Dim rngEin As Range, Zeile As Long
Set wksEin = Worksheets("Eingabe")
Set wksHTML = Worksheets("HTM_Anzeige")
'Bereich mit Daten im Eingabe-Blatt ermitteln
With wksEin
Zeile = .Cells(.Rows.Count, 1).End(xlUp).Row
If Zeile >= 4 Then
Set rngEin = .Range(.Cells(4, 1), .Cells(Zeile, 10))
Else
MsgBox "Keine Daten im Eingabeblatt"
Exit Sub
End If
End With
With wksHTML
'Alt-Daten im HTM-Blatt löschen
Zeile = .Cells(.Rows.Count, 1).End(xlUp).Row
If Zeile >= 4 Then
.Range(.Cells(4, 1), .Cells(Zeile, 10)).Clear
End If
'Neue daten reinkopieren
rngEin.Copy Destination:=.Cells(4, 1)
Zeile = .Cells(.Rows.Count, 1).End(xlUp).Row
'Datengültigkeiten löschen
.Range(.Cells(1, 1), .Cells(Zeile, 10)).Validation.Delete
'Druckbereich anpassen
.PageSetup.PrintArea = .Range(.Cells(4, 1), .Cells(Zeile, 10)).Address(ReferenceStyle:=xlA1) _
_
_
'Namensbereich für Webseiten-Daten anpassen
Application.Names("Daten.Webseite").RefersTo = "='" & .Name & "'!" _
& .Range(.Cells(1, 1), .Cells(Zeile, 10)).Address(ReferenceStyle:=xlA1)
End With
'Webseite neu veröffentlichen
With ThisWorkbook.PublishObjects(1)
.Filename = ThisWorkbook.Path & "\" & "Anzeige.htm"
.Publish (Diese Zeile wird gelb angezeigt wenn ich DEBUGGE)
End With
End Sub
mfg.
Ludwig