Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: 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?
Anzeige

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
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige