Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1296to1300
1296to1300
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Dateipfad und Name in Zelle eintragen

Forumthread: Dateipfad und Name in Zelle eintragen

Dateipfad und Name in Zelle eintragen
18.02.2013 18:49:00
Werner
Hallo Excel-Freunde,
ich bin auf der Suche nach einer Möglichkeit, die folgendes bewirkt:
In der ausgewählten Zelle soll der komplette Dateipfad und Name eingefügt werden.
Der User soll ein Makro starten, dann über den Explorer eine Datei auswählen,
und dieser Pfad/Name soll dann in die ausgewählte Zelle eingetragen werden.
Wenn der User eine Zelle weiter unten auswählt, soll das gleiche passieren
(z.B. mit einer anderen Datei)
Ist so etwas möglich ?
Soweit wäre mir im ersten Schritt erstmal sehr geholfen, wenn die Dateien
in einem "normalen" Ordner / LW liegen.
Die zweite Variante wäre noch die "Krönung":
Wie geht das, wenn die Dateien auf einem Sharepoint liegen ?
Gibt es dafür auch eine Möglichkeit ?
Freu mich auf Tipps für beider Lösungen :)
Besten Gruß
Werner

Anzeige

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Dateipfad und Name in Zelle eintragen
18.02.2013 19:25:23
Hajo_Zi
Hallo Werner,
' ************************************************************* _ ' Modul: Tabelle2 Typ = Element der Mappe(Sheet, Workbook, ...) ' ************************************************************** Option Explicit Private Sub _ Worksheet_SelectionChange(ByVal Target As Range) If Target = "" _ Then Target = GetAOrdner End If End Sub 




' **************************************************************

'  Modul:  mdl_Verzeichnisbaum  Typ = Allgemeines Modul

' **************************************************************

Option Explicit                                     ' Variablendefinition erforderlich

Option Private Module                               ' damit Makro nicht unter Makro erscheint

Public StOrdner As String                           ' Projekt weit Suchordner

'   von Nepumuk

Private Type InfoT

hwnd As Long

Root As Long

DisplayName As Long

Title As Long

Flags As Long

FName As Long

lParam As Long

Image As Long

End Type

Private Declare Function SHBrowseForFolder Lib "shell32" (lpbi As InfoT) As Long

Private Declare Function CoTaskMemFree Lib "ole32" (ByVal hMem As Long) As Long

Private Declare Function lstrcat Lib "kernel32" Alias "lstrcatA" _

(ByVal lpStr1 As String, ByVal lpStr2 As String) As Long

Private Declare Function SHGetPathFromIDList Lib "shell32" _

(ByVal pList As Long, ByVal lpBuffer As String) As Long

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _

(ByVal lpClassname As String, ByVal lpWindowName As String) As Long

Function GetAOrdner() As String

Dim xl As InfoT, IDList As Long, RVal As Long, FolderName As String

With xl

.hwnd = FindWindow("xlmain", vbNullString)

'.hwnd = FindWindow("", "Auswahl")  ' Userform Auswahl

.Title = lstrcat("Bitte wählen Sie ein Verzeichnis", "")

.Flags = 1

End With

IDList = SHBrowseForFolder(xl)

If IDList <> 0 Then

FolderName = Space(256)

RVal = SHGetPathFromIDList(IDList, FolderName)

CoTaskMemFree (IDList)

FolderName = Trim(FolderName)

FolderName = Left(FolderName, Len(FolderName) - 1)

End If

GetAOrdner = FolderName

End Function

'   nicht verwendeter Code Aufruf mit

Sub test()

StOrdner = GetAOrdner                           ' Verzeichnis auswählen

End Sub

Anzeige
AW: Dateipfad und Name in Zelle eintragen
18.02.2013 19:49:23
Werner
Hallo Hajo
allerbesten Dank für die superschnelle Antwort !
Nur krieg ich das leider nicht zum Laufen !
Auf der einen Seite "meckert" VBA nach dem PasteCopy
...
Private Declare Function lstrcat Lib "kernel32" Alias "lstrcatA" _
(ByVal lpStr1 As String, ByVal lpStr2 As String) As Long
Private Declare Function SHGetPathFromIDList Lib "shell32" _
(ByVal pList As Long, ByVal lpBuffer As String) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassname As String, ByVal lpWindowName As String) As Long
...
und markiert mir die eingerückten Codes ...(ByVal ...)
und ich weiss nicht, wie ich den Code entsprechend anpassen muss
(VBA nur per Recorder)
Aber ich lerne ja gerne dazu :)
Könntest Du mir das mal als Datei hochladen - dann könnte ich sehen, was ich falsch gemacht habe.
Hajo - Du würdest mir einen großen Gefallen tun !
Mit bestem Dank im voraus
Werner

Anzeige
AW: Dateipfad und Name in Zelle eintragen
18.02.2013 20:37:23
Werner
Hallo Hajo
vielen Dank ! Nur habe ich hier zuhause nur 2003 :|
Mal ne andere Frage: Was meinst Du mit "... meine wöchentliche Datei..."
Gruß
Werner

Anzeige
AW: Dateipfad und Name in Zelle eintragen
18.02.2013 20:40:30
Hajo_Zi
Hallo Werner,
in der Datei sind alle meine Beispiel der Woche, die für die Foren erstellt wurden.Lösxchen allen Code der nicht in meinem Beitrag ist.
Gruß Hajo

AW: Dateipfad und Name in Zelle eintragen
18.02.2013 20:44:03
Werner
Hallo Hajo
coool ... Danke
Ich werde das mal morgen auf meinem Arbeitsplatz-Rechner ausprobieren, da habe ich 2007
Aber Dank Dir schon jetzt sehr herzlich !
Besten Gruß
Werner

Anzeige
AW: Dateipfad und Name in Zelle eintragen
18.02.2013 20:57:55
Hajo_Zi
Hallo Werner,
was ist noch offen? Du willst doch jetzt erst testen.
Gruß Hajo

AW: Dateipfad und Name in Zelle eintragen
18.02.2013 21:11:02
Werner
Hallo Hajo
sorry - ich wollte mit "noch offen" nur kennzeichnen,
daß ich morgen teste - und Dir dann ein Feedback geben werde.
OK - also "geschlossen" ;)
Besten Gruß
Werner

Anzeige
AW: Dateipfad und Name in Zelle eintragen
19.02.2013 12:02:05
Werner
DANKE Hajo
funktioniert
Besten Gruß
Werner

AW: Dateipfad und Name in Zelle eintragen
19.02.2013 14:54:22
Hajo_Zi
Hallo werner,
dann ist es ja Klasse, ich hatte eigentlich vermutet das ich es zu einfach gesehen habe.
Gruß Hajo
Anzeige

Forumthreads zu verwandten Themen

Inhalt einer Zelle im Windows Infobereich anzeigen
Thomas

Hallo,
kann ich den Inhalt einer Zelle im Windows Infobereich anzeigen lassen?
Ich habe eine VBA-Anwendung, die mir den Verarbeitungsstatus in einer Zelle anzeigt.
Weil die Verarbeitung sehr lange dauert möchte ich zwischendurch mit anderen Anwendungen arbeiten und unten rechts nebe...
27.08.2008 17:50:23
Thread-ID: 1005163
3 Beiträge
Tabellenblattname in Zelle eintragen
obelix-xxl

Hallo,
ich habe mir eine Tabellenblatt als Vorlage erarbeitet und dieser Tabelle auch den Namen Vorlage gegeben.
Mit einem Makro kann ich nun über die zugewiesene Tastenkombination diese Tabelle an das Ende der Arbeitsmappe kopieren. Dabei fragt das Makro nach dem Tabellenblattnamen. Di...
04.09.2008 21:27:29
Thread-ID: 1007526
3 Beiträge
Syntax für benutzerdefiniertes Zellenformat
BF

