Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
644to648
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
644to648
644to648
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Code für Dateibezug umschreiben

Code für Dateibezug umschreiben
03.08.2005 19:58:30
Alex
Hallo,
ich habe folgenden Code:

Private Sub CommandButton1_click()
Workbooks("Mappe1.xls").Close SaveChanges:=True
End Sub

Ich möchte den Namen und Pfad der Mappe ändern können, ohne den Code ständig zu ändern. Der Pfad und Dateiname ist im Blatt Übersich in der Zelle B58 angebenen:

Sheets("Übersicht").Range("B58").Value
Wie muss der Code nun aussehen, damit es funktioniert?
Danke für die Hilfe
Alex

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Code für Dateibezug umschreiben
03.08.2005 20:13:54
Matthias
Hallo Alex,
das Problem ist, den Pfad aus der Zelle zu entfernen. Geht so:

Private Sub CommandButton1_click()
Workbooks(Mid(s, InStrRev(Sheets("Übersicht").Range("B58").Value, "\") + 1)).Close SaveChanges:=True
End Sub

Gruß Matthias
AW: Code für Dateibezug umschreiben
03.08.2005 21:11:30
Alex
Hallo Matthias,
ich habe den Code eingesetzt. Beim ausführen markiert er mir jedoch das
"s" nach Workbooks(Mid(
Und gibt die Meldung:
Projekt oder Bibliothek nicht gefunden
Weißt Du eine Rat?
Alex
AW: Code für Dateibezug umschreiben
03.08.2005 21:15:41
Matthias
Hallo Alex,
sorry. mein Fehler:

Private Sub CommandButton1_click()
Dim s As String
s = Sheets("Übersicht").Range("B58").Value
Workbooks(Mid(s, InStrRev(s, "\") + 1)).Close SaveChanges:=True
End Sub

(hab es oben in deinem anderen Thread auch korrigiert).
Gruß Matthias
Anzeige
AW: Code für Dateibezug umschreiben
03.08.2005 21:37:08
Alex
Hallo,
jetzt kommt eine andere Stelle, die markiert ist:
"Mid"
Was soll ich jetzt machen?
Alex
AW: Code für Dateibezug umschreiben
03.08.2005 21:44:22
Matthias
Hallo ALex,
schließen wird diesen Thread mal und machen oben weiter, ok?
Gruß Matthias
AW: Code für Dateibezug umschreiben
03.08.2005 21:46:04
Alex
Okay

172 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige