Datenabruf aus dynamischer Tabelle

Hallo,

ich habe eine Datei "(Tabelle 1 (automatisch) - Kopie" https://www.herber.de/bbs/user/159596.xlsx
In dieser Datei die ich täglich automatisiert erhalte, werden die Umsätze der Mitarbeiter aufgeführt.
Diese Datei ändert sich täglich um das Datum in Zelle B1 und führt die entsprechend monatlich aufgelaufenen Umsätze pro Produkt BIS inklusive dem Datum in Zelle B1.

Ich brauche nun in "Tabelle 2 Auswertung - Kopie", https://www.herber.de/bbs/user/159597.xlsx die Umsätze aus Tabelle 1 pro Mitarbeiter und Produkt für den jeweiligen Tag in Spalte A. In Spalte A habe ich nun nur den 16.06. sowie 17.06. für Demozecke eingefügt. Spalte A wird bis 31.12.2023 vorausgefüllt sein.

Mit xverweis oder ähnlichem kann ich nicht arbeiten, da das Datum in Tabelle 1 ja täglich wechselt.

Gibt es eine Lösung hierfür?

Vielen Dank schon jetzt an jeden von Euch der sich hiermit befasst
Viele Grüße
Marcus

Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

Hallo

anbei ein getestetes Makro, bei mir funktioniert es, was du selbst beliebig erweitern kannst. Klein aber oho!

Es verwendet den im Forum Nie benutzten -Go

Sub Code-, wodurch du das Makro selbst erweitern kannst!
Du musst nur deinen Pfad und deinen Dateinamen in Const angeben, da steht zum Testen "Herber Forum"
Die eigentliche Arbeit erledigt das GoSub Unterprogramm, auch das kannst du selbst beliebig erweitern.
PS - Die Datumspalte in Auswertung muss noch formatiert werden!

mfg Piet

Option Explicit    '16.6.2023  Piet  für Herber Forum
Const sPfad = "H:\Forum Herber 2023\Anfrage offen\"
Const Datei = "159596  Tabelle1"   'deine Datei angeben!

Sub Auswertung()
Dim Sht As String, lz1 As Long
Dim WbEx As Workbook, ShtEx As Worksheet
On Error GoTo Fehler
Set WbEx = Workbooks.Open(Filename:=sPfad & Datei)

With ThisWorkbook
     Sht = "Mitarbeiter A":  GoSub ausfüllen
     Sht = "Mitarbeiter B":  GoSub ausfüllen
     'mit Sht = Namen beliebig erweiterbar!
     WbEx.Close savechanges:=False
     Exit Sub

ausfüllen:  'Sub Programm mit Return!
   With .Worksheets(Sht)
      lz1 = .Cells(Rows.Count, 1).End(xlUp).Row + 1
      .Cells(lz1, 1) = WbEx.Worksheets(Sht).Range("B1")
      .Cells(lz1, 2) = WbEx.Worksheets(Sht).Range("B3")
      .Cells(lz1, 3) = WbEx.Worksheets(Sht).Range("B5")
      .Cells(lz1, 4) = WbEx.Worksheets(Sht).Range("B7")
      Return
   End With
End With

Fehler:  MsgBox "Öffnen Fehler - bitte Pfad + Datei prüfen"
End Sub

Beliebteste Forumthreads (12 Monate)

Datenabruf aus dynamischer Tabelle

1 Beitrag zum Forumthread Beitrag zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread