Hausaufgabe

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Funktionen02() Dim s1 As String Dim s2 As String Dim n As Integer 'Kleinschreibung s1 = "HALLO 2BHMBU!" s2 = LCase(s1) Debug.Print (s2) 'Großbuchstaben s1 = "hallo 2bhmbu!" s2 = UCase(s1) Debug.Print (s2) 'Länge s1 = "Hallo 2BHMBU!" n = Len(s1) Debug.Print (n) 'Linker Teilstring s1 = "Hallo 2BHMBU!" s2 = Left(s1, 5) Debug.Print (s2) 'Rechter Teilstring s1 = "Hallo 2BHMBU!" s2 = Right(s1, 6) Debug.Print (s2) 'Texposition finden s1 = "Hallo 2BHMBU!" s2 = " " n = InStr(s1, s2) Debug.Print (n) 'Teilstring s1 = "Hallo 2BHMBU!" s2 = Mid(s1, 4, 4) Debug.Print (s2) 'Einzelnes Zeichen s1 = Chr(65) & Chr(10) & Chr(66) Debug.Print (s1) End Sub

Option Explicit Public Function twistName(ByRef probjCell As Range) As String Dim avntSplitName As Variant avntSplitName = Split(probjCell.Text, " ") twistName = avntSplitName(1) & " " & Left$(avntSplitName(0), 1) & "." End Function

Hallo zusammen,
das ist ja wirklich was, was man dauernd braucht, und auch wenn das alles mit split und ähnlichen Befehlen geht, notiere ich so Zeug immer noch mit einer "historischen" Schreibweise, die genau den Kenntnissen von Jonas entspricht.
1. Aufgaben gehören sich in Teilprobleme zerlegt.
2. Wenn einen die Aufgabe überfordert, setzt man sich erst mal mit simpelsten Daten hin
Userbild

um sich einen Überblick zu verschaffen, was da passiert bzw. passieren soll.
Das sollte durch die farbliche Hervorhebung klar werden, hoffe ich.
Das Ganze in ein Programm umgesetzt könnte dann so aussehen:


Function twistname3(vollName As String) As String
posi = InStr(vollName, " ")
S1 = Mid(vollName, 1, posi - 1)
laenge = Len(vollName)
' S2 = Mid(vollName, 5, 3) auskommentiert
' wir wollen ja Variabeln für unterschiedliche
' Längen der Namen
S2 = Mid(vollName, posi + 1, laenge - posi)
twistname3 = S2 & " " & S1
End Function
Sub twist_aufrufen()
' Einlesen des Namens:
Name = Range("B11")
MsgBox twistname3(Name)
End Sub

wenn der "einzulesende Wert" in B11 steht; ansonsten halt inputbox oder wie auch immer.
Alle kapiert, Jonas?
Schöne Grüße,
Michael

Option Explicit Function twistName(ByRef strContent As String) As String Dim regex: Set regex = CreateObject("vbscript.regexp") With regex .Pattern = "(\w).*\W(\w+)" twistName = .Replace(strContent, "$2 $1.") End With End Function

Hi zusammen,
es scheint, als ob Jonas die versammelte Excel-Power nicht zu würdigen weiß.
An seiner Stelle würde ich noch ein bißchen herumspielen, z.B. mit dem Umsortieren von mehr als zwei Namen. Ein Blick in die Hilfestellung zu instr und evtl. instrrev kann dabei nix schaden...
@Steffen: um Deine regex-Kenntnisse beneide ich Dich - mir verbiegt es da immer das Hirn.
@Luc: den Kenntnisstand hat er doch mitgeteilt: "gemacht haben wir nur" diese seltsame Beispielfkt, die keine ist. Ich stehe grad mit Deinem Kommentar auf der Leitung ("du zeigst es aber nicht"): ich rufe das Ding doch mit einer Variablen auf?
@Herbert: danke, ich hab mich halt erinnert, wie oft ich anfangs (tempus fugit) an so Zeug geknabbert hab.
Schönen Sonntag noch,
Michael

Beliebteste Forumthreads (12 Monate)

24 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

24
Beiträge zum Forumthread

Beiträge zu diesem Forumthread