Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.10.2025 19:08:54
Verbindung von Excel mit maps
14.10.2025 15:55:14
wenn zwei Werte aus Liste übereinstimmen, dann wahr
14.10.2025 14:57:29
Wenn Datum in Ferienzeit dann Name angeben
14.10.2025 09:39:44
VBA - Excel speichern und schließen (Laufzeitfehler 91)
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
300to304
300to304
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

nicht gesp. Zellen färben - nur ein Blatt!

Forumthread: nicht gesp. Zellen färben - nur ein Blatt!

nicht gesp. Zellen färben - nur ein Blatt!
29.08.2003 15:03:32
Tanja
Hallo Profis,

folgendes Makro färbt mir alle nicht gesperrten Zellen aller Blätter meiner Arbeitsmappe gelb!


Sub offeneZellenFärben()
Dim RaZelle As Range
Dim InI As Integer
For InI = 1 To Sheets.Count
Worksheets(InI).Unprotect
For Each RaZelle In Worksheets(InI).UsedRange
If RaZelle.Locked = False Then RaZelle.Interior.ColorIndex = 19
' zurück
' If RaZelle.Locked = True Then RaZelle.Interior.ColorIndex = xlNone
Next RaZelle
Worksheets(InI).Protect
Next InI
End Sub


Wie krieg ich es hin, dass der Vorgang nur im aktiven Blatt abläuft?

Vielen Dank für die Hilfe im Voraus!

Gruß
Tanja
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: nicht gesp. Zellen färben - nur ein Blatt!
29.08.2003 15:06:16
sergiesam
Hi,

gib einfach die For-Schleife der Blätter weg:


Sub offeneZellenFärben()
Dim RaZelle As Range
ActiveSheet.Unprotect
For Each RaZelle In ActiveSheet.UsedRange
If RaZelle.Locked = False Then RaZelle.Interior.ColorIndex = 19
' zurück
' If RaZelle.Locked = True Then RaZelle.Interior.ColorIndex = xlNone
Next RaZelle
ActiveSheet.Protect
End Sub


Gruß aus Linz,
sam
Anzeige
Erweiteung + Zwischenfrage
29.08.2003 15:39:00
Luaks
Hallo
hab das ganze um eine bedingte formatierung erweitert, sodass die zellen, falls sie leer sind, andere Farbe haben.


