Hallo Horsti,
Ziel des Codes soll es sein, einen fest definierten Bereich (innerhalb der selben Spalte) innerhalb eines Workbooks durch einen Klick auf einen Button in eine Textdatei wegzusichern, deren Dateiname zum Teil aus einem fixen, zum Teil aus einem variablen Bereich zusammengesetzt ist.
Dadurch soll unterbunden werden, dass jedes mal die gleiche Datei überschrieben wird.
Mit deiner Einfügung sieht das Makro nun so aus:
Sub Saving()
Dim Zelle As Range, strSave As String, lngRow As Long, Bereich As Range, DateiName As String
Set Bereich = [A23:A38] 'Hier kannst du den Bereich ändern
DateiName = "C:\Test\abcd\" & ActiveWorkbook.Name & Cells(24, 6).Value & ".txt"
Open DateiName For Output As #1
lngRow = 1
For Each Zelle In Bereich
strSave = strSave & Zelle & Chr(9)
Next
Print #1, Left(strSave, Len(strSave) - 1)
Close 1
End Sub
Allerdings klappt es so noch nicht, da ich nun eine Fehlermeldung nach der anderen bekomme...
Könntest du dir das bitte nochmals kurz ansehen?
Vielen Dank schon jetzt für deine Infos und deinen Support!
LG
Tibo
|