Problemmakro zum URL kopieren und Daten löschen!
14.10.2004 14:58:07
Oliver S.
ich habe ein Makro, bei dem ein Fehler auftritt und ich nicht weiß, warum. Nachfolgend erst einmal das Makro:
Sub Test()
Application.ScreenUpdating = False
URL = Range("C15") 'Eintrag aus Zelle C15 wird in eine Variable geschrieben
Sheets("Liste").Select 'Tabellenblatt "Liste" wird aktiviert
ActiveSheet.Hyperlinks.Add Anchor:=Cells(2, 1), <a href="Address:="http://"">Address:="http://"</a> & URL 'URL wird eingetragen
With Cells(2, 1).Font
.Bold = True 'Die Zahl in Spalte A wird wieder in Fett formatiert
.Size = 10 'Die Zahl in Spalte A wird wieder in Schriftgröße 10 formatierrt
End With
Sheets("Eingabe").Select 'Tabellenblatt "Eingabe" wird aktiviert
Worksheets("Eingabe").Range("C4,C6,C8,C11,C13,C15,G4,G6,G8,G11,I11").ClearContents
End Sub
Wenn ich das durchlaufen lasse, wird das Makro mit einem Laufzeitfehler (1004) abgebrochen und mir wird die Zeile
Worksheets("Eingabe").Range("C4,C6,C8,C11,C13,C15,G4,G6,G8,G11,I11").ClearContents
Markiert. Wenn ich das Makro trenne, also erst den Hyperlink einfügen lasse mit dem oberen Teil und danach ein neues Makro starte mit dem Code zum löschen der Zellen funktioniert das tadellos. Nur wenn es in einem Code steht, dann funktioniert es nicht. Hat eventuell jemand eine Idee, woran das liegen kann und kann mir eine Lösung anbieten? Wäre jedenfalls super Nett.
Danke Euch schon mal im Voraus,
Oliver