Hallo zusammen!
Ich habe eine Aufgabe die ich gerne automatisiert lösen würde.
Im Ordner sind N .csv dateien. Diese würde ich gerne per Knopfdruck in Excel in einzelne Worksheets einlesen, welche den Namen der entsprechenden csv Datei hat.
Dazu habe ich bereits etwas im Internet gefunden, jedoch habe ich hier das Problem, dass das Makro nicht mehr ausführbar ist sobald ich die Datei gespeichert& geschlossen habe. In meinem Excel habe ich bereits den ordner als vertrauenswürdige Location eingestellt und immer alle Makros aktiviert. Trotzdem funktioniert das leider nicht.
Den Code den ich hierfür gefunden habe ist folgender:
Option Explicit
Sub Load_CSVs()
'Author: Benjamin Spiess
'u-Number : u610130
'Date: 27/04/2007
'Summary: Import all CSV files from a folder into separate sheets
' named for the CSV filenames
Dim fPath As String
Dim fCSV As String
Dim wbCSV As Workbook
Dim wbMST As Workbook
Set wbMST = ThisWorkbook
fPath = "" 'path to CSV files, include the final \
Application.ScreenUpdating = False 'speed up macro
Application.DisplayAlerts = False 'no error messages, take default answers
fCSV = Dir(fPath & "*.csv") 'start the CSV file listing
On Error Resume Next
Do While Len(fCSV) > 0
Set wbCSV = Workbooks.Open(fPath & fCSV) 'open a CSV file
wbMST.Sheets(ActiveSheet.Name).Delete 'delete sheet if it exists
ActiveSheet.Move After:=wbMST.Sheets(wbMST.Sheets.Count) 'move new sheet into Mstr
Columns.AutoFit 'clean up display
fCSV = Dir 'ready next CSV
Loop
Application.ScreenUpdating = True
Set wbCSV = Nothing
End Sub
Dazu würde ich gerne automatisiert "Conditional Formatting" auf alle Worksheets anwenden mit folgender Regel:
Conditional Formating -> Color Scales -> Blue White Red Color Scale. Und das auf alle Felder mit Ausnahme der HeaderZeile (1) und der Indexspalte (A). Optimalerweise sollte das Skript auf Worksheets welche mit "_rel" enden auch die Spalte (B) für das Formatting nicht berücksichtigen.
Könnt ihr mir hier bitte helfen? Ich wäre euch sehr dankbar!:)
Grüße
Benny
|