Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1916to1920
1916to1920
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Zugriff auf Dateien m. Hyperlink

Forumthread: VBA Zugriff auf Dateien m. Hyperlink

VBA Zugriff auf Dateien m. Hyperlink
07.02.2023 13:40:11
mb12
Hallo liebe Helfer*innen,
mein aktuelles Problem:
Ich habe über mehrere Jahre die Daten für neue Projekte in Excel erfasst, je nach Bereich in Ordner und Unterordner gespeichert. Die Pfadstruktur ist immer die gleiche.
Jetzt fragt die GF nach Daten, die in jeder Datei im gleichen Zellbereich C9:N9 gespeichert sind.
C9 ist eine Zahl, alle anderen Text.
Per Makro habe ich in meine „Suchdatei“ alle Dateien geholt und in Spalte A eingefügt, den Pfad in C, daraus C&A als Hyperlink in Spalte D.
Den Rest möchte ich entweder per Formel oder – bevorzugt – mit VBA lösen.
Ich habe mal die Daten für 3 (von ca. 400) Zeilen per Hyperlink geholt, jeweils ab Spalte D eingefügt und alles mit Makrorecorder aufgezeichnet. Die Datei zu anonymisieren wäre ein großer Aufwand. Vielleicht geht es ja auch so:
Sub holen_Test()
  Range("D2").Select
    Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
    Range("C9:N9").Select
    Selection.Copy
    ActiveWindow.Close
    Range("F2").Select
    ActiveSheet.Paste
Range("D3").Select
    Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
    Range("C9:N9").Select
    Selection.Copy
    ActiveWindow.Close
    Range("F3").Select
    ActiveSheet.Paste
    
Range("D4").Select
    Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
    Range("C9:N9").Select
    Selection.Copy
    ActiveWindow.Close
    Range("F4").Select
    ActiveSheet.Paste
    
End Sub
Kann mir jemand mit einem vernünftigen Makro helfen?
Vielen Dank im Voraus,
LG, Margarete
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Zugriff auf Dateien m. Hyperlink
07.02.2023 14:04:30
Fennek
Hallo,
warum nicht 
dim WB as workbook
for i = 2 to cells(rows.count,1).end(xlup).row
    set wb = workbooks.open(cells(i,1))
     wb.sheets(1).Range("C9:N9").copy cells(i,2)
     wb.close 0
next i

ungeprüft
mfg
(kein Bad im reichen All?)
AW: VBA Zugriff auf Dateien m. Hyperlink
07.02.2023 14:30:17
mb12
Danke schön, Fennek,
damit kann ich arbeiten.
LG, Margarete
Anzeige
AW: VBA Zugriff auf Dateien m. Hyperlink
07.02.2023 14:47:05
mb12
Hallo Fennek,
das Öffnen und kopieren funktioniert, aber das Makro versucht den Bereich in das WB Zeile 2 einzufügen anstatt in die Ausgangsdatei
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
Set WB = Workbooks.Open(Cells(i, 4)) 'Spalte D
WB.Sheets(1).Range("C9:N9").Copy Cells(i, 6) ' muss in die Ausgangsdatei ab Spalte F eingefügt werden
WB.Close 0
Next i
End Sub
Anzeige
AW: VBA Zugriff auf Dateien m. Hyperlink
07.02.2023 14:53:12
Fennek
So ist es besser referenziert:
dim WB as workbook, WS as worksheet
set ws = activesheet
 
 for i = 2 to cells(rows.count,1).end(xlup).row
     set wb = workbooks.open(cells(i,1))
      wb.sheets(1).Range("C9:N9").copy ws.cells(i,2)
      wb.close 0
 next i
mfg
wieder ungeprüft
Anzeige
AW: VBA Zugriff auf Dateien m. Hyperlink
09.02.2023 06:55:41
mb12
Hallo Fennek,
genau das hat gefehlt. Ich habe noch einiges angepasst, außerdem eine Pseudo-Fehlerbehandlung eingefügt, da nicht alle DS aktuell waren: 
Sub Fennek_Daten_holen()
Dim WB As Workbook, WS As Worksheet
Set WS = ActiveSheet
 
' For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
    'oder
 For i = 2 To 15
     On Error Resume Next
     
     Set WB = Workbooks.Open(Cells(i, 4))
      WB.Sheets(1).Range("C9:N9").Copy      
      WS.Cells(i, 6).PasteSpecial xlPasteValues
      WB.Close 0
      
 Next i
End Sub
Nochmal vielen Dank, Margarete
Anzeige
;

Forumthreads zu verwandten Themen

Formel über VBA in Range.
Tom

Hi,
ich Versuch eine Summenformel
=SUMME(A3:A29)
verzweifelt über VBA dynamisch einzutragen.
Die Summe muss von A bis J eingetragen werden. Jedesmal mit dem entpsrechenden Buchstaben nicht immer mit A.
Hab das so versucht:
For k = 2 To 10 'Range(Cells(k, 29), Cells(...
13.08.2008 11:41:00
Thread-ID: 1001455
4 Beiträge
Anzeige
Register der Multifunktionsleiste per VBA aktivier
Günther

Hallo!
Ich würde gerne per VBA das aktive Register der Multifunktionsleiste verändern (konkret: das Register Add-Ins aktivieren, damit dessen Inhalte im Vordergrund sichtbar werden).
Kennt jemand den entsprechenden Befehl? Wenn ja, mir bitte kurz mitteilen.
Herzlichen Dank im Voraus...
23.11.2008 17:51:53
Thread-ID: 1027119
4 Beiträge
VBA Progr. Schleife- Doppelklick in Zelle
Jeebee

Guten Morgen,
Habe in Excel folgendes Problem: Ich übernehme eine Tabelle aus SAP. Leider Sind die Zahlen dort nicht als Zahl definiert sondern als Text. Jede Zahl zB. 33,01- hat einen Bindestrich hinten dran. Dass ich den wegkriege konnte ich bereits mit "Makro aufzeichnen" lösen.
Dies...
07.03.2009 09:56:05
Thread-ID: 1057531
3 Beiträge
VBA code für automatischen Rechts-Shift
Markus

Hallo Zusammen,
hat jemand eine Idee für einen VBA code zu folgendem Problem
(siehe https://www.herber.de/bbs/user/61304.xls)
:
In Spalte S finden sich verschiedene Werte. Die Spalte S soll nun durchsucht werden. Wenn in der Zelle EUR steht, dann soll dann soll wenn dies z.B. Z...
20.04.2009 11:05:39
Thread-ID: 1069746
3 Beiträge
VBA Laufschrift: Zeitgrenze definieren
dieter(drummer)

Excle/VBA SoLaLa
Hi VBA Profis,
habe aus dem Forum folgendes Makro in meiner Arbeitsmappe, Modul2. Es bewirkt, das in der aktiven Tabelle, hier TAB4, in Zelle B5 eine vorhandener Text als Laufschrift abläuft.
Makro (Verfasser hatte ich leider nicht notiert):
Declare Sub Sleep...
23.10.2009 16:56:17
Thread-ID: 1111654
3 Beiträge
Range Bezüge in VBA von fix auf relativ umstellen
fix

Hallo Herber Fans,
ich ermittle einen Range:
Set rgGPTMember_Source = Intersect(rgGPTMemberAugmentation.Rows(1).Find("GPT Member", LookIn:=xlValues, LookAt:=xlWhole).EntireColumn, rgGPTMemberAugmentation)
Dessen Adresse lautet dann: $G$5:$G$34
Dieser Range wird nun in eine Namen...
07.01.2010 21:06:12
Thread-ID: 1128031
7 Beiträge
VBA Schleife mit Bedingung
Benjamino

Hallo zusammen,
bin ein blutiger VBA-Neuling und versuche bislang erfolglos mein Problem zu lösen. Wäre unendlich dankbar, wenn mir jemand weiterhelfen könnte.
Das unten stehende Makro "Makro2" soll solange durchlaufen werden, bis in der Spalte A im Sheet "Readme" keine befüllte Zellen...
20.03.2010 23:25:52
Thread-ID: 1147311
5 Beiträge
VBA If-Fkt mit Teilstring
Jonathan

Hallo liebe Experten,
ich bekomme es einfach nicht hin...
Ausgangssituation:
2 Dateien mit Adressdaten (1 Zeile A-H) enstpricht einer Adresse.
Jede Adresse hat in Spalte A eine Adressnummer, quasi als Primärschlüssel
Folgender Code vergleicht die Datei "Freizeitliste_XY500.x...
13.05.2010 14:52:18
Thread-ID: 1156910
7 Beiträge
Mit VBA Zugriff auf ein pdf-Dokument
Gregor

Hallo zusammen
Ich möchte in einer Excel Tabelle aus einem pdf Vornamen und Namen kopieren. Dabei muss ich in einem e-Book (pdf) nach dem Begriff "Erstellerautor" suchen, und dann die jeweiligen Namen NACH diesem Suchgegriff kopieren und in einer Excel-Tabelle einfügen. Das e-Book ist alpha...
18.08.2010 16:48:01
Thread-ID: 1172920
3 Beiträge
VBA: If-Fkt mit Teilstring - Daten aktualisieren
Joe

Hallo liebe Experten,
ich stehe mal wieder vor einer Hürde, bei der ich eure Hilfe bräuchte.
Folgender Code sucht in einer Adressdatei (adressen.xls) nach einer Nummer (Spalte Q). Diese Nummer steht in einer Zelle in welcher noch weitere, durch Komme getrennte, Nummern stehen können.
24.08.2010 13:10:36
Thread-ID: 1173865
2 Beiträge
If ActiveWorkbook.Name <> ThisWorkbook.Name Then E
Heinz

Hallo Leute
Hatte im Jänner im Forum angefragt.
Habe einen Schichtplan mit vielen Makros, und Protect mit Passort.
Wenn ich in der Firma den Schichtplan öffne UND eine andere Exceltabelle öffne,das dort auch der Blattschutz reinkommt.
Warum ?
Nun hatte ich einen Lösungsvorsc...
10.03.2011 12:48:10
Thread-ID: 1205143
6 Beiträge
VBA Schleife Farbhintergrund setzen
Dieter(Drummer)

Hi VBA Spezislisten,
suche ein VBA Lösung: Der Bereich ist A4 bis AH34! Ab der aktiven Zelle sollen 3 Zellen BLAU, die nächsten 3 ROT und die nächsten 3 GRÜN Hintergrund gefärbt werden. Dann wieder mit ROT usw. beginnen. Dies soll sich max. bis Zeile 34 der aktiven Spalte wiederholen.
D...
27.04.2011 12:53:49
Thread-ID: 1211980
14 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige