Mehrzeilige Zelle als Variable für Dateinamen
03.01.2025 17:26:02
Helix_2648
da ich leider kaum in VBS / Makros bewandert bin und mir meine Makros daher eher aus "Schnippseln" zusammengebastelt habe, komme ich bei dem Punkt leider nicht weiter.
Ich habe via Button einen Export programmiert, wo u.A. ein Textfeld in eine Batch-Datei kopiert wird und sich der Dateiname aus einer Zelle zieht bzw. von da übernommen wird.
Konkret geht es dabei um ein Tool, dass mir zum Hochladen von Fotos einen einheitlichen Text für FB und Co. generiert und zusätzlich noch eine passende BATCH-Datei, worüber sich dann in Chrome alle Gruppen öffnen, wo ich es hochladen möchte.
Wenn ich jetzt als Namen in der Zelle E4 "Blume auf dem Feld" eingebe, dann heißt die BATCH-Datei entsprechend.
Gibt es eine Möglichkeit, dass man bei einer mehrzeiligen Zelle nur die erste Reihe übernimmt als Dateinamen.
z.B. wenn ich bei E4 "Blume auf dem Feld"
In dem generierte Textfeld zum Hochladen übernimmt er es auch sauber mit zwei Zeilen, aber bei der Generierung der BATCH Datei kriege ich einen Laufzeitfehler.
Her ein Makro:
Public Sub BatchErzeugen()
Dim Zieldatei As String
If Range("M3").Value > "" Then
Zieldatei = "C:\Users\Joerg\OneDrive\Upload\" & Range("E4").Value & ".bat"
Open Zieldatei For Output As #1
Print #1, Range("O3").Value
Close #1
Else
MsgBox "Keine Daten vorhanden!", vbOKOnly
End IfVielen lieben Dank für eure Hilfe.
Anzeige