Ja, perfekt, habe es schon in das Projekt verbaut und etwas angepasst. Jetzt muss ich nur noch die Mitarbeiter dazu erziehen, sich an die von mir erstellte Arbeitsanweisung zu halten, insbesondere an den "_" vor der KW.
So einfach, aber ich bin manchmal echt vernagelt :20: Nochmals vielen Dank!
Es wäre vernünftiger alle CSV-Dateien zu integrieren bevor das Ergebnis in Excel zu laden.
Code:
Sub M_snb()
shell "cmd /c copy G:\OF\*.csv G:\OF\alles.csv",0
do until dir("G:\OF\alles.csv")<>""
doevents
loop
do until filelen("G:\OF\alles.csv")>0
doevents
loop
sheets.add(,sheets(sheets.count),,"G:\OF\alles.csv"
End Sub
Moin,
Zitat:Jetzt muss ich nur noch die Mitarbeiter dazu erziehen
Welchen Führungsstil pflegen wir denn?
Anscheinend einen zu laschen... :19: Die Testphase geht nun schon die 4. Woche, und immer noch sind Fehler in den Kalender-Exporten. Sei es die zu exportierenden Datenfelder, oder Verstöße gegen die Namenskonvention. Werde für den Nachmittag mal ein Boot Camp... äääh, Training einberaumen.
OT:
„Wenn Du ein Schiff bauen willst, dann trommle nicht Männer zusammen, um Holz zu beschaffen, Aufgaben zu vergeben und die Arbeit einzuteilen, sondern lehre die Männer die Sehnsucht nach dem weiten, endlosen Meer.“
- Antoine de Saint-Exupéry -
BTT:
Wo kommen dieses CSVs denn her?
Besser gesagt - gibt es Zugriff auf die Datenbank, welche hinter den CSVs steckt?
Zugriff gibt es keinen, das sind Exporte aus den Outlook-Kalendern unserer Mitarbeiter an verschiedenen Standorten in Deutschland. Die werden auf einem File-Server gespeichert und von da zentral hier am Hauptstandort ins Excel importiert und ausgewertet.
Ui,
noch besser.
Du kannst in Outlook Formulare entwerfen und den Kalendern zuweisen ^^
Okay. Das hätte ich soweit. Fürs Auge wärs natürlich schöner, wenn die importierten CSV-Dateien unsichtbar blieben. Ich konnte mit dem Makro-Recorder jedoch nur die jenigen gesammelt ausblenden, die mir z.B. für die KW zur Verfügung stehen, das kann sich ja ändern wegen Urlaub, Krankheit etc. Wie schreibe ich das Makro um, dass er mir alle Tabellenblätter ausblendet, die "*_KW*" enthalten. Nur einfach Platzhalter eintragen statt des Array geht nicht.
So sieht es jetzt aus, geht wie gesagt aber nicht:
Code:
Sub AusblendenDerCSV()
'
' AusblendenDerCSV Makro
'
'
ActiveWindow.ScrollWorkbookTabs Sheets:=1
ActiveWindow.ScrollWorkbookTabs Sheets:=1
ActiveWindow.ScrollWorkbookTabs Sheets:=1
ActiveWindow.ScrollWorkbookTabs Sheets:=1
ActiveWindow.ScrollWorkbookTabs Sheets:=1
ActiveWindow.ScrollWorkbookTabs Sheets:=1
ActiveWindow.ScrollWorkbookTabs Sheets:=1
ActiveWindow.ScrollWorkbookTabs Sheets:=1
ActiveWindow.ScrollWorkbookTabs Sheets:=1
ActiveWindow.ScrollWorkbookTabs Sheets:=1
Sheets(Array("*_KW*.csv")).Select
ActiveWindow.SelectedSheets.Visible = False
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
End Sub
Hallo
eine Array Lösung kann ich nicht anbieten, Standard maessig geht es über die alte For Next Schleife so:
Code:
For j = 1 To Worksheets.Count
If InStr(Worksheets(j).Name, ".CSV") Then _
Worksheets(j).Visible = False
Next j
mfg Gast 123
Danke, das ist super. So langsam habe ich alles, was ich brauche. :19: