Makrobefehl funktioniert nicht mehr!

Question

Hallo Leute,

folgendes Makro läuft in der 2010-Version nicht mehr!
Es hängt bei "With Application.FileSearch"! Diesen Befehl soll es nicht mehr geben.
Kann mir schnell jemand helfen? Es eilt wirklich sehr!

Gruss
Ines


Sub M_1_KoSt_121_öffnen_Schritt_1()

Dim zähler As Long, Datei As String, Meldung As String
Application.ScreenUpdating = False
Datei = "KSTSTL_121_IHK_Emden.csv"

With Application.FileSearch

.NewSearch
.SearchSubFolders = True
.LookIn = "V:\Programme\varialexport\"
.Filename = ".csv"
If .Execute <> 0 Then
zähler = 1
Do
If Right(.FoundFiles.Item(zähler), Len(Datei)) = Datei Then
Workbooks.Open Filename:=.FoundFiles.Item(zähler)
Exit Do
End If
zähler = zähler + 1
If zähler > .FoundFiles.Count Then
Meldung = MsgBox("Die Datei "" KSTSTL_121_IHK_Emden.csv"" " & _
"wurde auf Laufwerk ""V"" nicht gefunden!" & Chr(13) & _
"Bitte die Datei erstellen! (Großschreibung)", vbOKOnly)
Exit Sub
End If
Loop While zähler <= .FoundFiles.Count
End If
End With
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:=";", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, _
1), Array(6, 1)), TrailingMinusNumbers:=True
End Sub

Answer 1

Hallo,

schau dir mal die folgenden Threads zu dem Problem an:

Thread 1

Thread 2

Gruß

M.O.

Answer 2

Hallo M.O.!
Ich habe mir die Versionen angesehen! Leider fehlen mir die Kenntnisse, um z. B. Version 1 entsprechend einzubauen.
Kannst Du mir da auch weiterhelfen?
Gruss
Ines

Answer 3

Hallo Ines,

ich habe zwar etwas Ahnung von VBA, doch hier muss ich auch erst mal schauen, wie ich das Makro anpassen kann.
Vielleicht kann ja einer unserer VBA-Profis hier etwas schneller helfen.

Gruß

M.O.

Answer 4

Hi!

Bemüht Euch nicht weiter!

Ich habe mein Makro, bzw. das was herauskommen soll, etwas abgeändert.

Gruss und trotzdem vielen Dank für die Mühe...

Ines

Answer 5

Hallo nochmal!

Ich komme einfach nicht um diesen Befehl herum!
Kann mir jemand doch noch mein Makro anpassen?
Wär echt super!

Gruss u Dank im Voraus!
Ines

Sub CommandButton1_Click() 'diese zeile musst du löschen falls du es in dein makro reinkopieren willst

ActiveSheet.Unprotect
ActiveWorkbook.BreakLink Name:= _
"I:\IWiN\Datenexport\Finanzen\1. IWiN_Formular u Berechnung 2010-2013.xls", Type:= _
xlExcelLinks

Cells.Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

Dim pfad, name1, name2 As String

pfad = "I:\IWiN\Datenexport\Finanzen" 'hier deinen pfad eingeben"
name1 = Cells(26, 3) 'hier wird der inhalt aus A1 gelesen (erste 1 = zeile; zweite 1 = spalte)
name2 = Cells(10, 3) 'hier wird der inhalt aus B1 gelesen (1 = zeile; 2 = spalte)

Dim i As Long
With Application.FileSearch
.LookIn = pfad
If .Execute > 0 Then i = .FoundFiles.Count
i = i + 1
ActiveWorkbook.SaveAs Filename:=pfad & "\" & name1 & "_" & name2 & "-" & Format(Date, "YYYY-MM-DD") & ".xls"

End With

Workbooks.Open Filename:= _
"I:\IWiN\Datenexport\Finanzen\Zahlungsanweisung verknüpft.xls", _
UpdateLinks:=3

End Sub