Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: 1. Zelle in Namensbereich; 2. Zellenformat liefern

1. Zelle in Namensbereich; 2. Zellenformat liefern
24.11.2004 14:29:30
Dennis
Hallo zusammen!
Für den Ablauf meines Prorammcodes, muss ich über ein Worksheet_Change-Ereignis prüfen:
1. Ist die Zelle "Target" in einem bestimmten Namensbereich?
Bsp (Pseudo-Code): if target.address = range("testbereich").address
Mein Prob: target ist z.B. §E§3, testbereich kann z.B. aber $A$1:$F$5 sein, die Zelle wäre in dem Bereich, aber wie prüfe ich das?
2. Eine Eigenschaft, welche das Zellformat zurückgibt. Ich muss nur wissen, ob die Zelle mit "Prozent" oder mit "Euro" (Also Währung/Currency) formatiert ist.
Danke im voraus!
Gruß Dennis
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: 1. Zelle in Namensbereich; 2. Zellenformat liefern
u_
1.
if not application.intersect(target,Range("Test")) is nothing then
2.
msgbox Target.numberformat
Gruß
AW: 1. Zelle in Namensbereich; 2. Zellenformat lie
24.11.2004 15:23:24
Dennis
Hallo _u! (?)
So einfach wars dann leider doch nicht, da Bereiche teilweise nicht erkannt wurden.
Also ich hab´s jetzt so gelöst, das funktioniert:
Dim isect As Range
Set isect = Application.Intersect(target, Range("testbereich"))
If isect Is Nothing Then
MsgBox "daneben"
Else
MsgBox "getroffen!"
End If
Danke für den Tipp!
Gruß Dennis
Anzeige

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige