Thema Datum  Von Nutzer Rating
Antwort
13.02.2011 22:01:35 Gast26012
Solved
Blau Funktion funktioniert aber Sub nicht
 14.02.2011 04:05:04 Severus
NotSolved

Ansicht des Beitrags:
Von:
Severus		 Datum:
14.02.2011 04:05:04		 Views:
770		 Rating:
     
Antwort:
  Ja
Thema:
Funktion funktioniert aber Sub nicht		 
Option Explicit
 
Public Function macheGross(ByVal s As String) As String
Dim i As Integer
Dim n As String
If Len(s) = 0 Then Exit Function
n = UCase(Mid(s, 1, 1))
i = 2
Do While i <= Len(s)
    If i - 2 > 0 Then
        If Mid(s, i - 2, 2) = "! " Or Mid(s, i - 2, 2) = ". " Then
            n = n & UCase(Mid(s, i, 1))
        Else
            n = n & Mid(s, i, 1)
        End If
    Else
        n = n & Mid(s, i, 1)
    End If
    i = i + 1
Loop
macheGross = n
End Function
 
 
Public Sub Test()
Dim n As String
n = InputBox("Zeichenfolge eingeben: ")
MsgBox macheGross(n)
End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
13.02.2011 22:01:35 Gast26012
Solved
Blau Funktion funktioniert aber Sub nicht
 14.02.2011 04:05:04 Severus
NotSolved