Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
644to648
644to648
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Code für Dateibezug umschreiben

Forumthread: 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
Anzeige

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
Anzeige
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
Anzeige
;

Forumthreads zu verwandten Themen

Mit VBA In Zelle Excelformel schreiben
Gho-Reg

Hi Leute
Ich habe hier diesen netten VBA Code geschrieben und leider wie solls auch anders sein kommt dauernd eine Fehlermeldung :)
CODE:
rowbeforeinteger = 2
Dim text As String
text = "=IF(" & epsoldcolumn & rowbeforeinteger & "=""x"";1;0)+IF(" & emailsoldco...
25.08.2008 11:08:33
Thread-ID: 1004403
6 Beiträge
Daten per Makro in Textdatei schreiben
Etzed

Servus,
ich habe folgendes Problem. In einer Excel Tabelle verwalte ich die Mitglieder eines Vereins mit Kontodaten für die Buchungen. Ich brauche jetzt für meine Bank eine Datei in der die Kontodaten der Mitglieder die per Bankeinzug bezahlen enthalten sind.
Diese Daten stehen bei mir...
17.11.2008 13:57:09
Thread-ID: 1025212
4 Beiträge
Anzeige
VBA Code: wenn B1 <> blank, dann I in A1 schreiben
maxx_1985

Hi mit'nander
Braeuchte einen kleine Code dafuer:
wenn B1 blank, dann schreibe ein I in A1.
kann mir vielleicht jemand helfen? :-)
vielen vielen dank
denis
18.11.2008 16:27:16
Thread-ID: 1025694
5 Beiträge
Anzeige
CSV-Datei öffnen Daten schreiben!?
Tobsen

Hallo
Habe in einer Function folgendes:
Open "C:\test\werte.csv" For Append As #1
...
In der Datei werden einmal am Tag Werte geschrieben. In der ersten Zeile sollen Datum, Erklärung Wert1,...
usw. stehen. Dann ab der zweiten Zeile die Werte.
Um die Werte in die Datei z...
27.01.2009 14:57:00
Thread-ID: 1044256
11 Beiträge
VBA einzelne Jahre schreiben
manu

Hallo zusammen,
ich hätte heute mal eine Frage bezüglich VBA und das jährliche Ausschreiben einer Anzahl von Jahren.
Klingt etwas verwirrend, daher hier gleich die Datei zum Verständnis:
Die Datei https://www.herber.de/bbs/user/68058.xls wurde aus Datenschutzgründen gelöscht
Es...
17.02.2010 10:29:25
Thread-ID: 1139150
4 Beiträge
Formel per VBA in Zelle schreiben
einfachf

Hallo Zusammen,
ich habe folgendes Problem
Vielleicht kann mir ja jemand helfen.
Ich prüfe in welcher Zelle der letzte Wert steht mit
CellCount = Cells(65536, 23).End(xlUp).Row
Nun möchte ich in sagen wir mal Cells(CellCount, 21) die Formel eintragen
Summe aus Cells(Cel...
20.02.2010 14:24:22
Thread-ID: 1139917
7 Beiträge
VBA Textdatei beschreiben
Stevie

Hi zusammen,
ich wieder :)
Ich benötige einen Ansatz für folgendes Problem:
In einem Makro habe ich folgende Variablen definiert:
Nummer, Name, Ort, IZaehler, Von
diese Variablen würde ich gerne in eine Textdatei schreiben, bzw die Platzhalter in der Textdatei durch die Vari...
03.05.2010 19:09:42
Thread-ID: 1155173
3 Beiträge
Formeln per VBA in Excel schreiben
Rupert

Hallo Forum,
Ich hab da wieder mal ein kleines Problem. Ich habe einen Code geschrieben, welcher mir in eine Tabelle Formeln einträgt, da ich mit der R1C1 nicht klar gekommen bin, schreibe ich die Formel per
Range("A3").FormulaLocal = "=WENN(RECHTS(K3;1)=""3"";""PL"";WENN(RECHTS(K3;1)=...
07.03.2011 10:18:33
Thread-ID: 1204539
6 Beiträge
Textdatei in Excel über VBA starten
Giuseppe

Hallo Excel Freunde
Ich möchte gerne mittels VBA eine Textdatei in Excel importieren/aufstarten.
Es ist egal ob es ein neues Excelfile erstellt, oder auf eine bestehende Tabelle importiert...
Vielen Dank
Giuseppe
06.04.2011 09:33:03
Thread-ID: 1209190
6 Beiträge
VBA, Werte anhand Koordinaten in Tabelle schreiben
Christian

Hallo, ich hab ein kleines Problemchen welches ich gerne mittels VBA lösen möchte. Leider komme ich auch nach einiger Suche nicht mal ansatzweise auf eine Lösung.
Das ganze sieht so aus:
Ich habe 2 Tabellen:
Tabelle 1 hat 3 Spalten z.b. so:
Pos | Blatt | Wert
1 | 1...
01.09.2011 19:10:08
Thread-ID: 1228358
3 Beiträge
VBA Anzahl in Zelle C18 schreiben/ einfrieren
Marcy

Hallo Forum,
mit unterem Code entferne ich meine doppelten Einträge in Spalte A ab Zeile 25.
Funktioniert auch.
Jetzt hätte ich allerdings gerne mindestens eine Erweiterung:
In Zelle C18, soll vor dem Löschen die Anzahl der gefüllten Zellen (handelt sich um Zahlen) eingetragen w...
27.10.2011 08:24:59
Thread-ID: 1235504
3 Beiträge
Benutzer der Datei schreiben in Blatt...VBA
Marcy

Nach mal hallo,
ist es möglich, dass beim Öffnen einer Datei der Benutzername in einem ausgeblendetem Tabellenballt abgespeichert wird?
Der nächste, der sie benutzt soll dann unter dem ersten stehen usw, auch wenn es der gleiche ist.
Absolut perfekt wäre in Spalte A ab Zeile 2 der N...
02.02.2012 12:00:16
Thread-ID: 1248935
10 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige