Thema Datum  Von Nutzer Rating
Antwort
Rot Hyperlinks, Laufzeitfehler 1004
 09.04.2019 10:40:34 Jonas
NotSolved
09.04.2019 12:21:59 Jonas
NotSolved
12.04.2019 12:43:48 Jonas
NotSolved
12.04.2019 12:58:31 Jonas
NotSolved

Ansicht des Beitrags:
Von:
Jonas		 Datum:
09.04.2019 10:40:34		 Views:
1171		 Rating:
     
Antwort:
  Ja
Thema:
Hyperlinks, Laufzeitfehler 1004

Guten Tag zusammen,

ich schreibe gerade für die Arbeit an einem Code, der mir automatisch eine neue Datei erstellt, dort Worksheets erstellt, diverse Formatierungen durchführt etc.

Dabei will ich unter anderem Hyperlinks einfügen, die jeweils auf das vorige bzw. nächste Tabellenblatt sowie die Dateien des Vor- und Folgemonats verweisen.

Wenn ich den Code mit F5 ausführe, kommt dabei die Fehlermeldung "Laufzeitfehler '1004': Anwendungs- oder objektdefinierter Fehler". Die Durchführung bleibt nach Ausführung der Hyperlinkerstellung hängen, die Hyperlinks werden noch korrekt erstellt aber dann ist schluss.

Wenn ich den Code nacheinander mit F8 ausführe, funktioniert es tadellos.

Hier mal der Ausschnitt aus dem Code zur Hyperlinkerstellung und folgenden Formatierung:

 

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
'Hyperlinks Datum einfügen
 
NeuesDatum = DateAdd("m", -1, Startdatum)
 
NextMonat = DateAdd("m", 1, Startdatum)
 
Dim j As String
 
Dim k As String
 
For i = 1 To Tage
 
j = i - 1 & "."
 
k = i + 1 & "."
 
Worksheets(i & ".").Activate
 
If i = 1 Then
 
With ActiveSheet
.Hyperlinks.Add Anchor:=.Range("A1"), Address:=Pfad & "\" & Format(NeuesDatum, "YYYY-MM") & " Tagesdokumentation" & ".xlsx"
.Hyperlinks.Add Anchor:=.Range("D1"), Address:=Pfad & "\" & Format(NextMonat, "YYYY-MM") & " Tagesdokumentation" & ".xlsx"
.Hyperlinks.Add Anchor:=.Range("D2"), Address:="", SubAddress:=k & "!A1"
End With
 
With ActiveSheet.Range("A1, D1")
.Font.Size = 18
.Font.ColorIndex = 1
.Font.Underline = False
.Font.Bold = True
End With
 
With ActiveSheet.Range("A2, D2")
.Font.Size = 14
.Font.ColorIndex = 1
.Font.Underline = False
End With
 
ElseIf i = Tage Then
 
With ActiveSheet
.Hyperlinks.Add Anchor:=.Range("A1"), Address:=Pfad & "\" & Format(NeuesDatum, "YYYY-MM") & " Tagesdokumentation" & ".xlsx"
.Hyperlinks.Add Anchor:=.Range("D1"), Address:=Pfad & "\" & Format(NextMonat, "YYYY-MM") & " Tagesdokumentation" & ".xlsx"
.Hyperlinks.Add Anchor:=.Range("A2"), Address:="", SubAddress:=j & "!A1"
End With
 
With ActiveSheet.Range("A1, D1")
.Font.Size = 18
.Font.ColorIndex = 1
.Font.Underline = False
.Font.Bold = True
End With
 
With ActiveSheet.Range("A2, D2")
.Font.Size = 14
.Font.ColorIndex = 1
.Font.Underline = False
End With
 
Else
 
With ActiveSheet
.Hyperlinks.Add Anchor:=.Range("A1"), Address:=Pfad & "\" & Format(NeuesDatum, "YYYY-MM") & " Tagesdokumentation" & ".xlsx"
.Hyperlinks.Add Anchor:=.Range("D1"), Address:=Pfad & "\" & Format(NextMonat, "YYYY-MM") & " Tagesdokumentation" & ".xlsx"
.Hyperlinks.Add Anchor:=.Range("A2"), Address:="", SubAddress:=j & "!A1"
.Hyperlinks.Add Anchor:=.Range("D2"), Address:="", SubAddress:=k & "!A1"
End With
 
With ActiveSheet.Range("A1, D1")
.Font.Size = 18
.Font.ColorIndex = 1
.Font.Underline = False
.Font.Bold = True
 
End With
 
With ActiveSheet.Range("A2, D2")
.Font.Size = 14
.Font.ColorIndex = 1
.Font.Underline = False
 
End With
 
End If
 
Next

 

Wie gesagt kommt der Fehler, nachdem das Programm bereits die ersten Hyperlinks erstellt hat.

Bitte habt im Hinterkopf dass ich mir das autodidaktisch beigebracht habe und dementsprechend der Code vielleicht nicht der eleganteste ist, mir geht es aber um eine konkrete Lösung zu dem Fehler ;)

Danke und Viele Grüße

Jonas

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Hyperlinks, Laufzeitfehler 1004
 09.04.2019 10:40:34 Jonas
NotSolved
09.04.2019 12:21:59 Jonas
NotSolved
12.04.2019 12:43:48 Jonas
NotSolved
12.04.2019 12:58:31 Jonas
NotSolved