Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
680to684
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
680to684
680to684
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Großschreibung

Großschreibung
13.10.2005 13:14:57
Ulli
Hallo,
weiss jemand wie ich eine Großschreibung (erster Buschstabe)bei einer Eingabe in einer ComboBox einstellen kann ohne die Shift-Taste zu benutzen.
Über ein Hilfe wäre ich sehr dankbar.
Gruss
Ulli

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Großschreibung
13.10.2005 13:34:15
Torsten
hier mal nen befehl der dir weiterhilft
'wandelt den erstenBuchstaben in einen Großbuchstaben um
'DieEingabe'=UCase(mid('DieEingabe',1,1))
keine Gewähr ;)
AW: Großschreibung
13.10.2005 14:01:40
Ulli
Hi Torsten,
wie muss ich diesen Code in der ComboBox1 genau einfügen
Komme mit den Semicolon's nicht klar.
Danke
Ulli
AW: Großschreibung
13.10.2005 14:15:51
Torsten
woher bezieht deine combobox ihre informationen?
aus einer Usereingabe? ... dann
text = inputbox("......")
text = UCase(mid(text,1,1))
aus einr Zelle? ... dann
cmbDeinebox.additem UCase(mid(cells(x,y),1,1))
somit kannst du text zur combobox hinzufügen und der erste buchstabe wäre groß.
mfg torsten
Anzeige
AW: Großschreibung
13.10.2005 16:11:06
Ulli
Hallo Torsten,
die ComboBox1 wird als Ausgabebox benutzt
ist vielleicht nicht ganz der richtige Weg hat aber noch andere Gründe.
Gruss
Ulli
AW: Großschreibung
14.10.2005 08:51:59
Torsten
alles klar dann ist es kein problem...
cmbDeinebox.additem UCase(mid(cells(x,y),1,1))
das ist dann die Lösung
AW: Großschreibung
14.10.2005 10:03:46
Ulli
Hi Torsten,
vielen Dank für deine Info
Ein schönes Wochenende wünscht Dir
Ulli
AW: Großschreibung
13.10.2005 13:46:58
Mag
Hi,

Sub test()
Dim Text As String
Text = "austesten"
Mid(Text, 1, 1) = UCase(Mid(Text, 1, 1))
MsgBox Text
End Sub

Gruss

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige