Laufzeitfehler 1004 die Methode Range..
11.04.2020 12:28:54
Peter
ich brauche Hilfe bei einem Laufzeitfehler '1004':
Die Methode '
Ich habe selber keine großartigen Kenntnisse im VBA. Die Makros, die ich anwende habe ich größtenteils in diesem Forum recherchiert und an meine Anforderungen angepasst.
Ich komme selber nicht weiter. Und vor allen Dingen was mich an der ganzen Geschichte stört ist, dass dieser Fehler anscheinend Verweise auf so genannten Global erstellt, die evtl andere Makros stören könnten. So jedenfalls meine Befürchtung.
Dieser Fehler wird auf folgender Microsoft-Seite thematisiert:
https://support.microsoft.com/de-de/help/178510/excel-automation-fails-second-time-code-runs
ich komme mit Erklärung aber nicht weiter. Vielleicht kann mir jemand helfen und meine Fragen beantworten.
Laufzeitfehler '1004':
Die Methode '
Das wäre mein Code bei dem der Fehler aufgetreten ist und zwar beim zweiten Ausführen des Makro:
Sub Werte_einfügen_bei_gesetztem_Filter()
Dim c As Range
Dim myRange As Range
'ich markiere einen bestimmten bereich und diese Zeile markiert in meiner Markierung sichtbare _
Zellen. das klappt
ActiveSheet.Range(Selection.Address).SpecialCells(xlCellTypeVisible).Select
'diese Zeile soll neu markierte sichtbare Zellen in eine neue Range übergeben. das beschleunigt _
das Makro um Längen, aber nur einmal eben, beim zweiten Durchlauf kommt der o.g. Fehler
Set myRange = Range(Selection.Address)
For Each c In myRange
c.Copy
c.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False 'Zwischenspeicher löschen
Application.ScreenUpdating = False 'damit bleibt das Ruckeln weg und es spart Zeit
Next c
MsgBox "fertig"
End Sub
Auf der Suche nach Lösung habe ich auf folgenden Code gestoßen und rein aus Neugierde ausgetestet. Und dieser MiniCode liefert ab dem zweiten Durchlauf den selben Fehler. Und ich weiß jetzt überhaupt nicht, ob die Ursache der Verweis aus dem oberen Code ist, so zu sagen eine Kettenreaktion ist oder nicht. Also große Verunsicherung.
Sub letzte_Zelle_in_SpalteA()
MsgBox Range(Range("A1").End(xlDown).Range("A65536").End(xlUp)).Address ' liefert den 1004 _
Fehler !!!!
End Sub
Ich hoffe es findet sich einer, der mir bei der Angelegenheit helfen kann.
Mfg
Peter