Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
580to584
580to584
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Funktion erster Buchst. Gross und Farbe

Forumthread: Funktion erster Buchst. Gross und Farbe

Funktion erster Buchst. Gross und Farbe
09.03.2005 11:24:31
Peter
Hallo Excels,
brauche hilfe.
Warum funktioniert dies Funktion nur für die Grassschreibung aber nicht für die Farbe.
Gruss
Peter

Function Erster(s As String)
Erster = UCase(Left(s, 1)) & LCase(Mid(s, 2))
With Erster
.ColorIndex = 3
.FontStyle = "Fett"
.Size = 12
End With
End Function

Anzeige

14
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Funktion erster Buchst. Gross und Farbe
09.03.2005 11:58:31
harry
hi,
versuchs mal in der art:
With ActiveSheet.Cells(1, 1).Characters(Start:=1, Length:=2).Font
.ColorIndex = 3
.FontStyle = "Fett"
.Size = 12
End With
liebe grüße,
harry
AW: Funktion erster Buchst. Gross und Farbe
09.03.2005 12:09:22
Peter
Hi Harry,
also so funktiniert es aber nicht als Fuktion ?
Oder mache ich nun immer noch was Falsch.
Gruss Peter
Anzeige
AW: Funktion erster Buchst. Gross und Farbe
09.03.2005 12:16:37
harry
hi,

Sub Makro1()
Call Erster
End Sub



Function Erster()
With ActiveSheet.Cells(1, 1).Characters(Start:=1, Length:=2).Font
.ColorIndex = 3
.FontStyle = "Fett"
.Size = 12
End With
End Function

liebe grüße,
harry
Anzeige
AW: Funktion erster Buchst. Gross und Farbe
09.03.2005 12:43:41
Peter
Hi Harry,
ich glaube ich konnte mal wieder nicht richtig erklären was ich eigendlich wollte.
Also in Spalte A_A stehen Namen ich möcht nun mit einer Funtion erreichen das ich mit einer Formel =Erster(A1) in der Spalte B_B der gleiche Name aber mit rotem Grossbuchstaben steht.
schon mal Danke für deine Mühe
Gruss Peter
Anzeige
AW: Funktion erster Buchst. Gross und Farbe
09.03.2005 13:11:46
harry
da muss ich passen, blick nicht durch wie du formel und vba code verbindest bzw. verbinden willst. fact ist, dass du mit
With DIE ZELLE DEFINIEREN.Characters(Start:=1, Length:=2).Font
arbeiten musst, um einzelne zeichen in der zelle zu verändern.
liebe grüße,
harry
AW: Funktion erster Buchst. Gross und Farbe
09.03.2005 14:36:16
Ralf
Hallo Peter,
eine Funktion kann ich dir im Moment auch nicht bieten, aber habe dir mal ein Beispiel gebastelt. Vielleicht kannst du damit was anfangen.
https://www.herber.de/bbs/user/19401.xls
Hoffe es hilft.
Gruß
Ralf
Anzeige
AW: Funktion erster Buchst. Gross und Farbe
09.03.2005 14:38:54
Martin
Hallo Peter,
m.W. funktioniert das nicht mit einer Funktion. Evtl. Könnte man eine Ereignisprozedur nutzen. Wann genau soll den das erste Zeichen gefärbt und groß werden?
Gruß
Martin Beck
AW: Funktion erster Buchst. Gross und Farbe
09.03.2005 15:51:42
Peter
Ich werde mal meine Datei auf den Server stellen.
Da soll nun der erste Buchstabe Rot und Fett Formatiert sein.
https://www.herber.de/bbs/user/19406.xls
Gruss Peter
AW: Funktion erster Buchst. Gross und Farbe
09.03.2005 16:15:30
Martin
Hallo Peter,
wenn Du zuerst die Formeln in den Zellen in Werte umwandelst, kannst Du folgendes Makro benutzen:

Sub ttt()
For i = 3 To 33
For j = 1 To 3 Step 2
With Cells(i, j).Characters(1, 1).Font
.ColorIndex = 3
.FontStyle = "Fett"
End With
Next j
Next i
End Sub

für den Bereich A2:C33
Gruß
Martin Beck
Anzeige
AW: Funktion erster Buchst. Gross und Farbe
10.03.2005 06:58:13
Peter
Hallo Martin,
werde ich gleich mal ausprobieren.
Danke und Gruss
Peter
AW: Funktion erster Buchst. Gross und Farbe
Peter
Ja, das klappt ja super, aber wie du schon schreibst wenn keine Formeln drin stehn.
Nun habe ich schon mal die Formel mit dem Recorder aufgezeichnet und versuche dein Makro so zu erweitern, daß erst alle Formeln gelöscht werden.
Bei Neueingabe in A1 muß ich aber dann mit einem Makro erst wieder die Formeln in A3:A33 und c3:c33 schreiben lassen.
Ich werde mal losfummeln. Schätze aber, ich werde mich noch mal melden müssen wegen Hilfe.
Danke und Gruss
Peter
Anzeige
AW: Funktion erster Buchst. Gross und Farbe
10.03.2005 09:41:21
Martin
Hallo Peter,
wenn ich es richtig sehe, geht es Dir doch nur darum, den ersten Buchstaben hervorzuheben. Die einfachste Lösung wäre es m.E. vor die Spalten A und C eine Spalte einzufügen, den Buchstaben reinzuschreiben und zu formatieren und dann für die Spalten optimale Breite einzustellen und den Text rechtsbündig zu formatieren. Dann ggf. noch die Gitternetzlinien raus und das Ganze sieht perfekt aus.
Gruß
Martin Beck
Anzeige
AW: Funktion erster Buchst. Gross und Farbe
10.03.2005 11:13:37
Peter
Du hast Recht.
Ist wohl das einfachste und erfüllt seinen Zweck.
Vielen Dank an alle
Gruss Peter
;

Forumthreads zu verwandten Themen

Buchstaben abwechseln groß und klein
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 ic...
15.10.2008 16:21:29
Thread-ID: 1016608
6 Beiträge
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
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
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
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
Anzeige
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
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
Anzeige
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
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

Beliebteste Forumthreads (12 Monate)

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