Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1524to1528
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
1524to1528
1524to1528
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Dateiname auslesen und in Zelle schreiben

Dateiname auslesen und in Zelle schreiben
20.11.2016 14:53:15
Tyroler
Hallo Zusammen,
ich möchte gerne eine individuelle Datei öffenen.
Dessen Name würde ich gerne auslesen und dann in eine Zelle schreiben, damit wann immer weiss basierend auf welcher Datei die Auswertung gemacht wird.
wie kann man das via VBA realisieren?
Vielen Dank für eure Hilfe
Dankeschön
Grüßé
Tyroler

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Dateiname auslesen und in Zelle schreiben
20.11.2016 15:03:17
Martin
Hallo Tyroler,
deine Anfrage ist aber sehr ungenau geschrieben.
Zum Auslesen das Dateinamens gibt es folgende Möglichkeiten:
ActiveWorkbook.Name 'liefert nur den Dateinamen
ActiveWorkbook.FullName 'liefert den Dateinamen mit der Verzeichnisangabe
Bitte beachte, dass du den Rückgabewert in "thisworkbook.Sheets(z).cells(x,y)" abgelegen musst.
Viele Grüße
Martin
AW: Dateiname auslesen und in Zelle schreiben
20.11.2016 15:17:01
Tyroler
vielen DAnk schon mal für die Hilfe!
ich öffnen mit folgendem Code eine beliebige Datei:
MsgBox "Bitte aktuelle Auswertung Auswählen"
Dim Erfolg1 As Boolean
Erfolg1 = Application.Dialogs(xlDialogOpen).Show(arg1:=".xlsx")
If Not Erfolg1 Then
MsgBox "keine DAtei ausgewählt"
Else
Cells.Copy Workbooks("test.xlsm").Sheets("SBM").Range("A1")
ActiveWorkbook.Close False
End If
Ich öffne das File nur um die Daten in mein Hauptfile Test.xlsm zu kopieren.
Die beliebigen Datei haben immer das Format xxx_ddmmyyyy.xlsx.
Damit ich weiß, welche Daten gerade im Hauptfile kopiert sind wüde ich gerne den Dateiname von der beliebigen Datei in Zelle "E4" stehen haben.
VIelen Dank
Tyroler
Anzeige
AW: Dateiname auslesen und in Zelle schreiben
20.11.2016 16:41:01
Martin
Hallo Tyroler,
wenn ich dich richtig verstanden habe, dann sollte es so gehen:
    Dim Erfolg1 As Boolean
MsgBox "Bitte aktuelle Auswertung Auswählen"
Erfolg1 = Application.Dialogs(xlDialogOpen).Show(arg1:=".xlsx")
If Not Erfolg1 Then
MsgBox "keine DAtei ausgewählt"
Else
With ThisWorkbook.Sheets("SBM")
Cells.Copy .Range("A1")
.Range("E4") = ActiveWorkbook.Name
End With
ActiveWorkbook.Close False
End If
Viele Grüße
Martin
AW: Dateiname auslesen und in Zelle schreiben
20.11.2016 17:27:30
Tyroler
Vielen Vielen Dank!!!
Funktioniert perfekt :)

300 Forumthreads zu ähnlichen Themen

Wenn nur Text in Zelle...
MichiM

Hallo,
ich habe eine umfangreiche Artikelliste (ca. 250.000 Artikel) aus einer Datanormdatei erstellt.
Aus dieser muss ich jetzt alle Artikel entfernen, dessen Artikelnummer (in Spalte A; als Text formatiert, damit führende Nullen nicht gelöscht werden) keinerlei Zahlen enthalten.
E...
22.08.2008 16:24:44
Thread-ID: 1003960
4 Beiträge
Anzeige
Formel immer nur in bestimmter Zelle
Katrin

Hallo Zusammen!
Folgendes Problem würde ich gerne lösen, weiß aber nicht wie :)
Ich habe in Spalte A in jeder Zeile Uhrzeiten stehen:
00:15:00
00:30:00
00:45:00
01:00:00
01:15:00
01:30:00
01:45:00
02:00:00
02:15:00
02:30:00
02:45:00
...
02.09.2008 10:30:00
Thread-ID: 1006672
3 Beiträge
Text verbinden und den Inhalt der Zelle ausgeben
Jörg

Hallo,
ich benötige etwas Hilfe, vermutlich für euch kein Problem:
in Zelle A1 möchte ich den Spaltenbuchstaben eintragen
in Zelle A2 möchte ich eine Zeilennummer eintragen
in Zelle A3 fehlt mir nun die Formel, mit der ich A1undA2 verbinden kann UND dann den Inhalt der Zelle aus...
19.09.2008 11:42:31
Thread-ID: 1010969
6 Beiträge
Anzeige
Kommenare beim Klick in die leere Zelle anzeigen?
Selma

Hallo Leute,
ich möchte in Zellen der Spalte E und Spalte F die Kommmentare als errechnete Werte beim Klick in die Zelle anzeigen, wenn diese Zelle leer sind. Sind die Zelle gefüllt, dann soll der Kommentar nicht angezeigt werden.
Die Voraussetzung ist, dass in Zelle der Spalte D die Za...
11.10.2008 12:17:00
Thread-ID: 1015730
8 Beiträge
Makro nur in bestimmten Zellen
TomTom

Hi,
der folgende Code soll in der Spalte Q das Datum umformatieren. Nun habe ich aber auch in der Spalte Q auch leere Zellen drin und der Code schreibt dann in die leeren Zellen immer 01.01.1900 rein, obwohl sie eigentlich leer bleiben sollen.
Wie kann man den Code ändern, dass leere Ze...
13.11.2008 08:56:51
Thread-ID: 1024041
5 Beiträge
zählenwenn nur auf Teil einer Zelle basierend?
Sascha

Hallöchen,
folgendes Problem,
ich habe eine Artikelerfolgsauflistung (Alpha-Numerisch gefüllte Zellen) über den Bereich Tabelle3!A2-G99.
Über eine Lagerbestandsliste in Tabelle1!B2-B99, die ich per copy/paste täglich aktualisieren kann zählt mir das Programm automatisch die Menge, i...
13.11.2008 12:08:25
Thread-ID: 1024134
10 Beiträge
Zahl 1 bis 7 nur in Zelle eintragen dürfen
Korl

Hallo,
ich möchte in einem Zellbereich z.B. "B7:BI103" in den jeweiligen Zellen nur die Zahlen von "1 bis"7 eintragen dürfen und sofort den Cursor in der jeweiligen Zeile um eine Zelle nach rechts setzen lassen ohne "Enter" tippen zu müssen.
Den Bereich könnte ich mit Gültigkeitskriteri...
17.11.2008 19:55:00
Thread-ID: 1025380
8 Beiträge
Nur bestimmte Zeichen in Zelle
wolle

Erstmal ein Hallo an Alle und alles gute in 2009!
Ich hätte folgende Frage:
Wie kann ich es machen, dass in Spalte B von Zelle B10 bis Zelle Bxx nur die Zeichen "J" "j" "N" "n" eingeben werden können und bei Eingabe eines anderen Zeichens ein kleines Popup erscheint, das den Bediener in...
09.01.2009 11:22:25
Thread-ID: 1038162
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
3
2
2
5
5
7
4
9
7
2
1
5
1
4
3
1
8
3
3
2
3
6
11
2
1