Office: Sonderzeichen für Gültigen Dateinamen elemeniren

Muecke.1982 · 8. November 2020

Hallo miteinander,

in Spalte C stehen bei mir Namen mit Projekt nummern, blöderweise können Projektnummern Sonderzeichen enthalten wirklich alles,es gibt keine Richtlinie dafür leider.

ich möchte jetzt zu jedem Projekt eine Datei erzeugen, das ich Typfehler etc. vermeide möchte ich mir den Filenamen aufbereiten lassen so das ich diesen dann Kopien kann.

dazu möchte ich alle Sonderzeichen die in Dateinamen nicht zulässig sind durch ein _ ersetzen.

jetzt dachte ich da an die Möglichkeit mit
=WECHSELN(C5;"(";"_")

kann ich hier ein Art Array erstellen? sprich alle Sonderzeichen auflisten die ersetzt werden sollen, damit ich nicht für jedes Sondereichen ein WECHSELN erstellen muss?

Gruß Mücke

:)

Fennek11 · 9. November 2020

Hallo,

ohne RegEx sollte es so gehen:

Code:

function Alfa(rng) as string
dim Out as string
for i = 1 to len(rng.value)
if mid(rng.value, i, 1) like "[A-Za-z]" then
out = out & mid(rng.value, i, 1)
else
out = out & "_"
end if
next i
Alfa = out
end function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Mit LibreOffice lief der Code nicht, also ist noch etwas debuggen angesagt.

mfg

Muecke.1982 · 10. November 2020

Hallo Fennek11,

Perfekt danke.

bei mir im Office 2019 hat es sehr gut geklappt.
Habe nur die variable i noch deklarieren müssen.
schaut dann so aus:

Code:

Function Alfa(rng) As String
Dim Out As String
Dim i As Integer
For i = 1 To Len(rng.Value)
If Mid(rng.Value, i, 1) Like "[A-Za-z]" Then
Out = Out & Mid(rng.Value, i, 1)
Else
Out = Out & "_"
End If
Next i
Alfa = Out
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

In der Excel Datei schreibe ich dann =Alfa(C5)

DANKE!

Gruß Mücke

Muecke.1982 · 10. November 2020

ich wies das man das nihct machen soll, doch wie kann ich in die Regulären ausdrücke äüö mit aufnehmen das die nicht raus gelöst werden?

Gruß Mücke

knobbi38 · 10. November 2020

Hallo Mücke,

hier eine Funktion, die ursprünglich dazu gedacht war, alle Zahlen in einem String zu ersetzen. Durch die Argumente kann sie aber auch für deine Zwecke verwendet werden:
Code:

Option Explicit

' Nicht erlaubte Sonderzeichen in Dateinamen
Public Const cINV_FILENAME_CHARS As String = "~""#%&*:?/\{|}"

Public Function ReplaceChars( _
ByVal StringValue As String, _
Optional ByVal SpecialChars As String = "0123456789", _
Optional ByVal ReplaceCharacter As String = "_" _
) As String
Dim strBuffer As String
Dim i As Long

strBuffer = String(Len(StringValue), vbNullChar)
ReplaceChars = Left(ReplaceChars, 1)

For i = 1 To Len(StringValue)
If InStr(SpecialChars, Mid(StringValue, i, 1)) = 0 Then
Mid(strBuffer, i, 1) = Mid(StringValue, i, 1)
Else
Mid(strBuffer, i, 1) = ReplaceCharacter
End If
Next

ReplaceChars = strBuffer
End Function

Public Function ReplaceChars2(ByVal Filename As String) As String
ReplaceChars2 = ReplaceChars(Filename, cINV_FILENAME_CHARS)
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Der Aufruf erfolgt dann einfach mit:
=ReplaceChars2(C5)

Gruß Ulrich

Muecke.1982 · 10. November 2020

hallo Ulrich,

Das ist ja Perfekt, danke. jetzt bleiben auch die äöü mit drin ,-)

Danke.

Was würde ich nur ohne euch machen.

gruß Mücke

lupo1 · 10. November 2020

Möglicherweise das Wort "eliminieren" googeln.

Muecke.1982 · 10. November 2020

was möchtest du damit sagen? lupo1

Office: Sonderzeichen für Gültigen Dateinamen elemeniren

Sonderzeichen für Gültigen Dateinamen elemeniren

Sonderzeichen für Gültigen Dateinamen elemeniren

Sonderzeichen für Gültigen Dateinamen elemeniren

Sonderzeichen für Gültigen Dateinamen elemeniren

Sonderzeichen für Gültigen Dateinamen elemeniren - Similar Threads - Sonderzeichen Gültigen Dateinamen

Serienbrief Excel Datenquelle

Excel Buchstaben anderer Länder korekt darstellen

Exel Sonderzeichen über VBA in Code einfügen

Eingabeproblem nach Sonderzeichen

Sonderzeichen finden per VBA

Sonderzeichen ansprechen

Sonderzeichen aus String filtern