Makro in Persnl.xls wird nicht ausgeführt
Christian
ich habe folgendes Problem: Ich habe ein Makro geschrieben, in dem die Daten aus einer Excel-Tabelle in eine TXT.Datei geschrieben werden. In der Tabelle wo ich dieses Makro einstelle, funktioniert es einwandfrei. Wenn ich aber dieses Makro in die Persnl.xls stelle, führt er dieses Makro nicht aus. Ich habe schon überall im Internet nach meinem Problem gesucht, aber noch keine Antwort gefunden. Anbei das Makro:
Option Explicit
Sub OpenTextFileExportWriteAll()
Dim fs, A, Regex, TxT As String
Dim strTrennZeichen As String, strPfad As String
Dim wks As Worksheet
strPfad = "I:\pe\Abrechungsdaten_für_IT0015\DatenIT0015.txt"
Set wks = Worksheets("Tabelle1")
strTrennZeichen = ""
Set fs = CreateObject("Scripting.FileSystemObject")
Set A = fs.CreateTextFile(strPfad, True)
Tabelle1.UsedRange.Copy
If strTrennZeichen = vbTab Then
A.Write lesen
Else
Set Regex = CreateObject("Vbscript.Regexp")
With Regex
.Pattern = vbTab
.Global = True
A.Write .Replace(lesen, strTrennZeichen)
End With
End If
A.Close
Application.CutCopyMode = False
End Sub
Private Function lesen() As String
Dim clp As New DataObject
With clp
.GetFromClipboard
lesen = .GetText
End With
End Function
Wäre schön, wenn mir geholfen werden könnte.
Vielen Dank im Voraus.