Da es in den Fingern gekribbelt hat, habe ich ChatGPT nach einem VBScript gefragt. Ich habe eine CSV-Datei in der in Zelle A1 folgender Wert mit Leerzeichen eingetragen ist: 6500 00. Durch ein VBScript, welches durch Drag and Drop ausgelöst wird, soll das Leerzeichen in Zelle A1 entfernt werden. Antwort von ChatGPT: Hier ist ein einfaches VBScript, das genau das tut: Es entfernt das Leerzeichen in Zelle A1 einer per Drag & Drop übergebenen CSV-Datei. Es speichert die Datei anschließend überschrieben. VBScript (z. B. als EntferneLeerzeichen.vbs speichern): If WScript.Arguments.Count = 0 Then
MsgBox "Bitte eine CSV-Datei auf dieses Skript ziehen.", vbExclamation
WScript.Quit
End If
Dim csvPath
csvPath = WScript.Arguments(0)
Dim xl, wb
Set xl = CreateObject("Excel.Application")
xl.Visible = False
xl.DisplayAlerts = False
Set wb = xl.Workbooks.Open(csvPath)
' Leerzeichen in Zelle A1 entfernen
With wb.Sheets(1).Range("A1")
.Value = Replace(.Value, " ", "")
End With
wb.Save
wb.Close False
xl.Quit
Set wb = Nothing
Set xl = Nothing Verwendung: Speichere das Skript als .vbs-Datei, z. B. EntferneLeerzeichen.vbs. Ziehe deine CSV-Datei mit der Maus auf das Skript → Das Leerzeichen in A1 wird entfernt und die Datei direkt gespeichert. Wenn du möchtest, dass eine neue Datei gespeichert wird (anstatt die Originaldatei zu überschreiben), kann ich das Skript entsprechend anpassen. Ich habe das VBScript erstellt und an einer Datei getestet. Hat super funktioniert. Es ist logisch, dass die Formulierung deines Sachverhalts für ChatGPT etwas umfangreicher sein muss.
... Mehr anzeigen