Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
768to772
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
768to772
768to772
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Verzeichnis- und Dateiname in Variable schreiben.

Verzeichnis- und Dateiname in Variable schreiben.
29.05.2006 13:59:54
Manfred
Hallo Leute,
ich bin mal wieder selber nicht fündig geworden und benötige eure Hilfe.
1. Wie kann ich den vollständigen Verzeichnis- und Dateinamen, der gerade geöffenten Datei in eine Variable bringen?
(Beispiel: "h:\user\aussendienst\mitarbeiter.xls")
2. dto. nur ohne Dateinamen.
(Beispiel: "h:\user\aussendienst\")
3. dto. jetzt eine Ebene höher
(Beispiel: "h:\user\"
Sinn der Sache ist, das ich ein auf einem Netzlaufwerk abgelegtes Makro einer Exceldatei von jedem berechtigten Rechner aus starten und somit auch wieder abspeichern kann, ohne den vergebenen Laufwerksbuchstaben zu kennen.
Ich hoffe es ist verständlich rüber gekommen, was ich erreichen möchte.
Gruss Manfred

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Verzeichnis- und Dateiname in Variable schreiben.
29.05.2006 14:07:14
Peter
Hallo Manfred,
vielleicht so:
Range("B2").Value = ThisWorkbook.Path
Range("B3").Value = ThisWorkbook.Name
Range("B4").Value = ThisWorkbook.FullName
Viele Grüße Peter
Eine kurze Nachricht, ob es läuft, wäre nett - danke.
AW: Verzeichnis- und Dateiname in Variable schreiben.
29.05.2006 14:12:24
Henning
Hallo Peter,
ich habe das auch mal ausprobiert, komme aber zu keinem Ergebnis.
Woran kann das liegen?
Gruß Henning
AW: Verzeichnis- und Dateiname in Variable schreiben.
29.05.2006 14:16:44
Henning
Hallo Peter,
ich habe mal folgendes ausprobiert, das geht:

Sub Test()
Dim Dateiname As String
Dateiname = ActiveWorkbook.Parent.Name
Debug.Print Dateiname
End Sub

Die anderen müssten dann entsprechend funktionieren !
Gruß Henning.
Anzeige
AW: Verzeichnis- und Dateiname in Variable schreiben.
29.05.2006 14:21:11
Manfred
Hallo Peter,
vielen Dank schon mal, denn es geht in die richtige Richtung.
Mit
Range("B2").Value = ThisWorkbook.Path
habe ich den ganzen Pfad angezeigt, aber wie bekomme ich den Wert für eine Ebene höher?
Gruss Manfred
AW: Verzeichnis- und Dateiname in Variable schreiben.
29.05.2006 14:32:42
Manfred
Hallo Alex,
mit
ThisWorkbook.Path
habe ich aber immer noch nicht die Ebene höher zu fassen.
Gruss Manfred
Gelöst vielen Dank
29.05.2006 14:47:45
Manfred
Habe es nun hinbekommen,
vielen Dank für die Anregungen und Lösungsansätze.
Gruss Manfred
Anzeige

172 Forumthreads zu ähnlichen 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
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
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
Anzeige
VBA Profis: Leerzeile in Textdatei löschen
Joe

Hallo,
habe folgendes Makro "ZeileLöschenLangsam" gefunden um leere Zeilen in einer Textdatei zu löschen.
Das ganze funktioniert, aber dauert bei großen TextDateien (>20.000 Zeilen) extrem lange.
Ich habe deshhalb das Makro "ZeileLöschenSchnell" geschrieben welches nur wenige Se...
11.02.2010 23:36:52
Thread-ID: 1137630
2 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
per VBA in MySQL-Tabelle schreiben
André

Moin,
ich hätte da mal wieder ein Problem.
Daten aus einer MySQL-Datenbank bekomme ich problemlos in meine Excel-Tabellen. Dies bekomme ich auch per VBA gesteuert. Hierzu habe ich eine ODBC-Verbindung erstellt. In der Excel-Tabelle erstelle ich dann eine neue Datenverbindung, die ich da...
20.04.2010 14:29:30
Thread-ID: 1152882
5 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
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
5
3
4
10
2
1
3
6
4
2
12
5
4
5
5
2
2
9
2
2
4
4
3
2
2