Erstmal allen ein schönes 2003.
Kann mir jemand sagen,was bei diesem code nicht stimmt?
Wenn ich bei der Abfrage der TQ-Inputbox die Default-Einstellung wähle klappts.Tippe ich jedoch z.b. Mai ein,gibt mir
VBA folgende Fehlermeldung :Index außerhalb des gültigen Bereiches.
Sub Datenimport()
Dim Pfad As String
Dim Quelle As String
Dim TQ As String
Dim Ziel As String
Dim ZielD As Workbook
Dim ZielT As Worksheet
Pfad = InputBox("Geben Sie bitte den Pfad ein", Default:="C:\Test\")
Quelle = InputBox("Geben Sie bitte den Namen der Quelldatei ein!", Default:="MeineDatei.xls")
TQ = InputBox("Geben Sie bitte den Berichtsmonat ein!", Default:="Tabelle1")
Ziel = "C:\Test\MeineDatei2.xls"
Workbooks.Open (Ziel)
Workbooks.Open (Pfad & Quelle)
Set ZielD = Workbooks("MeineDatei2.xls")
Set ZielT = ZielD.Worksheets("Tabelle1")
ZielT.Range("C3") = Workbooks(Quelle).Worksheets(TQ).Range("A1")
ZielT.Range("C4") = Workbooks(Quelle).Worksheets(TQ).Range("A2")
ZielT.Range("C5") = Workbooks(Quelle).Worksheets(TQ).Range("A3")
End Sub
Danke im Voraus
mfg
majdi