Live-Forum - Die aktuellen Beiträge
Datum
Titel
13.10.2025 19:31:31
VBA Formel mit Bezug auf Überschrift anstatt Spalte
13.10.2025 15:10:17
Überlappende Zeiträume über mehrere Tabellen mit leeren Zell
13.10.2025 13:34:56
PQ Abfrage mit verschiedenen Werten ausführen + Protokoll
13.10.2025 12:24:02
Zählen in Abhängigkeit einer Jahreszahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1016to1020
1016to1020
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Buchstaben abwechseln groß und klein

Forumthread: Buchstaben abwechseln groß und klein

Buchstaben abwechseln groß und klein
15.10.2008 16:21:29
Andy
Hallo Leute!
Ich probiere schon ne ganz Weile an folgendem "Problem".
In der Zelle A1 steht ein beliebig langer Text. Ich hätte jetzt gern die Buchstaben abwechselnd groß und dann klein -- 'HaLlO LeUtE, HeUtE iSt mItTwOcH'
mir fällt allerding keine wirkliche Lösung dafür ein, wie ich einzelne Zeichen auslesen/behandeln könnte.
Hatte nen bissl mit ner for-next Schleife "Ucase(Left)" probiert, aber irgendwie passierte da garnix.
Foum und Google schweigen sich bisher leider auch aus :-(
Hat jmd von Euch ne springende Idee? Wäre super!
Danke schonmal
Andy
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Buchstaben abwechseln groß und klein
15.10.2008 16:40:00
David
Hallo Andy,
das sollte klappen:

Option Explicit
Sub test()
Dim AText, NText, Letter As String, i As Byte
AText = Cells(1, 1)
For i = 1 To Len(AText)
Letter = Mid(AText, i, 1)
If Int(i / 2) = i / 2 Then
Letter = LCase(Letter)
Else
Letter = UCase(Letter)
End If
NText = NText & Letter
Next
Cells(1, 2) = NText
End Sub


Evtl. musst du noch anpassen, was bei einem Leerzeichen (falls möglich) passieren soll und das Klein/Gross kannst du ggf. umdrehen.
Gruß
David

Anzeige
AW: Buchstaben abwechseln groß und klein
15.10.2008 17:33:00
Andy
Das ist ja der helle Wahnsinn!!
Funktioniert beides super!
"Len" kannte ich noch gar nicht... wieder was gelernt *freu*
Vielen Dank!!
AW: Buchstaben abwechseln groß und klein
15.10.2008 16:52:26
JogyB
Zwei Möglichkeiten:

' als Funktion
Public Function grossKlein(ByRef queLLe As Range) As String
Dim i As Long
On Error GoTo errorHandler
' Nur für eine Zelle
If queLLe.Cells.Count > 1 Then
grossKlein = "FEHLER"
Exit Function
End If
' Abarbeitung der Buchstaben
For i = 1 To Len(queLLe.Value)
If i Mod 2 = 0 Then
grossKlein = grossKlein & UCase(queLLe.Characters(i, 1).Caption)
Else
grossKlein = grossKlein & LCase(queLLe.Characters(i, 1).Caption)
End If
Next
On Error GoTo 0
Exit Function
errorHandler:
On Error Resume Next
grossKlein = "FEHLER"
On Error GoTo 0
End Function
' Als Sub, macht das für alle selektierten Zellen
Public Sub machGrossKlein()
Dim i As Long
Dim zeLLe As Range
Application.ScreenUpdating = False
On Error GoTo errorHandler
' Abarbeitung aller Zellen
For Each zeLLe In Selection
' Abarbeitung der Buchstaben
For i = 1 To Len(zeLLe.Value)
If i Mod 2 = 0 Then
zeLLe.Characters(i, 1).Caption = UCase(zeLLe.Characters(i, 1).Caption)
Else
zeLLe.Characters(i, 1).Caption = LCase(zeLLe.Characters(i, 1).Caption)
End If
Next
Next
errorHandler:
On Error GoTo 0
Application.ScreenUpdating = True
End Sub


Gruss, Jogy

Anzeige
als UDF
15.10.2008 17:12:32
Rudi
Hallo,

Function GrossKlein(strTxt As String) As String
Dim i As Integer
For i = 1 To Len(strTxt)
Select Case i Mod 2
Case 0: GrossKlein = GrossKlein & LCase(Mid(strTxt, i, 1))
Case 1: GrossKlein = GrossKlein & UCase(Mid(strTxt, i, 1))
End Select
Next
End Function


Gruß
Rudi

Anzeige
;

Forumthreads zu verwandten Themen

Groß- und Kleinschreibung für Variablen
Jürgen

Hallo Excel Profis.
Für eine Datei werden Rechte in Abhängigkeit des Benutzernamens vergeben.
Den Benutzernamen (Variable "Benutzer") liest daß Programm folgendermaßen:
Benutzer = Environ("Username")
Das funktioniert auch soweit einwandfrei.
Die Rechte werden dann über Selec...
29.07.2009 11:13:22
Thread-ID: 1092183
4 Beiträge
Anzeige
Gros- und Kleinbuchstaben
Erich

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...
18.12.2009 12:44:13
Thread-ID: 1124874
21 Beiträge
Buchstaben aus der Zelle entfernen/Übertragen?
Djalil

Hallo zusammen,
wie kann man 2 Buchstaben, die in einer Zelle stehen, in eine anderen Zelle übertragen lassen?
Beispiel
In Zelle A1 steht: 06:00 - 08:00 TO. Die 2 Buchstaben (TO) sollen aus der Zelle A1 entfernt und in die Zelle B1 übertragen werden. Welche Uhrzeit in A1 steht, soll...
09.06.2010 16:31:54
Thread-ID: 1161132
7 Beiträge
1. Buchstabe großschreiben
peter

Hallo Freunde
Kann man mittels VBA den 1. Buchstaben eines Wortes in einer Excelzelle großschreiben.
Ich bitte um Hilfe
Gruß Peter
30.06.2010 07:52:46
Thread-ID: 1164632
4 Beiträge
Färben, wenn größer oder kleiner
Jockel

Hallo
ich habe eine Spalte (H) mit Prozentangaben, ich habe sie momentan noch als Zahl formatiert
(zB 0,8 oder 0,33 oder 0,5.....)
Nun möchte ich die Werte färben, wenn sie zwischen bestimmten Angaben liegen:
If Cells(x, 13).Value > "0.01" And Cells(x, 13).Value < "0.20" T...
10.11.2010 14:18:09
Thread-ID: 1186096
3 Beiträge
Suche nach Text "Klein" oder "GROSS"...
kle

Hallo,
Ich habe aus dem archiv ein Code gefunden, um zellen nach einem String zu durchsuchen. Dabei wird der String aus der Textbox "TBSuche" übergeben.
If InStr(.Cells(lZeile, 3).Value, TBSuche.Text) "größer" 0 Then ' Das Größer-Symbol wurde hier nicht akzeptiert im Forum...
Doc...
08.03.2011 15:28:25
Thread-ID: 1204813
3 Beiträge
Suchen von Anfangsbuchstaben in einer Zelle
Paul

Ich habe eine Liste von Personen, die alphabetisch sortiert sind. Links befindet sich eine leere Spalte. Dort soll der Anfangbuchstabe der rechnen Zelle eingetragen werden, wenn die vorherige Zelle einen anderen Anfangsbuchstaben hat. Ich suche also eine Formel, die den Anfangbuchstaben mit dem...
25.05.2002 22:02:33
Thread-ID: 123709
3 Beiträge
Groß- und Kleinschreibung
Seyfi

Hallo,
Wie kann ich dafür sorgen das die Groß- und Kleinschreibung beachtet wird bei diesen zwei Formeln?
=WENN(ODER(A6="b";A6="c";A6="d";A6="f";A6="g";A6="h";A6="j";A6="k";A6="l";A6="z";A6="A";A6="B");"x"; " ")
einmal bei dieser
und bei dieser
=WENN(A6="a";"x";" ")
...
12.05.2011 14:08:44
Thread-ID: 1214200
5 Beiträge
GROSS und Kleinbuchstaben
helena

Hallo
ist es möglich If WERT = "ERLEDIGT" or = "erledigt" abzufragen
wegen Zeilen ausblenden, wenn ich mit OR versuche kommt Fehlermeldung ...
Sub Zellen_ERLEDIGT_Ausblenden() Dim Markierung As Range, Wert As String, Zelle As Range Set Markierung = ActiveSheet.Range("M5:M501") For E...
19.01.2012 15:33:13
Thread-ID: 1247010
4 Beiträge
Anzeige
VBA - 1. Buchstabe groß
WalterK

Hallo,
der folgende Codeteil prüft, ob in B2 und C2 die Überschriften ZUNAME und VORNAME stehen. Wenn ja, wird vor der Spalte B eine neue Spalte eingefügt und die beiden Spalten ZUNAME und VORNAME werden in der neu eingefügten Spalte eingetragen. Kurz gesagt, die Einträge in den beiden getr...
09.03.2012 01:02:54
Thread-ID: 1254297
5 Beiträge
1. Buchstabe im Zelle Groß
Peter

Hallo
wie kann ich mit Hilfe eines VBA-Code in einer Zelle den 1. Buchstabe groß schreiben lassen bezogen auf einen markierten Bereich, wo immer nur ein Wort in der Zelle steht.
Beispiel
A1: arbeit soll Arbeit
B1: stunde soll Stunde
Danke vorab und Gruß
Peter
10.04.2012 00:10:15
Thread-ID: 1258556
7 Beiträge
Anzeige
Größer und Kleiner
JACKD

Hallo Gemeinde.
Hab ich grad einen Denkfehler oder ist Excel komisch?
Mit Folgendem Makro selectiere ich Pivotitems
'Filter Alter( wie an der Notiz zu sehen, muss ich wenn ich die Jahre kleiner 85 auswählen will angeben
~f~ Alter analoges Problem bei größer 85 da muss es größe...
10.12.2012 13:53:38
Thread-ID: 1290117
3 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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