hallo zusammen,
ich hab in excel so ca. 1400 dateien. alle fortlaufend numeriert. gibt es in excel (oder weiss jemand ein script) etwas mit dem ich mit einem mausklick die nächsthöhere, bzw. die nächstniedrigere datei aufrufen kann. dieses ewige datei - öffnen - rumscrollen - doppelklicken … und dann wars doch die falsche nervt mich mittlerweile.
danke für die hilfe
cu, wolfgang
Hallo
Einerseits ist das nicht ganz das richtige Forum hier, andererseits kann ich Dir vielleicht doch helfen. Du solltest aber schon etwas mehr veraten. Unter fortlaufend kann man z.B. folgende Konstrakts verstehen:
(so intuitiv ist Dein Rechner bzw. ein Programm nun auch nicht, das man den anschreien könnte Nächste Datei!
1.xls bis
1400.xls
0001.xls
1400.xls
wkb1.xls
wkb1400.xls
wkb0001.xls
wkb1400.xls
etc.
.
.
cheers
hallo,
sorry, bin ich wohl eine etage zu tief abgerutscht bei den foren. das selbe sollte aber auch für word für windows gelten.
die dateien um die es geht sind so mummeriert:
htw0001.xls
…
htw1400.xls
da es ja in excel die funktion „dateinamen einfügen“ gibt dachte ich, es müsste doch eine möglichkeit geben, diese funktion dazu zu benützen die nächstfolgende datei zu laden. ich hab zwar auch schon an hyperlinks gedacht, aber die bei jeder datei nachträglich einzufügen ist mir (noch) ein bisserl zu viel arbeit.
cu, wolfgang
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
hello again
Als was Word betrift, geht das so:
Sub NaechsteDateiOeffnen()
Dim nDoc As Document
Pfad = ActiveDocument.Path
AktuelleDatei = Dir(Datei)
Suffix = Right(AktuelleDatei, 4)
pos = Val(Mid(AktuelleDatei, Len(AktuelleDatei) - 8 , 4))
pos = pos + 1
ActiveDocument.Close
Set nDoc = Documents.Open(FileName:=Pfad & „“ & Format(pos, „0000“) & Suffix
End Sub
.
.
cheers
hello again
Da wrwn Fehler drin, also nochmals:
Für Excel :
Sub NaechsteArbeitsmappeOeffnen()
Dim wkb As WorkBook
Pfad = ActiveWorkbook.Path
Datei = ActiveWorkbook.Name
Präfix = Mid(Datei, 1, Len(Datei) - 8)
Korr = Val(Mid(Datei, Len(Datei) - 7, 4))
Korr = Korr + 1
Korr = Format(Korr, „0000“)
Suffix = Right(Datei, 4)
DateiNeu = Pfad & „“ & Präfix & Korr & Suffix
Set wkb = Workbook.Open(FileName:=DateiNeu)
ActiveWorkBook.Close
End Sub
Für Word :
Sub NaechstesDokumentOeffnen()
Dim nDoc As Document
Pfad = ActiveDocument.Path
Datei = ActiveDocument.Name
Präfix = Mid(Datei, 1, Len(Datei) - 8)
Korr = Val(Mid(Datei, Len(Datei) - 7, 4))
Korr = Korr + 1
Korr = Format(Korr, „0000“)
Suffix = Right(Datei, 4)
DateiNeu = Pfad & „“ & Präfix & Korr & Suffix
ActiveDocument.Close
Set nDoc = Documents.Open(FileName:=DateiNeu)
End Sub
cheers
vielen dank
ich probiers demnächst aus und sag dir dann bescheid, wenns geklappt hat.
viele grüße, wolfgang