Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1016to1020
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1016to1020
1016to1020
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

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

187 Forumthreads zu ähnlichen Themen

Kleinbuchstaben und Großbuchstaben trennen
MBorn

Hallo,
weiß jemand ob es eine Möglichkeit gibt in einem String, der Klein- und großbuchstaben ohne Leerzeiche enthält, ein Leerzeichen vor den Großbuchstaben einzufügen?
Beispiel
ThomasSchüler
Thomas Schüler
Gruß und Dank,
Born
03.02.2009 14:33:00
Thread-ID: 1046662
7 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 automatisch groß schreiben
Petra

Hallo zusammen,
mein erster Beitrag - bitte verzeiht, wenn ich es vielleicht nicht ganz korrekt mache.
Ich habe - ausser Makroaufzeichnungen - keine Ahnung von VBA, daher komme ich bei meinem Problem auch nicht weiter.
Ich habe einen Bereich, beispielsweise A2 bis F20.
In diesem...
30.04.2010 23:09:46
Thread-ID: 1154806
4 Beiträge
Anzeige
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
Nur Erster Buchstabe in Zelle groß
nuernberg@esm-ept.de

Guten Morgen zusammen,
ich bin auf der Suche nach einem Makro mit dem ich den ersten Buchtstaben (nur den ersten) in allen Zellen in einer Tabelle groß machen kann. Ich habe schon im Forum gesucht und habe leider nur Makros gefunden die immer jedes Wort groß anfangen - ich will aber nur da...
25.11.2010 08:14:56
Thread-ID: 1188658
6 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
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
6
3
20
3
6
3
2
5
2
2
4
3
4
16
6
2
2
4
2
8
2
1
8
12
6