Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 11:06:38
WENN; zwischen zwei Daten
24.04.2024 09:53:18
Wartungsliste automatisch aktualisieren
24.04.2024 09:36:02
Wenn Wert x in Zelle a, dann Wert y in Zelle b
24.04.2024 09:24:20
Textketten erstellen mit unterschiedlichen Anzahl an Feldern
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
720to724
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
720to724
720to724
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

erst fünf Zeichen aus Dateinamen auslesen

erst fünf Zeichen aus Dateinamen auslesen
24.01.2006 08:56:28
Sebastian
Hallo Forum,
ich versuche folgendes Problem zu lösen.
Ich speichere Dateien unter einer 5-stelligen Nummer und dem zugehörigen Namen ab:
z.B: C:\Eigene Dateien\Geschenke\50000_Meier_Ja.xls
C:\Eigene Dateien\Geschenke\50001_Schmitt_Nein.xls
C:\Eigene Dateien\Geschenke\50002_Lehmann_Ja.xls
Das öffnen der Dateien mit VBA gestaltet sich schwierig, da mir immer nur die 5-stellige Nummer bekannt ist.
Ich möchte die Dateien nur anhand dieser 5-stelligen Nummer öffnen lassen. Wie ist das machbar?
Hoffe mir kann jemand helfen,
Grüßle Sebastian

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

Betreff
Datum
Anwender
Anzeige
AW: erst fünf Zeichen aus Dateinamen auslesen
24.01.2006 09:14:56
Heiko
Hallo Sebastian,
wenn die Dateien im im gleichen Pfad liegen und die Nummer IMMER am Anfang des Dateinamens ist, dann z.B. so:

