Hallo Reinhard,
die xla ließ sich nicht öffnen. Auch nicht, nachdem ich das abgelaufene Zertifikat autorisiert habe. Es kommt der allseits beliebte Laufzeitfehler ‚1004‘ mit dem Hinweis „Der programmatische Zugriff auf das Visual Basic-Projekt ist nicht sicher.“
-(
Hast Du noch einen Tip, wie ich das installiert bekomme?
Freundliche Grüße
Thomas
P. S.: Claudia wird sich schon einkriegen … 
Hallo Thomas,
die xla ließ sich nicht öffnen. Auch nicht, nachdem ich das
abgelaufene Zertifikat autorisiert habe.
Zertifikat? Ich hatte bislang das/die xla gar nicht in XL 2007 installiert aber schon jahrelang in XL 2000.
Aufgrund deiner Anfrage habe ich sie in XL 2007 geöffnet und sie hat sich installiert.
Da kam nix von Zertifikat.
Es kommt der allseits
beliebte Laufzeitfehler ‚1004‘ mit dem Hinweis „Der
programmatische Zugriff auf das Visual Basic-Projekt ist nicht
sicher.“
*hmmh* Mir ist nur bekannt, habe ich auch gemacht, damit Excel 2007 Vba erlaubt muß man da ZWEI Häkchen setzen irgendwo bei Optionen/Einstellungen.
Dann müßte da deine Fehlermeldung weg sein.
Diese zwei Häkchen haben nichts damit zu tun daß man je nachdem wie man das in den Optionen festgelegt hat ggfs. bei jeder mappenöffnung gefragt wird ob man in dieser Mappe Makroausführung zuläßt.
Das ist so ähnlich wie früher die Abfrage bei Mappenöffnung, Makros aktivieren oder nicht.
Hast Du noch einen Tip, wie ich das installiert bekomme?
Mehr als das eben Gesagte weiß ich nicht.
P. S.: Claudia wird sich schon einkriegen …
Falls du überhaupt noch Thema bei ihr bist berichte ich dir was sie so sagte am nächsten WE wenn sie mich besucht 
)
Gruß
Reinhard
Moin Thomas,
Du hast es genau erfasst:
…
Fügst Du Formeln in Zellen ein, die dann Bezüge zu den
externen Mappen herstellen?
Wenn das korrekt gemacht wird, poppt da kein Dialog auf - das
geht sogar recht gut.
Kann ich gerade nicht testen, denn ich habe gerade NetzwerkProbleme und das mit dem subst ( hallo Reinhard, im Substituieren bist Du ja Experte ) klappt bei mir zuhause nur bedingt.
Hier fehlt im Pfad immer der letzte Ordner, wo sich die Projekt…xls befindet. Ich meine, dass das in der Firma besser geklappt hat hmmh.
Erählst Du also die Aufforderung eine Datei auszuwählen dann
heisst das, dass in der Formel die Du in die Zelle(n)
schreibst irgend ein Schreibfehler drin ist.
Kann nicht sein! ich mache niemals Schreeifeler.
Schau dir mal folgende Funktion an, die tut genau das - Daten
aus externen Dateien per Formeln in die Zellen schreiben und
dann durch Werte ersetzen:
Teste ich lieber morgen in der Firma, dann habe ich´s gleich richtig
Bin auch schon ziemlich müde.
…
Ich könnte mir vorstellen, dass dies ein Ansatz ist, den Du
verfolgen könntest/solltest.
Ich auch
Hoffe, dass ich morgen noch berichten kann.
Vielen Dank erst´mal und gute Nacht
Thomas
P. S.: Hier ´mal mein bisheriger Code :
Sub hyp()
‚HYPERLINKS einfügen
’ hyp Makro
‚Blatt_freigeben
On Error Resume Next
lastrow = ActiveCell.SpecialCells(xlLastCell).Row
For i = ActiveCell.Row To lastrow
Cells(i, 3).Select ‚Spalte „AngebotsNummer“ anwählen
Angebot = Round(Cells(ActiveCell.Row, 3), 0)
Cells(ActiveCell.Row, 3) = Angebot
ziffer = Left(Angebot, 1)
If Len(Angebot) = 5 Then ziffer = Left(Angebot, 2)
ziel = Dir(„y:\Angebote“ & ziffer & „“ & Angebot & „*“, 16) ‚vbDirectory 16 Verzeichnis oder Ordner, zusätzlich zu Dateien ohne Attributen.
’ Application.CutCopyMode = False
Pfad = „y:\Angebote“ & ziffer & „“ & ziel
ChDrive „Y:“
ChDir Pfad
If ziel „“ Then
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=Pfad
Else: Selection.Hyperlinks(1).Delete
End If
Range(Cells(i, 30), Cells(i, 45)).ClearContents
If Cells(i, 23) „“ Then
If Cells(i, 1) = „“ Then
If Cells(i, 2) = „A“ Then
ProjektPfad = „=“ & Pfad & „[Projekt_“ & Angebot & ".xls]DATEN‘!R45C4"
Cells(i, 32).FormulaR1C1 = "=‘" & Pfad & „[Projekt_“ & Angebot & ".xls]DATEN‘!R45C4"
Cells(i, 33) = "=‘" & Pfad & „[Projekt_“ & Angebot & „.xls]DATEN’!R45C4“
Cells(i, 34) = Pfad & „[Projekt_“ & Angebot & „.xls]DATEN’!R45C4“
End If
End If
End If
Next i
'blatt_sperren
End Sub
Grüezi Thomas
Moin Thomas,
Du hast es genau erfasst:
…Fügst Du Formeln in Zellen ein, die dann Bezüge zu den
externen Mappen herstellen?Wenn das korrekt gemacht wird, poppt da kein Dialog auf - das
geht sogar recht gut.Hier fehlt im Pfad immer der letzte Ordner, wo sich die
Projekt…xls befindet. Ich meine, dass das in der Firma
besser geklappt hat hmmh.
…wenn da eine Ordner-Stufe fehlt, dann wurde diese im Code ganz einfach nicht hinzugefügt - das führt dann dazu, dass Excel anbietet die Datei über den Dialog zu suchen.
Erählst Du also die Aufforderung eine Datei auszuwählen dann
heisst das, dass in der Formel die Du in die Zelle(n)
schreibst irgend ein Schreibfehler drin ist.Kann nicht sein! ich mache niemals Schreeifeler.
Nicht Du, natürlich - VBA
P. S.: Hier ´mal mein bisheriger Code :
…irre ich mich, oder geht es bei diesem Code darum Hyperlinks einzufügen?
Ich war der Ansicht es sollten Daten mit Formeln auf die externe(n) Datei(en) erstellt werden?
Grundsätzlich ist das Problem bei de Pfaden natürlich dasselbe - aber dennoch wäre das eine andere Baustelle…
Was also sollen wir (zuerst) in Angriff nehmen?
PS:
Die Ordner-Struktur ist immer dieselbe?
Also immer im Root eines Laufwerks-Buchstabens beginnt diese identische Struktur?
Mit freundlichen Grüssen
Thomas Ramel
Hallo Thomas,
tatsächlich fehlte im Pfad ein BackSlash vor dem letzten Ordner.
Durch die Abfrage / deren Beantwortung wurde dann der richtige Pfad eingefügt. Deshalb war das dann so schwer zu finden. Jetzt läuft das Makro.
Das Einfügen der HyperLinks war der ursprüngliche Zweck des Makros.
Um das sauber zu trennen, muss ich den Code jetzt noch umlagern, aber ich denke, das bekomme ich dann schon hin
Sorry, dass ich Euch mit meinem Schreib- LeseProblem genervt habe.
Muss mir angewöhnen, beim Programmieren eine Brille zu tragen, die meine HornHautVerkrümmung korrigiert. Das Gehirn dichtet sich sonst viel zurecht, so dass es logisch erscheint.
Vielen Dank für Eure Hilfe.
Einen schönen Dienstag wünscht
Thomas
gelöst
Hallo Reinhard,
der Dialog ist nun weg ( siehe oben ). Vielen Dank für Deine Hilfe dabei.
Dann kann ich mich demnächst an die Umwandlung in ein Add-In wagen.
Zu jedem Projekt eine Mappe mit vollständigem Code zu speichern wäre die Alternative, gefällt mir aber nicht so gut.
Bis demnächst ( wenn Claudia von Dir ablässt )
Thomas
Grüezi Thomas
tatsächlich fehlte im Pfad ein BackSlash vor dem letzten
Ordner.
Durch die Abfrage / deren Beantwortung wurde dann der richtige
Pfad eingefügt. Deshalb war das dann so schwer zu finden.
Jetzt läuft das Makro.
Sag ich doch - Excel ist da seeeeeeehr zuverlässig
Wie Du in meinem Code siehst war das Problem mit dem fehlenden Slash am Ende des Pfades schon öfter da, darum habe ich den Code entsprechend ergänzt.
Fein, dass es nun klappt.
Mit freundlichen Grüssen
Thomas Ramel