Funktion zum konvertieren von String in Großbuchstaben

Habe ich versucht, eine benutzerdefinierte Funktion, die ich schrieb zurück, es ist Wert in allen upper-case, mit der String.ToUpper() - Methode in VBA. Wenn ich versuche, meine UDF in excel bekomme ich einen compiler-Fehler, der nur die highlights der top-line der meine UDF:

Function removeSpecial(sInput As String) As String

Hier ist der code in seiner Gesamtheit:

Function removeSpecial(sInput As String) As String
    Dim sSpecialChars As String
    Dim i As Long
    sSpecialChars = "\/:*?™""®<>|.&@# (_+`©~);-+=^$!,'" 'This is your list of characters to be removed
    For i = 1 To Len(sSpecialChars)
        sInput = Replace$(sInput, Mid$(sSpecialChars, i, 1), "")

    Next
    sInput = sInput.ToUpper()
    removeSpecial = sInput
End Function

Funktioniert der code einwandfrei entfernen von Sonderzeichen, aber ich möchte es auch konvertiert den eingegebenen String in Großbuchstaben.

Ich begann diese Fehlermeldung, wenn ich versuchte, fügen Sie hinzu:

sInput = sInput.ToUpper()

Wenn der code auskommentiert ist, meine UDF funktioniert, aber ohne die Rückgabe der eingegebenen Zeichenfolge in allen Oberen.

für VBA (nicht VB.Net) verwenden Sie einfach sInput = UCase(sInput)
Gut, dass erklärt eine Menge. Wenigstens bin ich nicht verrückt. Nochmals vielen Dank simoco.

InformationsquelleAutor | 2014-03-07

  1. 14

    Nur die falsche Funktion. Sie möchten

    sInput = UCase(sInput)

    Hoffe, das hilft

    Antwort akzeptiert und den Titel der Frage geändert. Hoffentlich machen es leicht zu finden, die für Nutzer in der Zukunft.

    InformationsquelleAutor Hutch

  2. 0

    Bestätigen Sie die Funktion UCase(...) arbeitet. Hier ist ein weiteres Beispiel "Großschreibung des ersten Buchstabens in der 2. Spalte von der 2. Zeile bis zum Ende":

    Sub UpCaseMacro()

' Declare variables
Dim OldValue As String
Dim NewValue As String
Dim FirstLetter As String
Dim i As Long

' Select values
lastRow = ActiveSheet.Range("B" & Rows.Count).End(xlUp).Row
ActiveSheet.Range(Cells(2, 2), Cells(lastRow, 2)).Select

' Update data
For i = 2 To Selection.Rows.Count
    If Not IsEmpty(Cells(i, 2).Value) Then
        OldValue = Cells(i, 2).Value
        FirstLetter = Left(Cells(i, 2).Value, 1)
        NewValue = UCase(FirstLetter) & Right(OldValue, Len(OldValue) - 1)
        Cells(i, 2).Value = NewValue
    End If
  Next i
 End Sub

    InformationsquelleAutor andrii

Schreibe einen Kommentar