Zellaktualisierung

12/07/2008 - 00:03 von puck | Report spam
Guten Abend!
Vielleicht kann mir jemand bei folgendem Problem helfen.
Gegeben ein Arbeitsblatt, in dem man die Überschriften von Zellen in
unterschiedlichen Wàhrungen anzeigen kann. Der Wechsel der Überschriften,
z. B. von Euro in CHF, erfolgt über ein Makro, das u. a. die Zeilen enthàlt:

Dim rngValid As Range
Dim rngCell As Range
Set rngValid = Cells.SpecialCells(xlCellTypeAllValidation)
If rngValid Is Nothing Then Exit Sub
For Each rngCell In rngValid
rngCell.Value = Range(rngCell.Validation.Formula1)(1, 1)
Next rngCell

Damit ist sichergestellt, dass alle Zellen auch wirklich den neuen Text
anzeigen.

Nun gibt es allerdings ein paar Zellen, die ich gerne von dieser
Aktualisierung ausschliessen würde. Kann ich das Makro so àndern,
dass die Zellen A1 c5 und d14 von dieser Aktualisierung verschont bleiben?

MfG
GvB
 

Lesen sie die antworten

#1 Peter Schleif
12/07/2008 - 06:15 | Warnen spam
Gebhard von Busse schrieb am 12.07.2008 00:03 Uhr:

Kann ich das Makro so àndern,
dass die Zellen A1 c5 und d14 von dieser Aktualisierung verschont bleiben?



If Intersect(rngCell, Range("A1,C5,D14")) Is Nothing Then
'/Aktualisierung/
End If

Noch einfacher ist es natürlich, die drei Zellen zu markieren und dem
Bereich einen Namen zu geben: Ausschluss

If Intersect(rngCell, Range("Ausschluss")) Is Nothing Then
'/Aktualisierung/
End If

Hat den Vorteil, dass Du den Code nicht anpassen brauchst, wenn sich
die Zellen mal verschieben (Zeilen/Spalten löschen/einfügen) oder wenn
Du weitere Zellen ausschließen oder ausgeschlossene Zellen doch wieder
zulassen möchtest.

Peter

Ähnliche fragen