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
424to428
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
424to428
424to428
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Dateinamen (Zahlenform) in Msbox anzeigen

Dateinamen (Zahlenform) in Msbox anzeigen
07.05.2004 09:45:37
Herbert
Hallo Forum
Meine Frage: Ich speichere Dateien in ein Verzeichnins deren Namen aus lfd.Nr und Jahr besteht. Beispiel 010 04.xls, 011 04.xls. usw.
Wie kann ich mir die höchste Zahl (letzte vergebene Nummer +1) in eine Msgbox anzeigen lassen.
Freu mich auf Eure Antworten
Gruß
Herbert

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Dateinamen (Zahlenform) in Msbox anzeigen
07.05.2004 09:56:34
Frank
Hallo Herbert,
probier dies mal:
MsgBox letzte_vergebene_Nummer +1
Gruß Frank
AW: Dateinamen (Zahlenform) in Msbox anzeigen
Herbert
Hallo Frank
Das ist mein Grundgedanke, aber wie komme ich an die letzte, sprich höchste Zahl?
Gruß Herbert
AW: Dateinamen (Zahlenform) in Msbox anzeigen
Martin
Hallo Herbert,
schau Dir mal die DIR-Funktion an. Auszug aus der Hilfe hierzu:
' Namen in C:\ anzeigen, die Verzeichnisse darstellen.
Pfad1 = "c:\" ' Pfad setzen.
Name1 = Dir(Pfad1, vbDirectory) ' Ersten Eintrag abrufen.
Do While Name1 "" ' Schleife beginnen.
' Aktuelles und übergeordnetes Verzeichnis ignorieren.
If Name1 "." And Name1 ".." Then
' Mit bit-weisem Vergleich sicherstellen, daß Name1 ein
' Verzeichnis ist.
If (GetAttr(Pfad1 & Name1) And vbDirectory) = vbDirectory Then
Debug.Print Name1 ' Eintrag nur anzeigen, wenn es sich
End If ' um ein Verzeichnis handelt.
End If
Name1 = Dir ' Nächsten Eintrag abrufen.
Loop
Wie sind denn Deine Pfadnamen strukturiert und woran erkennt man die "Nummer"?
Gruß
Martin Beck
Anzeige
AW: Dateinamen (Zahlenform) in Msbox anzeigen
Herbert
Hallo Martin
Den Pfad kann ich ja anpassen. z.B. D:\Daten\Auftrag2004
In diesem Ordner, der gleichzeitig Standardarbeitsordner ist soll für den Bearbeiter über eine Schaltfläche die Möglichkeit bestehen, per Msgbox sich die nächste freie Auftragsnummer anzeigen zu lassen(und später auch in das sheet eintragen zu lassen).
In dem Ordner sind ausschließlich .xls in der schon beschriebenen Namenskonvension abgelegt. (010 04.xls, 011 04.xls)
Erkennen kann man die Nummer an den ersten drei Zahlen des Dateinamen (010, 011, usw.)
Herbert
AW: Dateinamen (Zahlenform) in Msbox anzeigen
Martin
Hallo Herbert,
das war ein Mißverständnis, ich dachte, es ginge um das Auslesen von Verzeichnissen, nicht Dateien. Wenn Du in einem Verzeichnis nur Dateien vom Typ xxx04.xls hast, kannst Du mal folgendes probieren:

Sub Dateien_auslesen()
Pfad1 = "D:\Exceltest\"    ' Pfad anpassen
name1 = Dir(Pfad1)
x = Left(name1, 3)
Do While name1 <> ""
x = Application.WorksheetFunction.Max(x, Left(name1, 3))
name1 = Dir
Loop
MsgBox x + 1
End Sub

Falls noch andere Dateinamen vorkommen, müßte man das Makro noch ein bißchen aufbohren.
Gruß
Martin Beck
Anzeige
AW: Dateinamen (Zahlenform) in Msbox anzeigen
Herbert
Hallo Martin
Ich glaub, das ist es. Werde es heute noch testen.
Vielen Dank, ansonsten melde ich mich nochmal.
Herbert
Vielen Dank, funktioniert klasse o.T.
Herbert
Erklärungsfehler
Herbert
Hallo Martin nochmal....(Hab mich verschrieben ;.( )
Den Pfad kann ich ja anpassen. z.B. D:\Daten\Auftrag2004
Dieser Ordner ist Standardarbeitsordner.
Es soll für den Bearbeiter in einem Formular über eine Schaltfläche die Möglichkeit bestehen, per Msgbox sich die nächste freie Auftragsnummer anzeigen zu lassen(und später auch in das sheet eintragen zu lassen).
In dem Ordner sind ausschließlich .xls in der schon beschriebenen Namenskonvension abgelegt. (010 04.xls, 011 04.xls)
Erkennen kann man die Nummer an den ersten drei Zahlen des Dateinamen (010, 011, usw.)
Hoffentlich hab ich mich jetzt verständlich gemacht.
Gruß
Herbert
Anzeige
AW: Dateinamen (Zahlenform) in Msbox anzeigen
07.05.2004 10:11:20
Frank
Achso,
du meinst des so.
Die Dateien stehen in einem Ordner und du willst diesen nach dr .xls Datei durchsuchen
mit der größten Zahl.
Da muß ich auch erst mal hirnen.
Sorry
Gruß Frank

311 Forumthreads zu ähnlichen Themen

per Makro passwortgeschützes PDF erstellen
Frank

Hallo!
Ich hoffe mal wieder aud fachkundige Hilfe. Bei meinem aktuellen Projekt müssen aus Excel heraus täglich viele passwortgeschützte PDF-Doumente erstellt werden. Das Passwort ist immer gleich. Es geht lediglich darum die Dateien vor unautorisiertem Zugriff zu schützen, falls jemand das...
15.08.2008 09:20:00
Thread-ID: 1002042
3 Beiträge
Anzeige
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
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
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
Makro: PDF-Drucken automatischer Dateiname
Stewie

Hallo,
ich habe ein Makro erstellt, mit welchem ich meine Tabellenblatt mittels PDF-Maker "drucken" kann.
Funktioniert soweit auch ganz gut, nur muss ich den Dateinamen noch von Hand eingeben.
Ich möchte gerne, dass mir der Text von 2 Zellen in meiner Tabelle als Dateiname benutzt w...
18.11.2008 11:14:00
Thread-ID: 1025556
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
2
3
2
2
5
7
4
9
7
2
2
2
2
1
5
3
5
4
3
1
8
3
13
3
2