Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
18.09.2007 08:46:03 |
Tina |
|
|
|
18.09.2007 20:32:05 |
jh |
|
|
|
19.09.2007 10:19:32 |
Tina |
|
|
|
19.09.2007 10:33:14 |
jh |
|
|
|
19.09.2007 11:42:55 |
jh |
|
|
|
19.09.2007 12:54:43 |
Tina |
|
|
|
19.09.2007 14:56:16 |
Tina |
|
|
|
19.09.2007 16:07:26 |
jh |
|
|
Aw:Aw:Aw:Aw:Nachtrag |
20.09.2007 08:12:04 |
Tina |
|
|
|
20.09.2007 11:40:21 |
jh |
|
|
|
21.09.2007 07:17:38 |
Tina |
|
|
Von:
Tina |
Datum:
20.09.2007 08:12:04 |
Views:
1103 |
Rating:
|
Antwort:
|
Thema:
Aw:Aw:Aw:Aw:Nachtrag |
jh schrieb am 19.09.2007 16:07:26:
Hallo,
mit der Schleife gibts eigentlich nix mehr zu erklären, du ersetzt einfach deinen Code
ActiveSheet.UsedRange.Cells.Font.ColorIndex = 0
durch die Schleife, so wie im Beispiel:
Dim wksA As Worksheet
For Each wksA in ThisWorkBook.Worksheets
wksA.UsedRange.Cells.Font.Color = vbBlack
Next wksA
Einen ColorIndex 0 gibts eigentlich gar nicht, und mit vbColorIndexAutomatic (das war doch wohl ein Tippfehler in deinem letzten Posting?) sollte es eigentlich schwarz werden.
Mit Color = vbBlack aber auch.
Und was die UserForm betrifft, nur Mut, ist wirklich ganz einfach.
Gruß
Danke das klappt!Aber dann kommen andere Fehlermeldungen.Mein Coe sieht so aus
Option Explicit
Public Merker, Farbe As Boolean, LetzteZelle As Range False Then ActiveWorkbook.SaveAs DATCl
End Sub
Sub Farbmodus()
Farbe = Not Farbe
Call FarbeSetzen(Farbe)
LetzteZelle.Select <- diese Zelle wird gelb unterlegt
End Sub
Sub FarbeSetzen(F As Boolean)
Dim sh As Shape
For Each sh In ActiveWorkbook.Shapes
sh.Select
If Left(Selection.Characters.Text, 6) = "Färben" Then
If Farbe Then
Selection.Characters.Text = "Färben AUS"
Else
Selection.Characters.Text = "Färben EIN"
End If
Exit For
End If
Next sh
End Sub
Wie kann das ändern?
Du bist echt ne tolle Hilfe.Vielen dank.
LG Tina
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
18.09.2007 08:46:03 |
Tina |
|
|
|
18.09.2007 20:32:05 |
jh |
|
|
|
19.09.2007 10:19:32 |
Tina |
|
|
|
19.09.2007 10:33:14 |
jh |
|
|
|
19.09.2007 11:42:55 |
jh |
|
|
|
19.09.2007 12:54:43 |
Tina |
|
|
|
19.09.2007 14:56:16 |
Tina |
|
|
|
19.09.2007 16:07:26 |
jh |
|
|
Aw:Aw:Aw:Aw:Nachtrag |
20.09.2007 08:12:04 |
Tina |
|
|
|
20.09.2007 11:40:21 |
jh |
|
|
|
21.09.2007 07:17:38 |
Tina |
|
|