Hallo Forum,
kennt jemand eine kurze Beschreibung im Internet zur Syntax des benutzerdefinierten Zellenformats (Zellen formatieren - Zahlen - Benutzerdefiniert - Typ)?
Ich möchte jetzt z.B. statt einer Null einen Strich anzeigen...
Eine allgemeine Anleitung wäre klasse, da ich schon...
04.10.2008 16:17:00
Thread-ID: 1014157
3 Beiträge
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
Fehler bei Formel per Makro in Zelle eintragen
Born

Hallo Forum,
ich habe folgendes Problem:
Ich schreibe per Makro in Zellen eine Formel. Als Ergebnis bekomme ich jedoch nur die Fehlermeldung #NAME?. Wenn ich dann mit F2 in den Bearbeiten-Modus gehe und Enter drücke, kommt das richtige Ergebnis. Meine Formel scheint also richtig zu sein...
23.10.2008 10:15:00
Thread-ID: 1018538
11 Beiträge
Anzeige
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
Benutzername Datum Zeit in Zelle
Michael

Hallo zusammen,
ich suche nach einem Makro, das einen Benutzernamen aus Tabelle1 Zelle B2, das aktuelle Datum (JJJJ.MM.TT) und die Zeit der Änderung Zeit (hh:mm:ss) bei Änderungen in einer Zeile der Spalten A bis AT in die Zelle AU2 usw. schreibt.
Die Suche hat mich leider nicht weiterg...
27.12.2008 19:52:00
Thread-ID: 1035469
15 Beiträge
Benutzername Datum Zeit in Zelle
Micha

Hallo zusammen,
am 29.12.2008 hat mir Peter Feustel bei einem Problem geholfen. Klappte auch alles wunderbar.
Archiv: https://www.herber.de/forum/archiv/1032to1036/t1035469.htm
(vom Archiv aus kann man Beiträge wohl nicht mehr als "Beitrag offen" setzen?!)
Nun macht das Makro "S...
25.01.2009 19:19:50
Thread-ID: 1043657
9 Beiträge
knifflig: in einer Zelle anzeigen, ob Makros aktiv
Tobias

Gibts ne Möglichkeit, in einer Zelle den "makrostatus" abzufragen.
Ohne VBA natürlich :)
So eine WAHR/FALSCH ausgabe wär praktisch,
da ich den Anfängern, die die Mappe öffnen, einen deutlichen Hinweis darauf geben möchte,
das sie Ohne aktiviertem VBA nicht funktioniert...
I...
20.02.2009 16:47:00
Thread-ID: 1052499
6 Beiträge
Lange Matrixformel mittels VBA in Zelle eintragen
hoffi

Hallo zusammen,
auch nach einer längeren Internetrecherche konnte ich folgendes Problem leider nicht lösen.
Ich möchte in Excel 2003 mittels VBA eine Matrixformel in eine Zelle schreiben lassen. Der Programmiercode sieht vereinfacht so aus:
A = "=sum(if(XXX,YYY,ZZZ))"
Cells(1,1)...
25.03.2009 13:09:25
Thread-ID: 1063729
5 Beiträge
Hyperlink Ziel Zelle farbig anzeigen!
Wolfgang

Hallo,
benutze Hyperlinks um mich im Dokument zu bewegen.
Frage wenn ich nun zu Blatt 1 nach A32 springe, kann ich dann A32 farbig anzeigen lassen, und geht dann die Farbe wieder weg?
Vielen Recht herzlichen Dank für Eure Mühe.
Wolfgang
26.03.2009 08:30:54
Thread-ID: 1064093
5 Beiträge
Internetbild in Zelle anzeigen
stef@n

Hallo zusammen
bin auf der Suche nach einer Möglichkeit, ein Bild aus dem Internet in einer Zelle anzeigen zu lassen.
Ich habe es mit einem Hyperlink probiert z.b.
src="http: //www.google.de/intl/de_de/images/logo.gif" />
(Leerzeichen nach http: damit das Logo hier im Thre...
21.05.2009 15:50:09
Thread-ID: 1076569
9 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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