Ich möchte nun aus der Exportdatei jeglichen VBA Code entfernen. Wie kann ich das machen?
Danke
Martin
Sub tst()
Dim strQ As String, rngQ As Range
strQ = ActiveSheet.Name
Set rngQ = ActiveSheet.UsedRange
Workbooks.Add xlWBATWorksheet
ActiveSheet.Name = strQ
rngQ.Copy ActiveSheet.Cells(rngQ.Row, rngQ.Column)
End Sub
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-LintfortSub tst2()
Dim strQ As String, rngQ As Range
strQ = ActiveSheet.Name
Set rngQ = ActiveSheet.UsedRange
Workbooks.Add xlWBATWorksheet
ActiveSheet.Name = strQ
rngQ.Rows.EntireRow.Copy ActiveSheet.Cells(rngQ.Row, rngQ.Column)
rngQ.Columns.EntireColumn.Copy ActiveSheet.Cells(rngQ.Row, rngQ.Column)
End Sub
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort