Tabellenblatt Suchen und Zelle Kopieren

Hallo zusammen,
ich benötige mal eure Hilfe bei einer VBA.
Folgender Sachverhalt. Ich habe eine Datei Namens Eingang_Monat mit Tabellenblättern von 01 bis 31, d.h. für jeden Tag im Monat ein Tabellenblatt und als Blattname immer das Datum (also 19.10.2022, 20.10.2022 und so weiter). Diese Datei habe ich auf Laufwerk C:.gespeichert. Die zweite Datei ist auf Laufwerk D: gespeichert mit dem Namen Übersicht. Dort ist nur ein Tabellenblatt mit dem Namen Datenbank vorhanden. In diesem ist in der Zelle A1 das Tagesdatum. Jetzt möchte ich mit einem Makro das Anhand vom Datum in A1 die Zellen von Eingang_Monat, im Tabellenblatt 19.10.2022 die Zellen (F6 bis F41) in die Datei Übersicht, Tabellenblatt Datenbank (E6 bis E 41) kopiert werden. Und am nächsten Tag das gleiche aber dann mit 20.02.2022 und so weiter. Ist das in einer VBA möglich?

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo
in ein normales Modul in der Datei Übersicht


Sub Bereich_auslesen()
Dim Pfad As String, Datei As String, Blatt As String, Quelle As String
Dim WB As Workbook, TB As Worksheet, TBZ As Worksheet, RNGZ As Range
'** Angaben anpassen
Set TBZ = ThisWorkbook.Sheets("Datenbank")
Pfad = "E:\Excel\Temp\" 'Bei dir C:\...
Datei = "Eingang_Monat.xlsx"
Blatt = TBZ.Range("A1") 'aus A1 lesen
Quelle = "F6:F41"
Set RNGZ = TBZ.Range("E6") 'Zielbereich
If Dir(Pfad & Datei) = "" Then
MsgBox "Datei nicht gefunden"
Exit Sub
End If
Application.ScreenUpdating = False
Set WB = Workbooks.Open(Pfad & Datei)
'Prüfen ob Blatt existiert
If IsError(Evaluate(Blatt & "!A1")) Then
MsgBox "Datum '" & Blatt & "' nicht vorhanden"
WB.Close False
Exit Sub
End If
Set TB = WB.Sheets(Blatt)
'kopieren
TB.Range(Quelle).Copy RNGZ
WB.Close False
Application.ScreenUpdating = True
End Sub

LG UweD

Sub kopieren() Dim wkbDB As Workbook, wksDB As Worksheet Dim wkbEM As Workbook, wksEM As Worksheet Set wkbDB = Workbooks("Datenbank.xlsx") Set wksDB = wkbDB.Sheets("Übersicht") Set wkbEM = Workbooks("Eingang_Monat") Set wksEM = wkbEM.Sheets(Format(wksDB.Range("A1"), "DD.MM.YYYY")) wksEM.Range("f6:f41").Copy wksDB.Range("e6") End Sub

Beliebteste Forumthreads (12 Monate)

Tabellenblatt Suchen und Zelle Kopieren

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Tabellenblatt Suchen und Zelle Kopieren

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread