bezuege per makro aendern

Informationen und Beispiele zu den hier genannten Dialog-Elementen:


Excel-Version: 97/2000
nach unten

Betrifft: bezuege per makro aendern
von: th.heinrich
Geschrieben am: 17.04.2002 - 16:48:08

bestes Forum,

ich oeffne eine datei als jahr, z.b. 2002.xls.
diese datei enthaelt bezuege zum vorjahr, also 2001.xls.
beim jahreswechsel wird nun 2002.xls als 2003.xls gespeichert, dementsprechend sollen sich die bezuege auf 2002.xls aendern.
bei folgendem makro erhalte ich eine fehlermeldung.


Sub Makro2()
Dim vj, jahr As Variant

    vj = InputBox("bitte vorjahr eingeben", , Format(NumberFormat, "0000"))
    If vj = "" Then GoTo ende
    ChDir "C:\Umsatz"
    Workbooks.Open FileName:=vj, UpdateLinks:=3
    jahr = InputBox("bitte aktuelles jahr eingeben", , Format(NumberFormat, "0000"))
    If jahr = "" Then GoTo ende
    ActiveWorkbook.SaveAs FileName:=jahr, FileFormat:=xlNormal _
        , Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
    ActiveWorkbook.ChangeLink Name:=vj - 1, NewName:= _
        jahr - 1, Type:=xlExcelLinks
ende:
End Sub

es liegt wahrscheinlich an vj-1 bzw. jahr-1, aber mir faellt nichts besseres ein.

danke fuer hilfe von thomas

nach oben   nach unten

Re: bezuege per makro aendern
von: Walerij Riffel
Geschrieben am: 17.04.2002 - 17:04:35

Hallo th.heinrich, probier mal bei deiner Variable "vj" ein ".xls" anzuhängen. vj = vj & ".xls" Es ist aber sogar besser den ganzen pfad mitzugeben. VIEL ERFOLG

nach oben   nach unten

Mal ganz anders
von: Martin Beck
Geschrieben am: 17.04.2002 - 17:05:06

Hallo Thomas, 1. Datei 2001.xls und 2002.xls öffnen. 2. Datei 2001.xls unter 2001alt.xls und 2002.xls als 2003.xls speichern. 3. Datei 2001alt.xls schließen. 4. Datei 2002.xls öffnen und unter 2001alt.xls speichern. 5. Datei 2001alt.xls unter 2002.xls speichern. 6. Datei 2003.xls speichern. 7. Datei 2001alt.xls löschen. Ich hab's nur grob getestet, hoffentlich funktioniert's. Gruß Martin Beck

nach oben   nach unten

Re: Mal ganz anders
von: th.heinrich
Geschrieben am: 17.04.2002 - 19:27:15

hallo Martin, hab ich schon probiert und komme dabei selbst ins schleudern. (alt...neu..usw.) das makro soll fuer einen user sein. schaltflaeche click und fertig. vielleicht faellt Dir dazu noch was ein. gruss thomas

nach oben   nach unten

Re: bezuege per makro aendern
von: th.heinrich
Geschrieben am: 17.04.2002 - 19:34:20

danke Walerji, daran kanns nicht liegen. ActiveWorkbook.SaveAs FileName:=jahr, wird ausgefuehrt. bei ActiveWorkbook.ChangeLink Name:=vj - 1, NewName:= _ jahr - 1, geht nichts weiter. gruss thomas

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Verzeichnis im VB Makro einbinden"