='N:\Benutzer\Praktikant_LV\Matthias\Projekt Prognosegüte\Prognosegüte\[01.01.2002.xls]Prognosegüte'!B16
Willst du die Datei per Makro öffnen?
Gruß
F.
='N:\Benutzer\Praktikant_LV\Matthias\Projekt Prognosegüte\Prognosegüte\[01.01.2002.xls]Prognosegüte'!B16
die Ursache für die Nichtbeantwortung von Fragen ist oft darin begündet, dass die Frage nicht verstanden wurde. Es ist empfehlenswert, die Frage beim nächsten InsBoardStellen anders zu formulieren.
Ich habe die Link-Syntax getestet und konnte - trotz des nicht gerade WindowsLiken Dateinamens - kein Problem feststellen. Alles deutet daraufhin, dass entweder die Arbeitsmappe oder die Tabelle in der Arbeitsmappe nicht gefunden wurde. Oft liegt es daran, dass dem Tabellenblattnamen noch unabsichtlich eine Leertaste hinzugefügt wurde.
Als Empfehlung für Dateinamen mit Datum folgende Syntax:
jjmmtt.xls
Diese Vorgehensweise bringt eine Reihe von Vorteilen mit sich.
hans
Dim y As String
y = ActiveWorkbook.Path
y = y & "\"
' mal ins richtige sheet wechseln
Sheets("Prognosegüte Stundenintervall").Select
' mal gucken, welches datum da überhaupt drinnen steht
Dim x As String
If Worksheets("Prognosegüte Stundenintervall").Range("A2") = "01.01.2002 01:00:00" Then x = "01"
If Worksheets("Prognosegüte Stundenintervall").Range("A2") = "01.02.2002 01:00:00" Then x = "02"
If Worksheets("Prognosegüte Stundenintervall").Range("A2") = "01.03.2002 01:00:00" Then x = "03"
If Worksheets("Prognosegüte Stundenintervall").Range("A2") = "01.04.2002 01:00:00" Then x = "04"
If Worksheets("Prognosegüte Stundenintervall").Range("A2") = "01.05.2002 01:00:00" Then x = "05"
If Worksheets("Prognosegüte Stundenintervall").Range("A2") = "01.06.2002 01:00:00" Then x = "06"
If Worksheets("Prognosegüte Stundenintervall").Range("A2") = "01.07.2002 01:00:00" Then x = "07"
If Worksheets("Prognosegüte Stundenintervall").Range("A2") = "01.08.2002 01:00:00" Then x = "08"
If Worksheets("Prognosegüte Stundenintervall").Range("A2") = "01.09.2002 01:00:00" Then x = "09"
If Worksheets("Prognosegüte Stundenintervall").Range("A2") = "01.10.2002 01:00:00" Then x = "10"
If Worksheets("Prognosegüte Stundenintervall").Range("A2") = "01.11.2002 01:00:00" Then x = "11"
If Worksheets("Prognosegüte Stundenintervall").Range("A2") = "01.12.2002 01:00:00" Then x = "12"
' na jetzt weiß ich ja welches datum drin steht, jetzt kann ich auch schon die formeln reinschreiben
Worksheets("Prognosegüte Stundenintervall").Range("B2").Formula = "=" & y & "[01." & x & ".2002.xls]Prognosegüte!B2"
guck dir das mal an, wenn ich das so mache bekomm ich sogar einen laufzeitfehler beim ausführen, und zwar sobald er bei der letzten zeile angekommen ist...
und die formeln sind 100% ident, ich habs jetzt nochmal überprüft!
was soll ichn jetzt machen? das ding sollte eigentlich so funktionieren, wie ich es geschrieben habe aber aus einem grund, den warscheinlich keiner weiß, tut es das doch nicht!
hans
Sheets("Prognosegüte Stundenintervall").Select
Range("B2").Select
ActiveCell = FormulaR1C1 = "=" & y & "[01." & x & ".2002.xls]Prognosegüte!B2"
Probiers mal!
wieso hat es vorhr nicht geklappt? und warum der laufzeitfehler?
ich danke dir auf jeden fall!
eins würd ich noch gerne wissen, was hat es mit dieser zeile auf sich?
Mid(Range("A2").Value, 4, 2) & _
den 2er durch ein x ersetzen und dann in einer for-schleife von 2 bis 722 zählen und x immer um 24 erhöhen
das is kein problem, ich wüsste nur gerne, wie ich die formel umschreibe, damit er das x annimmt!
muß ich eigentlich vor einer vor-schleife auch dim x as integer schreiben?
mfg matthias
oder, falls alle 2er durch x ersetzt werden sollen:
Worksheets("Prognosegüte Stundenintervall").Range("B" & x).AutoFill Destination:=Range("B" & x & ":Y" & x), Type:=xlFillDefault
HTH, Matthias