ich möchte gerne in die Excel-Datei Tagesprognose Daten aus einer Beispieldatei reinkopieren.
Das Programm soll dabei erst in Spalte B der Beispieldatei das aktuelle Datum finden und dann die Werte aus den dazugehörigen Spalten 6, 7 und 8 kopieren und in die Zeile 6, Spalte 3, 4 und 5 der Tagesprognose einfügen.
Die Beispieldatei liegt auf Laufwerk C:\Personalplanung\ Beispieldatei.xlsm
Bekomme immer "Laufzeitfehler `9`
Index außerhalb des gültigen Bereichs" angezeigt
Kann mir jemand dabei weiterhelfen?
Danke!
Gruß
Carsten
Option Explicit Sub test() Application.ScreenUpdating = False 'Bildschirm einfrieren Application.DisplayAlerts = False 'Abfragen unterdrücken Dim geoeffnet As Boolean Dim a As Long, i As Long Dim LWB As String Dim wb As Workbook Dim wsQuelle As Worksheet Dim wsZiel As Worksheet LWB = Left(ThisWorkbook.Path, 1) 'feststellen, ob Mappe bereits offen For Each wb In Application.Workbooks If wb.Name = "Beispieldatei.xlsm" Then geoeffnet = True Next wb 'entsprechend reagieren If geoeffnet Then Workbooks("Beispieldatei.xlsx").Activate Else Workbooks.Open Filename:=(LWB & ":\Personalplanung \Beispieldatei.xlsm"), _ UpdateLinks:=0 End If a = 6 For i = 1 To 10000 With Worksheets("Tourenberechnung") If .Cells(i, "B") = Date Then Worksheets("Tagesmeldung").Cells(a, 3).Value = Worksheets("Beispieldatei").Cells(i, 6).Value Worksheets("Tagesmeldung").Cells(a, 4).Value = Worksheets("Beispieldatei").Cells(i, 7).Value Worksheets("Tagesmeldung").Cells(a, 5).Value = Worksheets("Beispieldatei").Cells(i, 8).Value a = a + 1 End If End With Next i Workbooks("Beispieldatei.xlsm").Close saveChanges:=False Application.ScreenUpdating = True 'Bildschirm freigeben Application.DisplayAlerts = True 'Abfragen gestatten End Sub