Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
520to524
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
520to524
520to524
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige