Werte aus verschiedenen tabellen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Zu Deiner Datei kann ich nichts schreiben, was wohl daran liegt das ich nicht auf fremde Rechner schaue.Ich baue keine Datei nach.
Sollte die Datei verlinkt werden?
Wenn du an Stelle einer Demomappe deine Originalmappe hochladen willst, diese aber sensible Daten enthält, kannst du diese Daten
http://www.ms-office-forum.de/forum/showthread.php?t=322895
ändern.
Bilder lade ich mir nicht runter, da Excel damit nichts anfangen kann.
http://www.excel-ist-sexy.de/bilder-statt-datei/
Hochgeladene Bilder können zwar als solche in Excel importiert werden, sind jedoch bei der Lösung von Problemen nicht sehr hilfreich, da man die eigentlichen Daten nicht ohne große und zeitraubende Umwege direkt in die Tabelle übertragen kann.
Das ist nur meine Meinung zu dem Thema.
http://www.excel-ist-sexy.de/bilder-statt-datei/
Hochgeladene Bilder können zwar als solche in Excel importiert werden, sind jedoch bei der Lösung von Problemen nicht sehr hilfreich, da man die eigentlichen Daten nicht ohne große und zeitraubende Umwege direkt in die Tabelle übertragen kann.
Das ist nur meine Meinung zu dem Thema.
Gruß Hajo


Sub Test()
End Sub

Sub Makro1()
' Makro1 Makro
' Tastenkombination: Strg+y
ActiveWindow.ScrollRow = 187
ActiveWindow.ScrollRow = 179
ActiveWindow.ScrollRow = 172
ActiveWindow.ScrollRow = 141
ActiveWindow.ScrollRow = 62
ActiveWindow.ScrollRow = 9
Range("E9").Select
Workbooks.Open Filename:= _
"\\xxx-yyy\user$\ddd.eee\Documents\QM\Abfrage \Meldungen\2020\12345 Text1.xlsx"
ActiveWindow.Visible = False
Windows("12345 Text1.xlsx").Visible = True
Sheets("1. Deckblatt").Select
ActiveWindow.SmallScroll Down:=30
Range("I54:K54").Select
Selection.Copy
ActiveWindow.Close
Range("G9").Select
ActiveSheet.PasteSpecial Format:="Unicode-Text", Link:=False, _
DisplayAsIcon:=False, NoHTMLFormatting:=True
End Sub

Sorry hat etwas gedauert, das war schwer für mich. Wurde mit dem Macro-recorder erzeugt und die Pfade namentlich verändert.

Sub Makro1() Dim i As Long, wbQuelle As Workbook Application.ScreenUpdating = False With ThisWorkbook.Worksheets("Sheet1") For i = 3 To .Cells(.Rows.Count, "B").End(xlUp).Row If .Cells(i, "B") "" Then Set wbQuelle = Workbooks.Open _ ("\\xxx-yyy\user$\ddd.eee\Documents\QM\Abfrage\Meldungen\2020\" _ & .Cells(i, "B") & ".xlsx") wbQuelle.Worksheets("1. Deckblatt").Range("I54:K54").Copy .Cells(i, "C").PasteSpecial Format:="Unicode-Text", link:=False, _ displayasicon:=False, noHtmlformatting:=True wbQuelle.Close False End If Next i End With End Sub

Sub Makro1() Dim i As Long, wbQuelle As Workbook Application.ScreenUpdating = False With ThisWorkbook.Worksheets("Sheet1") For i = 3 To .Cells(.Rows.Count, "B").End(xlUp).Row If .Cells(i, "B") "" Then Set wbQuelle = Workbooks.Open _ ("\\C:\Users\xxx.yyy\Desktop\Neuer Ordner\" _ & .Cells(i, "B") & ".xlsx") wbQuelle.Worksheets("Sheet1").Range("I54:K54").Copy .Cells(i, "C").PasteSpecial Format:="Unicode-Text", link:=False, _ displayasicon:=False, noHtmlformatting:=True wbQuelle.Close False End If Next i End With End Sub

Beliebteste Forumthreads (12 Monate)

verwendete Formeln
Zelle	Formel	Bereich	N/A
D17	=INDIREKT("'[" & C17 &"]Tabelle1'!$A$1")

	C	D
17	Link von Seite_Strato.xlsm	123

23 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

23
Beiträge zum Forumthread

Beiträge zu diesem Forumthread