Probleme mit BuiltinDocumentProperties
16.02.2005 08:14:02
Thomas
ich kriegs einfach nicht hin und im Archiv finde ich leider nichts wirklich passendes.
Ich habe eine Datei Arbeitsdatei.xls mit einem Makro. Aus diesem Makro heraus rufe ich eine andere, neue Datei auf MUSTER.xlt, fülle diese neue Datei mit den Daten aus der Datei Arbeitsdatei.xls.
Dann wird die neue Datei auch unter einem anderen, neuen Namen gespeichert.
Bis hierhin null Problem.
Ich möchte aber zusätzlich gerne eine bestimmte Information aus Zelle A1 im Arbeitsblatt Namen der Datei Arbeitsdatei.xls in die Hyperlinkeigenschaft der neuen Datei reinschreiben.
Sub Dreißig()
'alle "vollen" Zellen in A bis H markieren
Dim Spalte$
Dim lC As String
Spalte = "H" 'Spalte angeben
lC = Cells(Cells.Rows.Count, Spalte).End(xlUp).Address(False, False)
Range("A2:" & lC).Select
Selection.Copy
'Aufrufen de neuen Datei und kopieren aller Daten in diese neue Datei
Workbooks.Open Filename:= _
"C:\Test\ORIGINAL\MUSTER.xlt"
'Nach dem Aufruf hat die Datei automatisch den Namen MUSTER1.xls
Range("A2").Select
ActiveSheet.Paste
Columns("I:J").Select
Selection.Interior.ColorIndex = 6
Range("A1").Select
'DIESE ZEILE MACHT DIE PROBLEME
ActiveWorkbook.BuiltinDocumentProperties(29) = Worksheets("Namen").Range("A1")
Leider funktioniert das nicht und das Makro bricht immer ab.
Wie muss ich diese Zeile ändern, damit ich die Information in die neue Datei reinschreiben kann?
Könnt Ihr mir bitte helfen?
Danke Gruß
Thomas
Anzeige