Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

Gros- und Kleinbuchstaben | Herbers Excel-Forum


Betrifft: Gros- und Kleinbuchstaben von: Erich Müller
Geschrieben am: 18.12.2009 12:37:33

Hallo,
vielleicht kann mir jemand helfen. In einer Tabelle gebe ich über ein UF Namen in TextBox1 ein. Die Namen bestehen aus Nach- und Vorname. Alle in einer Zelle.
".Range("A" & lLetzte).Value = UCase(Trim(TextBox1.Value))".
Der Nachname, sowie der erste Buchstabe im Vornamen sollte in Großschrift und der Rest des Vornamens in Kleinschrift erscheinen. Ist dies über VBA möglich ?
Ich bitte um Hilfe.
Gruß EM

  

Betrifft: AW: Gros- und Kleinbuchstaben von: Rudi Maintaire
Geschrieben am: 18.12.2009 12:44:13

Hallo,
die Frage ist, wo hört der Nachname auf und wo fängt der Vorname an?

Carl Friedrich Freiherr vom Berg.


  

Betrifft: AW: Gros- und Kleinbuchstaben von: Erich Müller
Geschrieben am: 18.12.2009 12:48:36

Hallo Rudi,
Nachname und Vorname können unterschiedlich lang sein, sind aber IMMER durch ein Leerzeichen getrennt. Der Nachname besteht nur aus einem Wort.
Gruß EM


  

Betrifft: AW: Gros- und Kleinbuchstaben von: Rudi Maintaire
Geschrieben am: 18.12.2009 13:07:13

Hallo,

Function GrossUndKlein(sText As String) As String
  Dim arrText, i As Integer
  arrText = Split(sText, " ")
  arrText(0) = UCase(arrText(0))
  For i = 1 To UBound(arrText)
    arrText(i) = WorksheetFunction.Proper(arrText(i))
  Next
  GrossUndKlein = Join(arrText, " ")
End Function

Gruß
Rudi


  

Betrifft: AW: Gros- und Kleinbuchstaben von: Hajo_Zi
Geschrieben am: 18.12.2009 12:45:40

Hallo Erich,

Option Explicit

Sub Erich()
    ' jedes Wort erster Buchstabe groß
    MsgBox StrConv("jedes Wort erster Buchstabe groß", vbProperCase)                    '  _
Wortanfang groß
End Sub
GrußformelHomepage


  

Betrifft: AW: Gros- und Kleinbuchstaben von: Erich Müller
Geschrieben am: 18.12.2009 13:03:48

Hallo Hajo,
danke für deine Antwort. Das war es nicht.
Gruß EM


  

Betrifft: AW: Gros- und Kleinbuchstaben von: Hajo_Zi
Geschrieben am: 18.12.2009 13:05:03

Halo Erich,

was ist Falsch. Jeder erste Buchstabe des Wortes wird Groß geschrieben. So hatte ich die Aufgabe interpretiert.

Gruß Hajo


  

Betrifft: AW: Gros- und Kleinbuchstaben von: Tino
Geschrieben am: 18.12.2009 12:49:34

Hallo,
meinst Du so?

Dim Vorname$, Nachname$

Nachname = UCase(Left$(TextBox1, InStrRev(TextBox1, " ") - 1))
Vorname = LCase(Right$(TextBox1, Len(TextBox1) - InStrRev(TextBox1, " ")))
Vorname = UCase(Mid(Vorname, 1, 1)) & Mid(Vorname, 2, Len(Vorname))
.Range("A" & lLetzte).Value = Nachname & " " & Vorname
Frohe Festtage wünscht TinoSmilies


  

Betrifft: AW: Gros- und Kleinbuchstaben von: Erich Müller
Geschrieben am: 18.12.2009 13:02:24

Hallo Tino,
deine Antwort kommt meinem Wunsch nahe. Nun teste ich.
Ich danke dir.
Gruß EM


  

Betrifft: AW: Gros- und Kleinbuchstaben von: Hajo_Zi
Geschrieben am: 18.12.2009 13:03:34

Hallo Erich,

und bei meiner Lösung mußt Du es erst gar nicht trenen.

Gruß Hajo


  

Betrifft: @Hajo von: Tino
Geschrieben am: 18.12.2009 13:14:45

Hallo,
er möchte den kompletten Nachnamen in Großbuchstaben und beim Vornamen nur den ersten.

z. Bsp. so MAYER Hans


Frohe Festtage wünscht TinoSmilies


  

Betrifft: @Hajo von: Tino
Geschrieben am: 18.12.2009 13:15:10

Hallo,
er möchte den kompletten Nachnamen in Großbuchstaben und beim Vornamen nur den ersten Buchstaben.

z. Bsp. so MAYER Hans


Frohe Festtage wünscht TinoSmilies


  

Betrifft: sorry Tastenhänger ;-) oT. von: Tino
Geschrieben am: 18.12.2009 13:16:08




  

Betrifft: Hallo Tino von: Erich Müller
Geschrieben am: 18.12.2009 13:32:33

Hallo Tino,
alles paletti. Nun noch eine Frage. Was ist bei zwei Vornamen zu tun ?
Gruß EM


  

Betrifft: AW: Hallo Tino von: Reinhard
Geschrieben am: 18.12.2009 13:34:59

Hallo Erich,

was ist mit Rudis zweiter Antwort?

Gruß
Reinhard


  

Betrifft: AW: Hallo Tino von: Erich Müller
Geschrieben am: 18.12.2009 13:56:22

Hallo Reinhard,
um mit Rudis Antwort umzugehen, bin ich VBA-mäßig zu unbedarft. Tut mir leid.
Gruß EM


  

Betrifft: Verwendung... von: Tino
Geschrieben am: 18.12.2009 14:00:42

Hallo,
erstelle die Function in einen Modul

Function GrossUndKlein(sText As String) As String
  Dim arrText, i As Integer
  arrText = Split(sText, " ")
  arrText(0) = UCase(arrText(0))
  For i = 1 To UBound(arrText)
    arrText(i) = WorksheetFunction.Proper(arrText(i))
  Next
  GrossUndKlein = Join(arrText, " ")
End Function
Bei deiner Übergabe an die Zelle machst Du

.Range("A" & lLetzte).Value = GrossUndKlein(Trim(TextBox1.Value))

Gruß Tino


  

Betrifft: siehe Rudi Beitrag... von: Tino
Geschrieben am: 18.12.2009 13:57:14

Hallo,

https://www.herber.de/forum/archiv/1124to1128/t1124874.htm#1124893

Gruß Tino


  

Betrifft: AW: siehe Rudi Beitrag... von: Erich Müller
Geschrieben am: 18.12.2009 14:01:48

Hallo Tino,
ich weiss nicht, wie ich Rudis Beitrag einbauen soll. Da bin ich in VBA zu unbedarft. Schade ....
Mit deiner Antwort bin ich klar gekommen.
Gruß EM


  

Betrifft: Herzlichen Dank an alle von: Erich Müller
Geschrieben am: 18.12.2009 14:11:03

und viel Spaß bei den kommenden Feiertagen. Tino, du hast mir sehr geholfen. Dafür Extradank !!!
Gruß EM


  

Betrifft: AW: falsch interpretiert von: Hajo_Zi
Geschrieben am: 18.12.2009 13:33:29

Hallo Tino,

da hatte ich es dann falsch interpretiert.

Option Explicit

Sub Erich()
    ' jedes Wort erster Buchstabe groß
    Dim StWort As String
    StWort = "jedes Wort erster Buchstabe gross"
    MsgBox Left(StrConv(StWort, vbProperCase), InStrRev(StWort, " ")) & UCase(Mid(StWort,  _
InStrRev(StWort, " ")))
End Sub

Gruß Hajo