Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
24.04.2024 17:19:09
Formel mit Index-Funktion
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
628to632
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
628to632
628to632
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

namen aus Verzeichnisangabe löschen

namen aus Verzeichnisangabe löschen
27.06.2005 17:22:11
Rocky
Hallo Leute ich bin's mal wieder,
ich hab ne datei in der ich bilder aus bilibigen Ordnern einfüge.
das sieht dann so aus:
On Error Resume Next
Sheets("Quelle Übersicht").Activate
With ActiveSheet
s = Application.GetOpenFilename(" Bilder(*.Jpg; *.Bmp; *.Gif),*.jpg, *.bmp, *.gif")
Range("A1").Value = s
End With
jeztz steht in cells(1,1) natürlich sowas:
C:\WINDOWS\Desktop\Bilderdat\Endprodukte\Fotos3x4\HPIM0056.JPG
es soll aber mit dem letzt Ordnernamen enden! also so:
C:\WINDOWS\Desktop\Bilderdat\Endprodukte\Fotos3x4\
Kann man das machen?
bis jetzt lösch ich immer per hand doch das ist uncool! oder?
Gruß Rocky

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

Betreff
Datum
Anwender
Anzeige
AW: curdir
27.06.2005 17:49:56
ransi
hallo rocky
schau dir mal curdir an.
Public 

Sub t()
s = Application.GetOpenFilename(" Bilder(*.Jpg; *.Bmp; *.Gif),*.jpg, *.bmp, *.gif")
Range("A1").Value = CurDir
End Sub

ransi
PS:
was soll eigentlich eingetragen werden wenn Abbrechen geclickt wird?
AW: curdir
27.06.2005 19:30:17
Rocky
Hallo Ransi,
danke für deine Hilfe die du mir immer gibst! voll super von dir!
Funtioniert ja erfahrungsgemäß, wie auch diesmal!
im Augenblick schreibt er mir FALSCH rein wenn ich auf abbrechen gehe!
kann man da was anderes hinterlegen!
z.B. msgbox"Sie haben diesen Dialog abgebrochen"
und den ehemaligen pfand der vorher drinstand?
danke ransi und gruß von ROCKY an alle user!
Anzeige
falsch = false....
27.06.2005 20:26:38
ransi
hallo rocky
...also:
if s false then
mach was
else:mach was anderes
end if
ransi
Alles klar! Danke dir OT
28.06.2005 07:57:20
Rocky
-
AW: namen aus Verzeichnisangabe löschen
27.06.2005 17:51:27
IngGi
Hallo Rocky,
so vielleicht?

Range("A1") = Left(s, InStrRev(s, "\",, vbTextCompare)

Gruß Ingolf
AW: namen aus Verzeichnisangabe löschen
27.06.2005 19:31:41
Rocky
Danke für deine Hilfe! ich denke es wird funktionieren doch hatte mich schon für die Antwort von ransi entschieden gehabt!
DANKE FÜR ALLES
GRUß ROCKY

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige