title image


Smiley mit einer benutzerdefinierten Funktion
Hallo!



probier es mal mit folgender benutzerdefinierter Funktion:



Function OhneMitteltext _

(Eintragung, _

Mitteltext As String, _

Optional OhneLeerzeichen As Boolean = False, _

Optional AlleAusgeben As Boolean = False)



Application.Volatile



Dim Teil1 As String

Dim Teil2 As String

Dim pos1 As Integer



pos1 = InStr(Eintragung, Mitteltext)



If pos1 > 0 Then

Teil1 = Left(Eintragung, pos1 - 1)

Teil2 = Mid(Eintragung, pos1 + Len(Mitteltext))

Else

Teil1 = Eintragung

Teil2 = ""

End If



If OhneLeerzeichen Then

Teil1 = Trim(Teil1)

Teil2 = Trim(Teil2)

End If



OhneMitteltext = Teil1 & Teil2

If pos1 = 0 And AlleAusgeben = False Then

OhneMitteltext = ""

End If



End Function



Die Parameter der Funktion haben folgende Bedeutung:

Eintragung = Inhalt der Ursprungszelle bzw. Bezug zu dieser Zelle

Mitteltext = zusammenhängender Teil der Eintragung, der eliminiert werden soll

OhneLeerzeichen = Wahr, wenn Leerzeichen weggetrimt werden sollen, Voreinstellung: Falsch

AlleAusgeben = Wahr, wenn Zellen, die den Mitteltext nicht aufweisen, unverändert wiedergegeben werden sollen, Voreinstellung: Falsch



Viel Erfolg

Manes




Ob ich Spotlight gut finde? Also wenn ich ehrlich sein soll, müsste ich lügen!

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: