- Registriert
- 13.06.13
- Beiträge
- 2
Hallo, ich habe da ein kleines Makro das in Excel für Windows läuft. Das sollte jetzt aber auch in Excel für Mac funktionieren. Wer kann mir da helfen?
Dieses Script erstellt Ordner von den Angaben in der ersten Spalte der Excel Tabelle. Und zwar in dem Pfad, der bei Windows so wie in der dritten Zeile geschrieben ist.
Hier mal den code:
Option Explicit
' anpassen !!!MIT abschließendem Backslash "\"
Const strPfad1 As String = "C:\Ordner\Montag\"
Private Declare Function MakeSureDirectoryPathExists _
Lib "imagehlp.dll" (ByVal Pfad As String) As Long
Public Sub Test()
Dim wksSheet As Worksheet
Dim lngLastRow As Long
On Error GoTo Fin
Set wksSheet = ThisWorkbook.Worksheets("Tabelle1") 'anpassen!
With wksSheet
lngLastRow = .Range("A" & .Rows.Count).End(xlUp).Row ' Spalte A
For lngLastRow = 1 To lngLastRow ' ab Zeile 1 also eventuell anpassen
If Trim(.Cells(lngLastRow, 1).Value) <> "" Then
MakeSureDirectoryPathExists (strPfad1 & .Cells(lngLastRow, 1).Value & "\")
End If
Next lngLastRow
End With
Fin:
Set wksSheet = Nothing
End Sub
Dieses Script erstellt Ordner von den Angaben in der ersten Spalte der Excel Tabelle. Und zwar in dem Pfad, der bei Windows so wie in der dritten Zeile geschrieben ist.
Hier mal den code:
Option Explicit
' anpassen !!!MIT abschließendem Backslash "\"
Const strPfad1 As String = "C:\Ordner\Montag\"
Private Declare Function MakeSureDirectoryPathExists _
Lib "imagehlp.dll" (ByVal Pfad As String) As Long
Public Sub Test()
Dim wksSheet As Worksheet
Dim lngLastRow As Long
On Error GoTo Fin
Set wksSheet = ThisWorkbook.Worksheets("Tabelle1") 'anpassen!
With wksSheet
lngLastRow = .Range("A" & .Rows.Count).End(xlUp).Row ' Spalte A
For lngLastRow = 1 To lngLastRow ' ab Zeile 1 also eventuell anpassen
If Trim(.Cells(lngLastRow, 1).Value) <> "" Then
MakeSureDirectoryPathExists (strPfad1 & .Cells(lngLastRow, 1).Value & "\")
End If
Next lngLastRow
End With
Fin:
Set wksSheet = Nothing
End Sub