Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
352to356
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
352to356
352to356
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bereichsnamen filtern

Bereichsnamen filtern
24.12.2003 16:23:45
Michael
Hallo und frohes Fest Excelgemeinde,
ich habe folgendes Problem:
In einem Tabellenblatt habe ich Zellen mit Namen wie:
Charge_B7300
Typ_B7300
Menge_B7300

und
Charge_B7305
Typ_B7305
Menge_B7305

Wie kan ich es erreichen das ein eine Prozedur aufgerufen wird, wenn alle Zellen die im NAmen z.b. _B7300 enthalten leer sind. Irgendwie bekomme ich das nicht auf die Reihe.

Vielen Dank für eure Hilfe Michael

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bereichsnamen filtern
25.12.2003 07:34:36
andre
hallo michael,
im prinzip so (code im codemodul des betreffenden tabellenblattes)


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim leer As Boolean, zellen As Range
leer = True
Set isect = Application.Intersect(Target, ActiveWorkbook.Names("meinbereich").RefersToRange)
If isect Is Nothing Then Exit Sub
For Each zellen In ActiveWorkbook.Names("meinbereich").RefersToRange
If Not IsEmpty(zellen.Value) Then leer = False
Next
If leer = True Then MsgBox "leer" Else MsgBox "nicht leer"
End Sub


gruss andre
AW: Bereichsnamen filtern
25.12.2003 10:40:19
Michael
Hallo Andre,
DAnke für deine Hilfe. Was mir in deinem Code fehlt ist die ABfrage eines Teils des Namens und zwar immer nach dem "_" (Unterstrich). Ich brauche die Namen der Zellen ab dem Unterstrich (z.b. B7300) wenn alle Zellen die im Namen B7300 enthalten leer sind. Aber jetzt hab ich schon mal einen Ansatz zum probieren.

Danke und Gruß Michael
Anzeige
AW: Bereichsnamen filtern
25.12.2003 13:05:48
andre
hallo michael,
...
dim ...
dim was$
was=inputbox("Bereich eingeben: ")
if was="" then exit sub
for each bereiche in names()
if right(bereiche,len(was))=was then
leer=true
... 'siehe bisher zwischen diesen zeilen
If leer = True Then MsgBox "leer" Else MsgBox "nicht leer"
next
end sub
(ungetestet)
gruss andre
AW: Bereichsnamen filtern
25.12.2003 17:23:12
Michael
Vielen Dank für deine Hilfe,werde es direkt versuchen.

Gruß Michael

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige