Dateinamen teilweise umbenennen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

dim Pfad as String Dim Datei as string, DateiNeu as string Pfad = "C:\Dein Pfad\" Datei = Dir(Pfad & "0011*.pdf") Do until Datei = "" DateiNeu = Replace(Datei, "0011", "Rechnung") Name Pfad & Datei as Pfad & DateiNeu Datei = Dir() Loop

Sub alle_Dateien_Verzeichnis() ' On Error GoTo Fehler Dim Pfad As String, Ext As String, Datei As String Dim NeuName As String, Such As String, Neu As String Ext = "*.pdf" Pfad = "E:\Excel\Temp\" '**** mit \ Such = "0011_" Neu = "Rechnung_" Datei = Dir(Pfad & Such & Ext) Do While Len(Datei) > 0 NeuName = Replace(Datei, Such, Neu) Name Pfad & Datei As Pfad & NeuName 'umbenennen Datei = Dir() ' nächste Datei Loop Err.Clear Fehler: If Err.Number 0 Then MsgBox "Fehler: " & _ Err.Number & vbLf & Err.Description: Err.Clear End Sub

Bei mir war es so:
1980 (mit 17 Jahren) ein BASIC-Taschenrechner mit einem Speicher von 1680 Byte. Das langte für Annuitätendarlehen. Nach Zins und Laufzeit löste ich damals schon iterativ auf. Wir hatten das gerade im Mathe-Grundkurs gehabt.
1985 März erste Semesterferien BWL. Mein Vater hatte einen IBM PC (die erste Baureihe) mit zwei Floppy-Laufwerken 360k (keine Festplatte) gekauft. PC-DOS 2.0. Das schob man zuerst rein. Sobald DOS geladen war, konnte man die Programmdiskette nehmen. Dazu Multiplan 1.0 (alte Tabellenkalkulation). Ein Student baute ihm darin eine Umsatz-Gewinn-Statistik. Dafür hatte er ca. 500 Floppies besorgt, damit man für jeden Tag eine Statistik haben konnte. Ich schlug innerlich die Hände über dem Kopf zusammen und schob einen Monat auf eine Diskette. Somit waren es schon mal nur noch 12 Disketten pro Jahr.
1986 selbst einen Commodore PC 10 (oder wie der hieß) gekauft. Auch der hatte zunächt noch keine Platte und 2 Disketten-LW. Die habe ich dann mit 30 MB auf einer Speicherkarte eingebaut. Lotus 1-2-3. Symphony 2.1.
1990: Für die Diplomarbeit einen 386er gekauft. Später für 700 Mark (!) noch einen Co-Prozessor 387 dazu, weil die Software des Lehrstuhls den benötigte. Die Haupt-Platinen hatten den Platz dafür immer frei. Bei den beiden PC's lernte man viel über die Speichereinschränkungen und verwendete Tools wie Manifest, Quemm oder PC-Tools, um immer den schnellsten Speicher freizuhalten.
1994 Das erste eigene Excel: 4.0. Das war die erste Variante mit Programmiersprache: Excel4Makros. Auch die konnte man übrigens aufzeichnen, so wie heute VBA.
1995 Excel 5 und Excel 7. Excel 5: Das erste Mal VBA und Pivot. In Excel 7 war VBA eingedeutscht! (ich meine, es war die Version)
2000 Kauf von Excel 2000 Premium Update für 800 Mark. Ich habe es geliebt. Es war schnell. Und es war stabil. Und William Whooper schrieb einen Abgesang darauf, als XL2002 kam: http://xxcl.de/foreign/excelstuff.htm
2010 bekam ich Excel 2010 noch kostenlos, im letzten MVP-Jahr. Ich habe es aber erst 2011 oder 2012 installiert.
2016 (?) Kauf eines Surface Pro 4 mit Tastatur, Stift und einem Jahresabo 365 im Bundle. Das aktivierte ich aber erst 1 (oder 2?) Jahre später, weil ich eigentlich (wie so viele von Euch auch heute noch) auch nicht Abonnent sein wollte (also: Nach 12 Monaten dann Zahler).
Heute: Sehr zufrieden mit 365.

Hmm... müsste ganz tief in den verstaubten Areal meines Gedächnisses graben...
Ich habe selten eine eigene Rechner gehabt. Irgendwo ca 1985 (oder war's 86?) erste Basic-Schritte auf einem Leih-Thomson Mo5 (in Deutschland weitgehend -zurecht- unbekannt)
Dann 1990 erste Berührung mit 8088, DOS und Pascal (schon mal von dBASE3 gehört?). Word war gerade WYSIGWIG geworden. Die freizugänglichen Rechner an der Uni hatten nicht genug Leistung dafür (trotz "illegal" kopierte 5 1/4 Floppy).
1992 erste eigene Rechner: 286 mit 1MB Ram. Nach und nach sehr teuer auf 4MB aufgestockt. Windows 3.1, klar, aber wozu? ;-)
1994 erste ernsthafte Programmierung in C, ein bischen Assembler am Rand. Erste Hacking: unter DOS wird bei gleichen Namen immer die .bat-Datei vor den .com oder .exe abgerufen. Also hätte der Admin auf einer offentlich zugänglichen Maschine "Login.exe" abrufen sollen anstatt nur "Login" (weil der .bat von mir stammte :-). Ziel war nur der Zugang zu den streng bewachten Drucker (weil teuer).
1997 erste Spielerei mit Excel. Entdeckung der Makrorekorder. Das geilste, was ein neugierigen Mensch in den Hände kommen kann. Und Michael Koflers "Excel 2000 programmieren" war die Bibel!
2000 "Unternehmensberater für Business Intelligence und multidimensionale Datenbank", hört sich gross an, aber genau die Phase, wo jeder eingestellt wurde, der "SAP" schreiben könnte. Ich könnte aber sogar "Pivottabelle" (und nicht nur schreiben).
Ab da die übliche Weiterentwicklung. Gerade weiss ich nicht, ob ich auf einer eigenen Maschine mit 64 GB oder ins Cloud setzen soll, um Docker + DevOPs + Cloud nativ zu probieren... Python, machine Learning, AI, NLP... Excel ist reine Belustigung am Feierabend, oder wenn Kollegen nicht wissen, wie sie 2 Dateien mit je 1 Mio Datensätzen miteinander vergleichen können. Oder tagsüber, wenn die Besprechungen zu langweilig sind.
VG
Yal

Beliebteste Forumthreads (12 Monate)

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread