Fett und Farbe
Antonio Martino
Kann ich Excel dazu bringen, bei bestimmte Tastatureingaben, automatisch das
Schrift "Fett" und eine bestimmte Farbe zuzuweisen.
Bei der Erstellung meine Pläne, muss ich oft "GR" eintippen. Also, ich
möchte dass die 2 Buchstaben automatisch fett und bunt dargestellt werden.
Geht das?
Danke für jeden Tip!
Gruß,
Antonio
P.S.: Entschuldigung für die Rechtsscheibfehler, aber Deutsch ist für mich
eine "Fremd"Sprache.
Hans Hofmann
<Antonio...@epost.de> wrote:
Hallo Antonio
>Kann ich Excel dazu bringen, bei bestimmte Tastatureingaben, automatisch das
>Schrift "Fett" und eine bestimmte Farbe zuzuweisen.
>Bei der Erstellung meine Pläne, muss ich oft "GR" eintippen. Also, ich
>möchte dass die 2 Buchstaben automatisch fett und bunt dargestellt werden.
>Geht das?
ja schon, ich fürchte dass das nur per Ereignisprozedur geht. Ins
Klassenmodul der entsprechenden Tabelle Alt + F11, Strg + R Tabelle
für die die Funktion aktiviert werden soll Doppelklicken und Code
einfügen (Farbe musst Du anpassen)...
Private Sub Worksheet_Change(ByVal Target As Range)
Dim pos As Integer
pos = InStr(Target, "GR")
If pos > 0 Then
With Target.Characters(Start:=pos, Length:=2).Font
.FontStyle = "Fett"
.ColorIndex = 3
End With
End If
End Sub
>P.S.: Entschuldigung für die Rechtsscheibfehler, aber Deutsch ist für mich
>eine "Fremd"Sprache.
Geht doch sehr gut, notfalls auf die Neue Deutsche Rechtschreibung
hinweisen ;-)
Gruß HW
Raimondo Righetti
Markiere das ganze Tabellenblatt indem Du links neben der Spalte A, über
der Zeile 1 ins graue Feld klickst. Im Menü "Format" - "Bedingte
Formatierung" aswählen.
Stelle bei Bedingung1 folgendes ein:
Feld1-"Zellwert ist", Feld2-"gleich", Feld3-"GR"
Mit dem Button "Format" öffnest Du ein weiteres Dialogfeld, indem Du nun
deine Formatierungen auswählen kannst.
Gruss
Raimondo
Antonio Martino schrieb:
Antonio Martino
Geht es trotzdem?
Gruß,
Antonio
"Raimondo Righetti" <righ...@bluewin.ch> schrieb im Newsbeitrag
news:usiUdVsnCHA.968@TK2MSFTNGP09...
Antonio Martino
aber wie wird es jetzt ausgeführt?
Und wie kann ich es auch für andere Tabelle verwenden?
Nochmals Danke!
Gruß,
Antonio
"Hans Hofmann" <ha...@chefmail.de> schrieb im Newsbeitrag
news:e4f6vu8iik307oes5...@4ax.com...
Hans Hofmann
<Antonio...@epost.de> wrote:
>Mit der VBA kenne ich mich nicht so gut aus. Ich habe das ganze eingetippt,
>aber wie wird es jetzt ausgeführt?
Du musst das nicht abtippen. Kopieren und einfügen ist wesentlich
sicherer. Ach ersetze
pos = InStr(Target, "GR")
durch
pos = InStr(Target.Cells(1,1), "GR")
>Und wie kann ich es auch für andere Tabelle verwenden?
Die Procedur muss in jedes Klassenmodul einer Tabelle kopiert werden,
die das Verfahren nutzen soll:
Nach Alt+F11 öffnet sich der VBA-Editor.
Um das Klassenmodul zu erreichen musst Du mit Strg+R das Fenster des
Projekt-Explorer öffnen (ist meist schon sichtbar). Das ist ein
Fenster (Titel Projekt - VBAProject), das eine Liste aller Tabellen
der Mappe enthält z.B.
Tabelle1 (Tabelle1)
NameDerTabelle (Tabelle2) usw.
oder entsprechend der Benennung die Du für eine Tabelle gewählt hast.
Das sind die Klassenmodule, die Du per Doppelklick öffnest und den
Code dort rein kopierst...
Gruß HW
Lisa Wilke-Thissen
"Antonio Martino" <Antonio...@epost.de> schrieb
im Newsbeitrag news:eF9s2gsnCHA.2260@TK2MSFTNGP11...
> Zellwert ist nicht nur "GR", sondern z.B. "GR 1 - 2", "GR EG - 1" u.s.w.
> Geht es trotzdem?
z.B. so:
alle Zellen markieren, die das entsprechende Format erhalten sollen. Dann:
Format/Bedingte Formatierung/Formel ist:
=LINKS(A1;2)="GR"
A1 steht hier beispielhaft für die erste markierte Zelle. Darauf achten,
daß kein absoluter Zellbezug (also nicht $A$1) gewählt wird.
Gruß
Lisa
Antonio Martino
> > Zellwert ist nicht nur "GR", sondern z.B. "GR 1 - 2", "GR EG - 1" u.s.w.
> > Geht es trotzdem?
>
> z.B. so:
> alle Zellen markieren, die das entsprechende Format erhalten sollen. Dann:
>
> Format/Bedingte Formatierung/Formel ist:
> =LINKS(A1;2)="GR"
Es hat nicht funktioniert. Meldet dass die Formel ungültig ist und markiert
dabei LINKS. Ich hatte die ganze Tabelle markiert, weil die o.g. Einträge
sehr oft vorkommen. War das vielleicht die Fehlerursache?
Gruß,
Antonio
Antonio Martino
> Du musst das nicht abtippen. Kopieren und einfügen ist wesentlich
> sicherer. Ach ersetze
> pos = InStr(Target, "GR")
> durch
> pos = InStr(Target.Cells(1,1), "GR")
>
> >Und wie kann ich es auch für andere Tabelle verwenden?
>
> Die Procedur muss in jedes Klassenmodul einer Tabelle kopiert werden,
> die das Verfahren nutzen soll:
> Nach Alt+F11 öffnet sich der VBA-Editor.
> Um das Klassenmodul zu erreichen musst Du mit Strg+R das Fenster des
> Projekt-Explorer öffnen (ist meist schon sichtbar). Das ist ein
> Fenster (Titel Projekt - VBAProject), das eine Liste aller Tabellen
> der Mappe enthält z.B.
> Tabelle1 (Tabelle1)
> NameDerTabelle (Tabelle2) usw.
> oder entsprechend der Benennung die Du für eine Tabelle gewählt hast.
> Das sind die Klassenmodule, die Du per Doppelklick öffnest und den
> Code dort rein kopierst...
Soweit war ich auch gekommen, und hatte dabei der ganze "Arbeitsblatt"
markiert, die aus ungefähr 12-13 Tabelle besteht.
Nachdem ich den Code rein tippe bzw. rein kopiere, wie wird er dann
ausgeführt? Ich habe der VBA-Editor mit Alt+Q beendet,
aber es ist nichts passiert. Was mache ich falsch?
Gruß,
Antonio
Lisa Wilke-Thissen
"Antonio Martino" <Antonio...@epost.de> schrieb
> > z.B. so:
> > alle Zellen markieren, die das entsprechende Format erhalten sollen.
Dann:
> >
> > Format/Bedingte Formatierung/Formel ist:
> > =LINKS(A1;2)="GR"
>
> Es hat nicht funktioniert. Meldet dass die Formel ungültig ist und
markiert
> dabei LINKS. Ich hatte die ganze Tabelle markiert, weil die o.g. Einträge
> sehr oft vorkommen. War das vielleicht die Fehlerursache?
nein, das spielt keine Rolle. Hier noch einmal die Schritte:
Format/Bedingte Formatierung. Dann im Listenfeld unter "Bedingung 1" nicht
"Zellwert ist", sondern "Formel ist" wählen.
Im Feld daneben folgende Eingabe: =LINKS(A1;2)="GR"
Funktioniert denn ansonsten in der Tabelle die Funktion Links()?
Gib testweise in A1 das Wort "Gras" ein und in B1 folgende Formel:
=LINKS(A2;2)
Als Ergebnis sollte dann "Gr" ausgegeben werden.
Gruß
Lisa
Hans Hofmann
<Antonio...@epost.de> wrote:
>
8<--------------
>>
>> Die Procedur muss in jedes Klassenmodul einer Tabelle kopiert werden,
>> die das Verfahren nutzen soll:
>> Nach Alt+F11 öffnet sich der VBA-Editor.
>> Um das Klassenmodul zu erreichen musst Du mit Strg+R das Fenster des
>> Projekt-Explorer öffnen (ist meist schon sichtbar). Das ist ein
>> Fenster (Titel Projekt - VBAProject), das eine Liste aller Tabellen
>> der Mappe enthält z.B.
>> Tabelle1 (Tabelle1)
>> NameDerTabelle (Tabelle2) usw.
>> oder entsprechend der Benennung die Du für eine Tabelle gewählt hast.
>> Das sind die Klassenmodule, die Du per Doppelklick öffnest und den
>> Code dort rein kopierst...
Jetzt bin ich mal gespannt, welcher Weg zuerst zum Ziel führt...;-)
>Soweit war ich auch gekommen, und hatte dabei der ganze "Arbeitsblatt"
>markiert, die aus ungefähr 12-13 Tabelle besteht.
>Nachdem ich den Code rein tippe bzw. rein kopiere, wie wird er dann
>ausgeführt? Ich habe der VBA-Editor mit Alt+Q beendet,
>aber es ist nichts passiert. Was mache ich falsch?
Da pasiert auch nix. Jedenfalls so lange nicht, wie Du eine Eingabe
machst, die die Buchstabenfolge GR enthält. Due Prozedur reagiert auf
Eingabeänderungen...
Ich leg Dir mal ein Beispiel - unter www.lemitec.de/ppt/xls/input.xls
Ajee, der Server streikt gerade - kann a weng dauern...
Gruß HW