Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
864to868
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
864to868
864to868
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datei suchen in allen Laufwerken

Datei suchen in allen Laufwerken
04.05.2007 16:22:00
selma
Hallo Experten,
ich möchte gern durch einen VBA-Code eine Datei suchen (bravo.bmp).
Das Programm sollte alle Laufwerke und alle Verzeichnisse absuchen.
Wenn die Datei gefunden wurde, sollte Sie in der Zelle B1 abgespeichert werden.
Für jede Hilfe danke ich im Voraus
viele grüsse
selma

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datei suchen in allen Laufwerken
04.05.2007 16:30:19
Thommy
Hallo Selma,
ist zwar nicht ganz dass was Du vielleicht willst, aber diese Datei hab ich mal wo gefunden
und ist sehr praktisch. Da werden alle Verzeichnisse und Dateien von einem bestimmten
Laufwerk angezeigt und da kann man die jeweilige Datei dann ganz einfach suchen und
es gibt auch eine Verlinkung auf diese Datei.
Hoffentlich hilft sie Dir!?
Rückmeldung wäre nett!
lg Thommy

AW: Datei suchen in allen Laufwerken
04.05.2007 16:54:20
selma
hallo thommy,
wo ist diese Datai? du hast keinen Anhang geschickt.
gruss
selma

AW: Datei suchen in allen Laufwerken
04.05.2007 17:02:00
selma
Hallo Thommy,
danke für die Datei.
Da ich nicht so bewandert bin in der Programmierung, kann ich leider nichts mit anfangen.
viele grüsse
selma

AW: Datei suchen in allen Laufwerken
04.05.2007 22:34:45
Heinz
Hi,
dir ist klar, dass das u.U. schon eine Weile dauern kann? Wie oft kommt das vor,
dass du nach dieser bestimmten Datei suchen musst?
,fg Heinz

AW: Datei suchen in allen Laufwerken
04.05.2007 22:34:45
Heinz
Hi,
dir ist klar, dass das u.U. schon eine Weile dauern kann? Wie oft kommt das vor,
dass du nach dieser bestimmten Datei suchen musst?
,fg Heinz

AW: Datei suchen in allen Laufwerken
05.05.2007 09:15:47
selma
Hallo Heinz,
bisher habe ich diese Prozedur in der Initalisierung.
Die BMP-Datei ist das Hintergrundbild des Hauptmenüs.
Ich könnte mir auch vorstellen, dass die Datei beim Programmstart gesucht wird.
Die Anwender haben unterschiedliche Arbeitsarchitektur z. B. kann ein Mitarbeiter auf C: zugreifen,
beim nächsten ist C: für die Speicherung von Daten gesperrt. Er nutzt statt C: das P:-Laufwerk, usw.
Falls die Datei im vorgegebenen Verzeichnis vorhanden ist die Such-Procedur NICHT ausführen,
fehlt die Datei im vorgegebenen Verzeichnis soll nach der Datei über die Such-Prozedur gesucht werden.
Das Ergebnis wird in die Zelle B401 geschrieben. Somit müßte ich das Programm nur einmal ausführen.
Wenn dies funktioniert, wäre die Frage wo muss ich den Code abspeichern?
Nachfolgend der Code.
Wenn es eine bessere Möglichkeit gibt, bin ich für jeden Tipp dankbar.
Hier der bisher verwendete Code:
Private Sub UserForm_Initialize()
Dim Pfad$, Datei, Ext$
'If Worksheets("Dateneingabe").Range("b391") = "VKB" Then
' Pfad = "c:\bravo.bmp"
'Else
' Pfad = Worksheets("Dateneingabe").Range("b401").Value
'End If
Pfad = Worksheets("Dateneingabe").Range("b401").Value
If Pfad "" And Dir(Pfad) "" Then
'Datei ist vorhanden
Image1.Picture = LoadPicture(Pfad)
Else
'Datei ist nicht da
MsgBox "Die Datei " & Datei & " konnte nicht gefunden werden!" & Space(25) & vbLf & vbLf & _
"Bitte wählen Sie ...", 64, "Datei nicht gefunden"
Ext = "*.bmp" 'Dateiextension ggf. anpassen
Datei = Application.GetOpenFilename("Bmp-Grafiken (" & Ext & "), " & Ext)
If Datei = False Then
MsgBox "Es wurde keine Datei ausgewählt"
Exit Sub
End If
Worksheets("Dateneingabe").Range("b401").Value = Datei
Image1.Picture = LoadPicture(Datei)
End If
Image1.PictureSizeMode = fmPictureSizeModeClip
viele grüsse
selma