Sub Nicht_gesperrte_Zellen_färben()
'färbt alle nicht geperrten Zellen blau, falls leer, türkis falls
'etwas drinnen steht
Dim RaZelle As Range
ActiveSheet.Unprotect
For Each RaZelle In ActiveSheet.UsedRange
If RaZelle.Locked = False Then
RaZelle.Interior.ColorIndex = 34
RaZelle.FormatConditions.Delete
RaZelle.FormatConditions.Add Type:=xlCellValue, Operator:=xlNotEqual, _
Formula1:="="""""
RaZelle.FormatConditions(1).Interior.ColorIndex = 35 'xlNone falls gefüllte Zellen weiß sein sollen
End If
' zurück
' If RaZelle.Locked = True Then RaZelle.Interior.ColorIndex = xlNone
Next RaZelle
ActiveSheet.Protect
End Sub

meine Frage:
braucht es die zeile
RaZelle.FormatConditions.Delete ?
einige recorder-befehle sind mir nämlich suspekt...
gruß,
Lukas
Anzeige
AW: Erweiteung + Zwischenfrage
30.08.2003 08:20:11
sergiesam
Hi,

wenn du die Bedingte Formatierung mit ADD hinzufügst, brauchst du schon DELETE. Es gibt 2 Möglichkeiten eine bedingte Formatierung festzulegen:
a) Es gibt noch keine >> Add
b) Es gibt bereits eine für die Zelle >> Ändern über Item.

Wenn man nicht genau weiß, ob bereits manuell vielleicht eine Formatierung festgelegt wurde, würde der Add-Befehl scheitern bzw. was falsches liefern. So geht man einfach einen sicheren Weg: Lösche alle ev. vorkommenden bedingten Formatierungen und lege genau die an, die man wünscht.

Meine Empfehlung also: Ja, delete braucht man.
Gruß,
Sam
Anzeige
AW: nicht gesp. Zellen färben - nur ein Blatt!
29.08.2003 15:07:21
Hajo_Zi
Hallo Tanja

der Ursprungshinweis war nicht umsonst im Code,


Sub offeneZellenFärben()
Dim RaZelle As Range
Dim InI As Integer
'    For InI = 1 To Sheets.Count
ActiveSheet.Unprotect
For Each RaZelle In ActiveSheet.UsedRange
If RaZelle.Locked = False Then RaZelle.Interior.ColorIndex = 19
' zurück
' If RaZelle.Locked = True Then RaZelle.Interior.ColorIndex = xlNone
Next RaZelle
ActiveSheet.Protect
'    Next InI
End Sub


Gruß Hajo
Anzeige
AW: nicht gesp. Zellen färben - nur ein Blatt!
29.08.2003 15:07:48
Andi_H
hi tanja,


Sub offeneZellenFärben()
Dim RaZelle As Range
Dim InI As Integer
activesheet.Unprotect
For Each RaZelle In activesheet.UsedRange
If RaZelle.Locked = False Then RaZelle.Interior.ColorIndex = 19
' zurück
' If RaZelle.Locked = True Then RaZelle.Interior.ColorIndex = xlNone
Next RaZelle
activesheet.Protect
End Sub



gruß

andi
Anzeige
AW:Danke an alle für die schnelle Hilfe:o) oT
29.08.2003 15:22:34
Tanja
;

Forumthreads zu verwandten Themen

Durchrechnung nur für ein Blatt ausschalten
KlausF

Hallo Excelperten!
In einer Datei schalte ich beim Öffnen mittels AutoOpen-Makro die automatische Durchrechnung bisher ganz aus.
Wie kann ich aber die automatische Durchrechnung nur für ein bestimmtes Blatt (z.B. Tabelle1) abschalten?
Geht das überhaupt so eingeschränkt?
Besten...
13.09.2008 15:37:53
Thread-ID: 1009517
3 Beiträge
Einzelnes Tabellnblatt in PDF Datei speichern
Jens

Ich habe folgendes Problem, ich möchte ein einzelnes Tabellenblatt aus Excel heraus in eine Pdf Datei mittels command Buttom und Makro/ VBA speichern. Als PDF Prog nutze ich Adobe Acrobat Prof 8.0(bringt nen Converter mit).
THX im Voraus
27.02.2009 15:30:50
Thread-ID: 1054824
14 Beiträge
Anzeige
nur eine Tabelle anwählen, falls ...
Peter

Guten Tag
Gelegentlich wähle ich in einer Arbeitsmappe gleichzeitig mehrere Tabellen an, wenn ich beispielsweise bei allen die gleichen Änderungen durchführen will.
Nun habe ich mir eine Routine geschrieben, die auf allen Tabellen ein Passwort setzt oder entfernt.
Diese Routine läuf...
02.06.2009 09:34:43
Thread-ID: 1078545
8 Beiträge
Anzeige
Range(C12:E30) als .txt speichern / exportieren ?
udo-d

Hallo Profis,
hat evt. Jemand von Euch einen Code, mit dem ich nur einen best. Zellenbereich
eines best. Tabellenblattes ( Name zB: "Auswertung" )
Bereich C12:E30 als Textdatei exportieren / speichern kann ?
im ges. Workbook sind mehrere Tab.Blätter - weis nicht ob das wichtig...
12.10.2009 17:56:56
Thread-ID: 1109157
12 Beiträge
VBA:einzelnes Blatt in neuer Datei speichern +mehr
habneFrage

Hallo liebes Forum! Ich habe mich hier heute mal angemeldet, da ich schon seit längerer Zeit an einem Problem arbeite aber keine Lösung gefunden habe. Ich habe mit VBA nicht besonders viel am Hut, dafür kann ich mit anderen Dingen in Excel schon besser umgehen. Nun aber zu meinen Fragen:
Ic...
30.10.2009 08:03:49
Thread-ID: 1113145
14 Beiträge
Anzeige
Name nur einmal im Tabellenblatt
Heidi

Hallo zusammen,
gibt es die Möglichkeit einem Tabellenblatt zu sagen, dass z. B. der Name "Martin" nur 1 x vorkommen darf? Natürlich sind die Namen variabel.
Vielen Dank und Gruß
01.12.2009 11:37:55
Thread-ID: 1121180
5 Beiträge
xls als txt abspeichern | Herbers Excel-Forum
Michael
Guten Morgen,
ich habe folgendes Problem: Ich muss eine xls-Datei im txt-Format abspeichern, dabei ist folgendes zu beachten: Es muss der Bereich von A4 bis G220 ausgegeben werden (es soll in der txt. datei genau so angeordnet sein wie in der xls-datei), dabei muss beim abspeichern gleich ein N...
26.01.2010 07:17:01
Thread-ID: 1132885
18 Beiträge
Anzeige
Alle Reiter als .txt-Datei abspeichern
F.

Hallo zusammen
Ganz offensichtlich habe ich Wünsche, die nicht meinen Kenntnissen entsprechen. ;) Deshalb meine nächste Frage an Euch.
Ich habe eine stattliche Anzahl von Reitern, welche ich einzeln als txt-Datei abspeichern möchte. Da Anzahl der Reiter variert jedes Mal. Wie kann dies...
27.01.2010 15:19:35
Thread-ID: 1133441
22 Beiträge
Tabelle als TXT speichern mit richtiger Zeilenanz.
Joni

Hallo,
ich habe das Problem, dass beim Speichern eines Tabellenblattes als TXT am Schluss noch eine Leerzeile mitgespeichert wird. Da ich die Zeilenanzahl der Textdatei auslese und auswerte habe ich somit immer eine Zeile zu viel. Gibt es eine Möglichkeit, dass wirklich nur befüllte Zeilen...
29.01.2010 18:38:40
Thread-ID: 1134231
4 Beiträge
Workbooknamen als txt abspeichern
Burghard

Hallo,
ich bräuchte mal Hilfe. Ich benötige ein Makro, dass nicht den Blattnamen abspeichert (siehe unten), sondern den Namen des Workbooks und zwar nicht im xls-Format, sondern im txt-Format (mit Tabs).
Hilfe wäre nett.
Schönen Gruß (und frohe Ostern!)
Burghard
Public Sub...
03.04.2010 16:25:08
Thread-ID: 1150097
2 Beiträge
Spalteninhalt als TXT speichern
Jockel

Hallo,
ich habe eine Tabelle mit vielen Spalten. Dabei möchte ich die Spalte H mit einem Makro als TXT abspeichern.
Wenn möglich, nicht dass ich erst die anderen Spalten alle löschen muss und dann das Dokument als txt abspeichern muss. Wenn möglich, will ich nur die Spalte H abspeichern...
16.08.2010 13:10:13
Thread-ID: 1172421
5 Beiträge
Aufgez. Macro funktioniert nur auf einem Blatt
Mathias

Liebes Forum,
ich habe ein Macro aufgezeichnet, das nicht mit anderen Diagrammblättern in derselben Exceldatei funktioniert. Was muss ich tun, damit ich das Macro auf jedem Tabellenblatt oder sogar in anderen Exceldateien ausführen kann, ohne dass ich den Laufzeitfehler "Das Element mit dem...
03.12.2010 11:15:32
Thread-ID: 1189846
11 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

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