Sub DateiAnhandNummerÖffnen()
Dim lngNummer As Long, lngI As Long, lngHelp As Long
lngNummer = Application.InputBox("Bitte geben Sie die DateiNummer an !", " DateiNummer", "50000", Type:=1)
With Application.FileSearch
.NewSearch
' Pfad bei Bedarf Anpassen !!!
.LookIn = "C:\Eigene Dateien\Geschenke"
.SearchSubFolders = False
.FileType = msoFileTypeAllFiles
.Execute
If .FoundFiles.Count > 0 Then
For lngI = 1 To .FoundFiles.Count
lngHelp = CLng(Val(Right(.FoundFiles(lngI), Len(.FoundFiles(lngI)) - InStrRev(.FoundFiles(lngI), "\"))))
If lngHelp = lngNummer Then
Workbooks.Open .FoundFiles(lngI)
Exit Sub
End If
Next lngI
End If
End With
MsgBox "Eine Datei mit der Nummer '" & lngNummer & "' konnte nicht gefunden werden !", vbCritical
End Sub

Gruß Heiko
PS: Rückmeldung wäre nett !
Anzeige
AW: erst fünf Zeichen aus Dateinamen auslesen
24.01.2006 09:18:26
Josef
Hallo Sebastian!
Probier mal!
' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Sub OeffnenNachNummer()
Dim objFS As FileSearch
Dim objWb As Workbook
Dim strPath As String, strNum As String, strFile As String

strPath = "C:\Eigene Dateien\Geschenke\"

strNum = InputBox("Geben Sie die Nummer der zu öffnenden Datei ein!", "Datei Öffnen")

If strNum = "" Then Exit Sub

strFile = strPath & "*" & strNum & "*.xls"

Set objFS = Application.FileSearch

With objFS
  .NewSearch
  .LookIn = strPath
  .FileType = msoFileTypeExcelWorkbooks
  .Filename = strFile
  .SearchSubFolders = False
  
  If .Execute > 0 Then
    
    Set objWb = Workbooks.Open(.FoundFiles(1))
    
  End If
  
End With

Set objFS = Nothing

End Sub


'******************************
'* Gruß Sepp
'*
'* Rückmeldung wäre nett!
'******************************

Anzeige
AW: erst fünf Zeichen aus Dateinamen auslesen
24.01.2006 09:18:48
MichaV
Hallo,
z.B. auch so

Option Explicit
Sub Sebastian()
Dim a As Workbook
Const Pfad = "C:\Eigene Dateien\Geschenke\"
Set a = Workbooks.Open(Pfad & Dir(Pfad & "50001*.xls"))
End Sub

Gruß- Micha
PS: Rückmeldung wäre nett.
Alle 3 Subs funktionieren...dankeschööönnnn!!!
24.01.2006 09:52:35
Sebastian
Hallo zusammen,
vielen Dank, ich habe alle 3 Vorschläge ausprobiert und alle funktionieren einwandfrei!!!
Ich habe mich für die Sub von MichaV entschieden. Die ist sehr kurz und für meine bescheidenen Zwecke völlig ausreichend.
Gruß Sebastian

311 Forumthreads zu ähnlichen Themen

Zahlen aus Zelle auslesen
Timo

Hallo liebes Forum,
gibt es eine Möglichkeit aus einer Zelle nur die Zahlen auszulesen, siehe Beispiel:
'123456 BLA --> 123456
Ist eine Excel-interne (keine VBA-Programmierung) hier möglich?
Vielen Dank für die Unterstützung!
Timo
14.08.2008 11:16:00
Thread-ID: 1001770
7 Beiträge
Anzeige
Zeichenkette in einer Zellesuchen
Gordon

Moin,
ich habe in einer Zelle (A1) einen Namen plus ein Datum dazu stehen: "Max Mustermann (01.01.1900)"
Nun möchte ich überprüfen, ob diese Zeichenkette, also Name plus Datum, nochmals in der Zelle A2 steht.
In der Zelle A2 stehen mehrere dieser Zeichenketten. Diese sind in einer...
26.09.2008 12:54:00
Thread-ID: 1012601
4 Beiträge
VBA FormulaArray nur 256 Zeichen
Werner

Hallo Zusammen,
ich möchte Formeln einer ziemlich umfangreichen Jahresarbeitsplanung in Excel, per VBA-Code korrigieren, da diese Datei(en) x-mal vervielfältigt und "beplant" sind. (über 100 Dateien mit mittlerweile über 28.000 Formeln je Datei)
Bei einer bestimmten Matrixformelgröße, ü...
25.10.2008 21:25:22
Thread-ID: 1019276
9 Beiträge
Anzeige
Zelle des erstes Vorkommen eines Zeichens ausgeben
-s

Hallo Forum,
ich habe in Zeile 1 in jeder Spalte einen Buchsteben stehen:
a|b|c|c|c|e|
Wie kann ich die Zelle ausgeben lassen, in der beispielsweise das "c" das erste mal vorkommt? Als Ergebnis soll dann C1 ausgegeben werden.
Besten Dank!
-s
07.12.2008 21:32:00
Thread-ID: 1030929
4 Beiträge
Ausgabe der ersten 4 Zeichen aus anderer Zelle
Eddie

Mahlzeit an alle,
habe wohl ne ganz einfache Sache .. ich suche ne kleine Formel, womit ich in A1 die ersten 4 Zeichen in der Zelle B1 wieder anzeige, also kopiert wird
Danke und gruß Eddie
05.01.2009 14:39:00
Thread-ID: 1036984
4 Beiträge
Anzahl der Zeichen in einer Zelle
Jan

Guten Morgen
Welcher Befehl zählt die Zeichen in einer Zelle?
Danke
Gruß Jan
07.01.2009 08:38:00
Thread-ID: 1037436
3 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
zählen bestimmter Zeichen in einer Zelle
Georg

Hallo Excel Welt,
wie kann ich die Anzahl bestimmter Zeichen (z.B. Kommas) in einer Zelle zählen?
Beispiel:
A2 = 12, 34, 2, 134
B2 = 3 (es sind drei Kommas in der Zelle A2) = dafür benötige ich die Lösung
Oder kann ich die Anzahl der (durch Kommas getrennten) Zahlen direkt...
21.01.2009 16:03:36
Thread-ID: 1042267
6 Beiträge
Anzeige

Links zu Excel-Dialogen

InputBox

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
4
3
8
4
3
3
2
2
5
2
13
4
7
5
3
5
14
3
4
2
9
2
2
11