Anzeige
AW: Datei suchen in allen Laufwerken
05.05.2007 17:24:36
Heinz
Hi,
prüf mal die Möglichkeit, das Bild zur Entwurfszeit in die Userform zu laden, ggf. vorher ein GIF
daraus machen wegen der Dateigröße. Wie groß in kB ist denn die Bitmap?
mfg Heinz

305 Forumthreads zu ähnlichen Themen

Syntax für Summe aus mehreren Blättern
friedolin

Hallo Forum,
ich möchte aus mehreren Blättern, die da heißen " 01.01. , 02.01. 03.01. " usw. die Summe der Spalte D40 (immer gleich) in ein neues Blatt ermitteln. Habe schon einiges probiert, aber die Syntax macht Probleme.
diese Formel funktioniert nicht! =Summe(01.01. : 31.01. !D40...
18.08.2008 14:55:54
Thread-ID: 1002612
7 Beiträge
Anzeige
Daten sortiert aus anderem Tabellenblatt auslesen
Robert

Hallo,
bräuchte eure Hilfe bitte.
Aus einem Tabellenblatt ("FEHLZEITEN") sollen Daten ausgelesen und in einem anderen Tabellenblatt ("EINSATZPLANUNG") ab Zeile 100 eingefügt und bei Änderungen in "FEHLZEITEN" aktualisiert werden.
Habe da mal eine Beispieldatei zur besseren Veransch...
28.08.2008 11:32:00
Thread-ID: 1005356
3 Beiträge
Suche in Text mit mehreren Suchkriterien
Christian

Hallo Forum,
ich möchte prüfen, ob ein Text mindestens einen Text aus einer Liste enthält.
Bsp: enthält der Text
"das ist die Liste der gelieferten Früchte: Apfel, Birnen"
einen der Texte enthält:
"Banane", "Kirsche", "Birnen"
in dem Fall ja. Ich brauche keine Position...
14.01.2009 11:32:00
Thread-ID: 1039544
10 Beiträge
Anzeige
Texte aus anderem Tabellenblatt kopieren
Stefan

Hallo zusammen,
in einer Tabelle habe ich mir im Tabellenblatt 'Umwandeln' für verschiedene Textmanipulationen Formeln eingerichtet. Die Texte, die verändert werden sollen (Artikelbezeichungen) bekomme ich in Form einer Exceltabelle und ich ziehe mir das Tabellenblatt 'Artikel' als neues Ta...
22.04.2009 23:35:00
Thread-ID: 1070529
3 Beiträge
Suchen in bestimmten Zellen von mehreren Dateien
mehreren

Hallo Excel und VBA Profis.
Dies ist mein erster Beitrag in diesem Forum - ich bin zu anderen Fragen bereits fündig geworden (erstklassiges Forum!), jedoch bin ich bei meinem aktuellen Problem mit meinem Latein am Ende und hoffe Ihr könnt mir weiterhelfen.
Ich habe ein digitales Archiv...
05.05.2009 10:30:21
Thread-ID: 1072994
9 Beiträge
Summe aus einer Tabelle mit mehreren Kriterien
Erik

Hallo zusammen,
momentan verzweifel ich an einem Problem in Excel.
Die Tabelle hat das folgende Format
Europe: 1 = Ja und 0 = nein
Europe Type Size Price
1 x S 19
1 y L 145
0 x S 291<...
10.06.2009 13:50:10
Thread-ID: 1080478
4 Beiträge
Auswertung über mehrere Tabellenblätter
Stefan

Hallo zusammen,
ich hoffe ich finde bei Euch Hilfe. Ich habe nun schon einige Zeit das Forum durchsucht aber keine passende Lösung gefunden.
Ich habe eine Arbeitsmappe mit ca. 90 Tabellenblättern. Die Tabellenblätter sind so aufgebaut, das jeweils im Bereich
C6-E60 Daten stehen. In...
17.06.2009 10:51:48
Thread-ID: 1082164
6 Beiträge
Summen aus mehreren Dateien bilden
Rudolf

Hallo Excel-Freunde,
ich habe z.b. 50 Dateien, die sich alle in einem Ordner befinden und fortlaufend nummeriert sind (also 1.xls, 2.xls usw..
In allen Dateien befindet sich ein Arbeitsblatt mit dem gleichen Aufbau. Ich möchte nun in einer weiteren Datei mit dem gleichartig aufgebauten...
28.06.2009 19:07:21
Thread-ID: 1084895
3 Beiträge
Anzeige

Links zu Excel-Dialogen

UserForm

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
6
3
2
9
15
2
8
3
5
2
4
3
6
2
6
3
1
12
3
3
13
2
7
2
4