Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
812to816
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
812to816
812to816
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Hyperlink

Hyperlink
27.10.2006 10:33:18
Sebastian
Guten morgen zusammen,
habe ein kleines Problem mit einem Hyperlink. Ich möchte gerne ein Excel File über ein Hyperlink öffnen und dieses Workbook dann aktivieren. Also das öffnen funktioniert, aber irgendwie bleib ich im alten Workbook. Das ganze mach ich um per Makro automatisch bestimmte Bereiche aus dem per Hyperlink geöffneten Workbook in das alte Workbook zu kopieren. Hoffe es kann mir jemand weiterhelfen. Danke
Grüße aus Stuttgart
Sebastian
Hier mal mein Code:
For i = 16 To Cells(Rows.Count, 17).End(xlUp).Row
If wks1.Cells(i, 9) = "" Then
GoTo ENDE
Else
sFile = wks1.Cells(i, 9)
sBlatt = wks1.Cells(i, 3)
Sheets(sBlatt).Visible = True
Sheets(sBlatt).Rows("1:1000").Delete Shift:=xlUp
Sheets(sBlatt).Activate
ActiveWindow.Zoom = 75
wks1.Cells(i, 9).Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
wkb2 = ***HIER BRÄUCHTE ICH IRGENDWIE DEN NEUEN WORKBOOK NAMEN***
With Workbooks(wkb1).Sheets(sBlatt)
Set Bereich1 = Workbooks(wkb2).Sheets("Consolidation").Range("Nomi_List_Consolidation")
Set Bereich2 = Workbooks(wkb1).Sheets(sBlatt).Cells(1, 1)
Workbooks(wkb2).Activate
Sheets("Consolidation").Select
Bereich1.Select
Selection.Copy
Workbooks(wkb1).Activate
Sheets(sBlatt).Select
With Bereich2
.Insert Shift:=xlDown
End With
End With
Next i

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Hyperlink
27.10.2006 15:04:12
Anton
Hallo Sebastian,
das Aufrufen einer Datei gliedert sich in 3 Teile:
Deklarieren was Dein Aufruf-Name ist:
Dim Exceldatei as String
Deklariere den Dateinamen, damit VBA die Datei mit Deinem Namen verknüpft:
Exceldatei = "Deine-Datei.xls"
oder
Exceldatei = "c:\Eigene Dateien\Ordner2\Deine-Datei.xls"
und schließlich der aktivierungsaufruf:
Windows(Exceldatei).Activate
Ich hoffe Du kommst damit klar.
Servus,
Anton
PS: Du kannst auch jedes andere Wort benutzen statt "Exceldatei".
Bitte achte auch auf die Groß- und Kleinschreibung.
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige