Mit diesem code copiere ich den Spalten Inhalt in eine text datei.
das funktioniert auf meinem rechner Einwandfrei da ich BEZI bin.
Private Sub CommandButton1_Click()
Dim cnt, sInhalt, sDatei As String, lMaxZeile As Long, iFile As Integer
sDatei = "c:\Users\bezi\Desktop\GIFT.txt"
lMaxZeile = 100
iFile = FreeFile
Open sDatei For Output As iFile
For cnt = 1 To lMaxZeile
sInhalt = Sheets("DE").Cells(cnt, 56).Value
Print #iFile, sInhalt
Next cnt
Close iFile
End Sub
Bei einem anderen User ist der Pfad falsch, kann ich den User eines Rechners per VBA ermitteln und diesen hier verwenden. wie müsste ich das machen? Oder wie müsste ich den code erweitern um eine .txt datei zu erstellen, den Spalten Inhalt hinein zu kopieren und diese Datei dann an einem gewünschten Speickerort und gewünschtem Namen zu sichern?
Freue mich auf jede Antwort.
herzlich
beat