|
Hallo liebe VBA-Community,
ich sitze zur Zeit an einem Problem, bei dem ich auf Grund meiner beschränkten Excel- und insbesondere VBA-Kenntnisse nicht weiterkomme.
Folgender Hintergrund: Ich habe einen bestimmten Bereich innerhalb eines Arbeitsblattes, der durch Klick auf einen Button in eine Textdatei weggesichert werden soll.
Hier das genutzte Makro:
____________________________
Sub Saving()
Dim Zelle As Range, strSave As String, lngRow As Long, Bereich As Range
Set Bereich = [A23:A38]
Const DateiName = "C:\Test\abcd_m100_????.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
____________________________
Sehr einfach, aber funktional, und vielen Dank nochmal an der Stelle an Erich G. (--> kann sein, dass der Code noch jede Menge Müll enthält, ich habe ihn etwas zusammengestutzt da er ursprünglich mehr konnte).
Was mich an der Sache noch stört: der Dateiname ist fix. Dieser sollte sich im besten Fall aus einem fixen Part und einem variablen Teil zusammensetzen, welcher aus einer bestimmten Zelle ausgelesen wird.
Gewünschtes Ergebnis (Dateiname):
abcd_m100_????.txt --> wobei die ???? aus zum Beispiel der Zelle A1 ausgelesen werden sollen (es handelt sich dabei um eine vierstellige Ziffer).
Falls es einen unter euch gibt, der mir an der Stelle weiterhelfen kann: ich Danke schon mal recht herzlich im Voraus!!
LG
Tibo
|