Hier der Code:
Sub GefilterteTabelleInTextdateiSpeichern()
Dim Zelle As Range
Dim i As Integer
Dim iZ As Integer
Sheets("Tabelle4").Activate
ActiveSheet.UsedRange.Copy
Sheets("Tabelle6").Activate
Range("A1").Select
ActiveSheet.Paste
iZ = Range("A65536").End(xlUp).Row
Open "c:\Ausgabe.txt" For Output As #1
For i = 1 To iZ
Print #1, ActiveCell.Value; ";";_
ActiveCell.Offset(0,1).Value; ";";_
ActiveCell.Offset(0,2).Value
ActiveCell.Offset(1,0).Select
Next
Close #1
MsgBox "Datenübertragung erfolgreich beendet"
End Sub