Excel 2000 Zelleninhalt aus neuster Datei einfügen

Computer: Software & Programmierung Visual Basic
#1

Hallo,
ich habe leider keine wirklichen VBA Grundkenntnisse und habe mir einen Code aus verschiedenen Vorschlägen zusammengeschrieben. Es soll die neuste datei im Ordner gefunden werden (klappt) und dann im aktiven Workbook der Inhalt einer Zelle aus der Datei eingefügt werden (klappt nicht mehr). Meiner Meinung nach ist nur ein „“ zu viel, aber ich habe keine Ahnung wo das herkommt. Kann mir bitte wer helfen?

Sub chart()
’ jüngste Datei feststellen
Dim strVerzeichnis As String
Dim StrDatei As String
Dim I As Integer
Dim StrTyp As String
Dim Dateiname As String
Dim Dateiname_neu As String
Dim Zeit As Date
'Pfad für die Metric Dateien
strPath = „D:\Eigene Dateien\Metrics“
StrTyp = „*.xls“
Dateiname = Dir(strPath & StrTyp)
Dateiname_neu = Dateiname
Zeit = FileDateTime(strPath & Dateiname)

Do While Dateiname „“
If Zeit

#2

Hallo Riela,

ich hab mir jetzt den Code zum dritten Mal angesehen und kann da nix erkennen. Hat ja nix zu bedeuten :smile:

Mein Tipp wäre, gehe mal im Editor den Code mit F8 durch. Also Cirser in den Code irgendwo reinstellen und laufend F8 drücken.

Wenn du dabei die Maus über Variablen setzt siehst du deren Inhalt.

Wenn das noch nix bringt.

Setze vor bzw. nach einem Befehl eine Msgbox. (Debug.Print gibts auch wenn du das kennst)

Also so, vor, nach
Dateiname = Dir
schreibst du MsgBox Dateiname

Bei
Cells(2, l).FormulaR1C1 = „=[“ & Dateiname_neu & „]metric!R1C2“

schreibst du msgbox Cells(2, l).FormulaR1C1
in die zeile danach.

Schau mal ob du damit weiterkommst. Wenn nicht schauen wir weiter.

Gruß
Reinhard

#3

Wenn eine Referenz nicht gefunden wird, wird der Pfad angegeben damit mann wohl weiss wo es scuht gell :smile:
Leider ist excel problematisch, gleiche dateinamen in unterschiedlichen verzeichnissen führen zu einem Error . Komischerweise interressiert es Excel in falle des öffnen nicht das sie ganz woanders liegt lol, ein mega unsinn der schon seit anfang excel da ist.

bei mir steht also bei fehlender Datei
=‚D:\Users\sheinatz\Dokumente[neu1.xlsx]Tabelle2‘!$C$12

und sag nicht das wirklich das da steht ?
'D:\Eigene

Dateien\Metrics\[DMP_Metric_29.06.2010.xls]metric’!$B$1

wo ist das gleichheitszeichen am anfang geblieben ?

trag mal manuel ein

=‚D:\Eigene Dateien\Metrics[DMP_Metric_29.06.2010.xls]metric‘!$B$1

geht das denn ?

ansonsten ist wohl eh was falsch :frowning:

#4

Vielen Dank für eure Antworten.
Das „=“ hatte ich nur vergessen hier zu schreiben, das stand natürlich in der Zelle drin.
Es funktioniert jetzt auf jeden Fall, ich weiß aber immer noch nicht woran es lag… :wink:
Habe an dem Code nichts geändert…

Gruß
Riela