Gruppen
- Top Gruppen
- Betriebsysteme
- Windows classik
- Linux
- BS-Sonstige
- Software
- Datenbanken
- Bildbearbeitung
- Audio/mp3/Video
- Security/Viren
- SW-Sonstige
- Hardware
- Mainboard/CPU
- Grafikkarten
- Peripherie
- Laptop/Notebook
- HW-Sonstiges
- Netzwerk
- Telefon,ISDN,Modem
- W-Lan
- NW-Sonstiges
- Programmierung
- PHP,ASP,Perl...
- Java,C++...
- Webseiten/HTML
- Sonstiges
- PC-Sonstiges
- Plauderecke
- SN Intern
- Test
/ Forum / Tabellenkalkulation
Tabellenkalkulation
Fragevon aeberhard vom 24.11.2019, 01:43 Options
inputbox VBA code ändern
Mein Makro funktioniert eigentlich bestens.
Ich möchte aber nicht für die folgende Jahre immer ein neues Makro erstellen.
Ich möchte mittels einer Inputbox die Jahreszahl im Makro ausgetauschen. Gebe ich in die Inputbox: 2008 ein, soll "d:\Excel\2008\200804*.xls", "d:\Excel\Backup\2008\April" u.s.w. eingetragen werden.
Kann mir jemand weiterhelfen?
Besten Dank
Herbert
Sub MoveFiles()
On Error Resume Next
CreateObject("Scripting.FileSystemObject").MoveFile "d:\Excel\2007\200701*.xls", "d:\Excel\Backup\2007\Januar"
CreateObject("Scripting.FileSystemObject").MoveFile "d:\Excel\2007\200702*.xls", "d:\Excel\Backup\2007\Februar"
CreateObject("Scripting.FileSystemObject").MoveFile "d:\Excel\2007\200703*.xls", "d:\Excel\Backup\2007\März"
CreateObject("Scripting.FileSystemObject").MoveFile "d:\Excel\2007\200704*.xls", "d:\Excel\Backup\2007\April"
End sub
Ich möchte aber nicht für die folgende Jahre immer ein neues Makro erstellen.
Ich möchte mittels einer Inputbox die Jahreszahl im Makro ausgetauschen. Gebe ich in die Inputbox: 2008 ein, soll "d:\Excel\2008\200804*.xls", "d:\Excel\Backup\2008\April" u.s.w. eingetragen werden.
Kann mir jemand weiterhelfen?
Besten Dank
Herbert
Sub MoveFiles()
On Error Resume Next
CreateObject("Scripting.FileSystemObject").MoveFile "d:\Excel\2007\200701*.xls", "d:\Excel\Backup\2007\Januar"
CreateObject("Scripting.FileSystemObject").MoveFile "d:\Excel\2007\200702*.xls", "d:\Excel\Backup\2007\Februar"
CreateObject("Scripting.FileSystemObject").MoveFile "d:\Excel\2007\200703*.xls", "d:\Excel\Backup\2007\März"
CreateObject("Scripting.FileSystemObject").MoveFile "d:\Excel\2007\200704*.xls", "d:\Excel\Backup\2007\April"
End sub
Antwort 1 von Denkanstoßer vom 24.11.2019, 07:13 Options
Hi,
gehe nach folgendem Strickmuster vor:
mfg
gehe nach folgendem Strickmuster vor:
dim jahr as integer
jahr =inputbox("Welches Jahr? ")
CreateObject("Scripting.FileSystemObject").MoveFile "d:\Excel\[b]"&Cstr(jahr)&[/b]"\[b]"&Cstr(jahr)&"[/b]02*.xls", "d:\Excel\Backup\"&Cstr(jahr)&"\Februar"mfg
Antwort 2 von aeberhard vom 24.11.2019, 11:23 Options
Guten Tag Denkanstoßer
Das ist ja super, genau das habe ich gesucht.
Ich wünsche Dir ein schönes Wochenende
Gruss
Herbert
Das ist ja super, genau das habe ich gesucht.
Ich wünsche Dir ein schönes Wochenende
Gruss
Herbert
Ähnliche Themen
Abfrage auf ABBRUCH in InputBox
user3 04.05.2007 - 165 Hits - 11 Antworten
VBA Makrocode per Makro ändern
Catze 25.06.2007 - 96 Hits - 2 Antworten
VBA - Inputbox
Tomschi 14.10.2007 - 169 Hits - 3 Antworten
VBA-Editor öffnen und schließen
maxim66 14.03.2008 - 97 Hits - 2 Antworten
Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..
Neue Einträge
