Hallo Zusammen,
ich will mittels Makro, Werte, aus einer Tabelle in eine zweiten Tabelle dem entsprechendem Datum zuordnen.
Mein Makro sieht folgendermaßen aus:
Dim ImportDatei As Variant
Dim wb1 As Workbook
Dim wb2 As Workbook
Dim ws1 As Worksheet
Dim ws2 As Worksheet
Dim zelles As Range
Dim bereichs As Range
Dim datum As Date
On Error Resume Next
ChDrive "L:"
ChDir "L:\WE_LG_Kennzahlen"
ImportDatei = Application.GetOpenFilename(FileFilter:="Microsoft Excel-Dateien (*.xlsx), *.xls", Title:="Eine Datei auswählen")
If ImportDatei = False Then Exit Sub
If ImportDatei = "" Then Exit Sub
Set wb1 = ThisWorkbook
Set ws1 = wb1.Worksheets("WE")
Set wb2 = Workbooks.Open(ImportDatei)
Set ws2 = wb2.Worksheets("Auswertungen KPI")
wb2.Worksheets("Auswertungen KPI").Activate
datum = wb2.Sheets("Auswertungen KPI").Range("B33").Value
datum = CDate(FormatDateTime(datum, vbShortDate))
ws2.Range("B34:AK34").Copy
Set bereichs = ws1.Range("N1").EntireRow
Set zelles = bereichs.Find(What:=datum, LookAt:=xlWhole, LookIn:=xlValues)
If zelles Is Nothing Then
MsgBox "Das Datum existiert nicht"
Exit Sub
End If
ws1.Activate
zelles.Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
leider komme ich mit meinen bescheidenen VBA-Kenntnissen nicht weiter. Kann mir bitte jemand helfen?
Vielen Dank
Nadine