Anzeige
Archiv - Navigation
1576to1580
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
Inhaltsverzeichnis

Buchstaben groß und klein schreiben

Buchstaben groß und klein schreiben
04.09.2017 13:31:09
Jens

Hallo ich habe Daten an Zelle 12 in der Spalte B.
Der Aufbau der daten ist so
O01.10Z999.a1
U01.1A999.a1
Es soll dann so sein, dass alle Buchstaben linkes des zweiten Punktes groß geschrieben werden sollen und alle Buchstaben rechts des zweiten Punktes sollen klein geschrieben werden.
Die Buchstaben können aus dem ganzen Alphabet kommen.
Hab jemand hierzu eine Idee?

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Buchstaben groß und klein schreiben
04.09.2017 13:41:08
Daniel
Hi
Beispielsweise mit dieser Formel in einer Hilfsspalte in der gleichen Zeile:
=GROSS(LINKS(B12;FINDEN(".";B12;FINDEN(".";B12)+1)))&KLEIN(TEIL(B12;FINDEN(".";B12;FINDEN(".";B12)+1) +1;9999))
Gruß Daniel
AW: Buchstaben groß und klein schreiben
04.09.2017 13:42:17
yummi
Hallo Jens,
liest aus Zelle E2 und schreibt nach F2 (kannst Du ja anpassen

Dim ipos As Integer
Dim ilen As Integer
Dim strteil1 As String
Dim strteil2 As String
ipos = InStrRev(ActiveSheet.Cells(2, 5).Value, ".")
ilen = Len(ActiveSheet.Cells(2, 5).Value)
strteil1 = Left(ActiveSheet.Cells(2, 5).Value, ipos)
strteil2 = Right(ActiveSheet.Cells(2, 5).Value, ilen - ipos)
strteil1 = UCase(strteil1)
strteil2 = LCase(strteil2)
ActiveSheet.Cells(2, 6).Value = strteil1 & strteil2
Gruß
yummi
Anzeige
AW: mit GROSS(), KLEIN(), FINDEN() und ...
04.09.2017 13:43:51
...
Hallo Jens,
... z.B. so: =GROSS(LINKS(A1;FINDEN("!";WECHSELN(A1;".";"!";2))-1))&KLEIN(TEIL(A1;FINDEN("!";WECHSELN(A1;".";"!";2));99))
Gruß Werner
.. , - ...
AW: Buchstaben mal groß mal klein schreiben
04.09.2017 14:18:27
Gerd
Hallo Jens,
da du etwas VBA beherrscht, ein Ansatz damit.
Sub ttt()
Dim Q As Variant
Range("B12") = "u01.1u999.A1" 'Testwert
Q = Range("B12")
Q = UCase$(Q)
Q = Split(Q, ".")
Q(UBound(Q)) = LCase$(Q(UBound(Q)))
Q = Join(Q, ".")
Range("C12") = Q
End Sub
Gruß Gerd

309 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige