© Klaus-Martin Buss   www.kmbuss.de
Diese Seite ist Teil eines Framesets. Sollte links kein Navigationsmenü angezeigt werden, bitte hier klicken ...
 

UDF's (Benutzerdefinierte Funktionen)

UDF "Rückwärts"

Option Explicit

Function Rückwärts(Zelle As String)
Rückwärts = StrReverse(Zelle)
End Function 

T O P

UDF "Ziffern"

Option Explicit

Function Ziffern(myString As String)
Dim i As Integer, j As Integer
Dim OnlyNums As String
For i = Len(myString) To 1 Step -1
If IsNumeric(Mid(myString, i, 1)) Then
j = j + 1
OnlyNums = Mid(myString, i, 1) & OnlyNums
End If
If j = 1 Then OnlyNums = CInt(Mid(OnlyNums, 1, 1))
Next i
Ziffern = CLng(OnlyNums)
End Function 

UDF "Verbinden"

Option Explicit

Public Function Verbinden(Trennzeichen As String, ParamArray Bereich() As Variant)
Dim vItem As Variant, rngCell As Range
Dim vRetVal As Variant
For Each vItem In Bereich
For Each rngCell In vItem.Cells
vRetVal = vRetVal & rngCell.Value & Trennzeichen
Next rngCell
Next vItem
Verbinden = Left$(vRetVal, Len(vRetVal) - Len(Trennzeichen))
End Function

UDF "Textrechnen"
Option Explicit

UDF's "Erstellt", "Geändert", "Gedruckt"
Option Explicit

Public Function Erstellt() As String
Application.Volatile
Erstellt = _
"Erstellt am " & ActiveWorkbook.BuiltinDocumentProperties("Creation Date") & " durch " & _
ActiveWorkbook.BuiltinDocumentProperties("Author")
End Function
'********************************************************************************
Public Function Geändert() As String
Application.Volatile
Geändert = _
"Zuletzt geändert am " & ActiveWorkbook.BuiltinDocumentProperties("Last Save Time") & " durch " & _
ActiveWorkbook.BuiltinDocumentProperties("Last Author")
End Function
'********************************************************************************
Public Function Gedruckt() As String
Application.Volatile
Gedruckt = _
"Zuletzt gedruckt am " & ActiveWorkbook.BuiltinDocumentProperties("Last Print Date") & " durch " & _
ActiveWorkbook.BuiltinDocumentProperties("Last Author")
End Function

T O P

UDF "Kommas"
Option Explicit

Public Function Kommas(Zelle As Range, Stellen As Integer) As String
Dim i As Integer
Dim txt As String
Dim ktxt As String
txt = Zelle.Text
For i = 1 To Len(txt) Step Stellen
ktxt = ktxt & Mid(txt, i, Stellen) & ","
Next i
Kommas = Left(ktxt, Len(ktxt) - 1)
End Function

T O P
 

UDF "IsMailAddress"
Option Explicit

UDF "Formatierung"
Option Explicit

T O P

UDF's "Schriftfarbe", "Hintergrundfarbe"
Option Explicit

Function Schriftfarbe(Zelle As Range) As Long
Schriftfarbe = Zelle.Font.ColorIndex
End Function
'***************************************
Function Hintergrundfarbe(Zelle As Range) As Long
Hintergrundfarbe = Zelle.Interior.ColorIndex
End Function 

T O P

UDF "Weblink"
Option Explicit

Public Function Weblink(Zelle As Range)
Application.Volatile
Weblink = Zelle.Hyperlinks(1).Address
End Function
 

Stand: 02.02.10           (wird fortgesetzt ...)
© 2003 Crocodil Entertainment Klaus-Martin Buss