Office: Prüfen ob Zelle in Namensbereich enthalten

Hallo

ich steh aufm schlauch.

Ich habe eine Tabelle mit 5 Namensbereichen

1. Bereich von A2-A5 hat den Namen Fahrer
2. Bereich von A7-A10 "Disponenten"
3. Bereich von A12-A20 "Lager"

usw.

in einer anderen Tabelle sind die ganze Personen mit den Rollen (ob nun fahrer oder Disponent oder lager oder oder oder) hinterlegt.

So jetzt möchte ich aber prüfen ob die Person in der anderen Tabelle vorhanden ist und wenn ja dann soll auch noch geprüft werden ob er noch im Richtigen Namensbereich steht.

Das vorhanden sein prüfe ich schon mit dem Code ab....


Code:

geht auch super.

Da dies eine Lebendige Tabelle ist, somit immer mal weider Änderung sind. Sprich personal hinzukommt, weg geht oder umändert. Habe ich mich für Namensbereich entschloßen da es ja dynamisch sein soll.

Wie gesagt ich bräuchte nur hilfe bei der Abfrage. Geht das irgendwie?

Gruß Tommy


EDIT:

Frage ich das so ab?
If Workbooks("std-zettel berechnung.xlsm").Sheets("Personal").Cells(o, 10) = ActiveSheet.Range(Tagesdienst) Then

:)

 

Hi Tommy,

ob eine Zelle in einem bestimmten Bereich liegt kannst du z.B. so prüfen:

Code:

Wenn du mit "Lebendige Tabelle" einen als Tabelle (früher Liste) formatierten Zellbereich meinst, dann auch so:

Code:

Hierbei ist Columns(3) die 3. Spalte des formatierten Zellbereichs, in der verglichen werden soll - musst du entsprechend anpassen.

 

Okay cool danke werde ich ausprobieren.

Wenns nicht klappt melde ich mich noch mal.

Danke dir.


EDIT:

SUPER der erste Code hat gleich geklappt *scheinbar* beim ersten mal hat es funktioniert. muss es jetzt noch mit jeder weiteren Möglichkeit ausprobieren.

Aber super, besten dank.

 

Woher weißt Du, welches der richtige Bereich ist?
Wenn Du vorher bereits weißt, wo der Name stehen soll, dann kannst Du die Suche auf den gewünschten Bereich einschränken.

Das hat den weiteren Vorteil: Wenn "Müller" mehrfach vorkommt, Du aber den Disponenten Müller sucht und nicht den Fahrer Müller, musst Du nicht mehrfach vergeblich suchen.

Code:

 

Also wie oben schon gesagt, dass mit dem finden und raus nehmen klappt.

Kann man auch über "Intersect" die letzte beschrieben Zeile finden?

Den im Nächsten schritt soll ja neues oder geändertest Personal in dem neuen Namensbereich ans ende gestellt werden.

 

Hast Du den grundsätzlichen Unterschied der beiden Herangehensweisen verstanden?

Wenn Du Dir die vorgeschlagenen Codes anschaust, sieht Du doch, wie der benannte Bereich angesprochen wird. Die letzte Zelle findest Du auch leicht:
Code:

 

Danke euch,

habe es gerade selber raus gefunden. Hab an statt xldown xlup gesucht und dann hat er mir immer die Person 2 Zeilen drüber rein geschrieben. jetzt macht es was es soll.

Danke euch erst mal.

Werde jetzt noch etwas ausprobieren ob es auch alles funktioniert, oder ich weider irgendwelche Schusseligkeitsfehler eingebaut habe.

Gruß Tommy

 

Tu das. Teste vor allem Sonderfälle (nur ein Eintrag, fehlender erster Eintrag...), um zu merken, wo diese Methode scheitert.

Es gibt jedoch auch zuverlässige Methoden.

 

So bissel hin und her probiert.

Wie kann ich im den bei bringen mir die erste Zeile eines bereichs auszugeben.

Hintergund:

manchmal kommt es vor das in den Bereichen noch nichts drin steht. Dann mit End(xlup/down).rows.row komm ich nicht weiter. da meckert es dann.

Wenn der Bereich leer ist soll er die aller erste zeile des Bereichsnehmen und die Eintragungen machen.

Jemand rat für mich?

 

Ja. Schau Dir die bisherigen Antworten an. Dann kannst Du das mit Nachdenken für 5 Cent selbst rausfinden.

 

Hi,

wenn du einen Bereich hast, kannst du die 1. Zelle mit Range("DeinBereich").Cells(1) ansprechen.

 

Danke dir.

dank dir hab ich es heraus gefunden. Manchmal *stupid

jetzt hab ich bei der letzten abfrage probleme und ich weis echt nicht warum.

Hier mal der Code

Code:

Wenn ich Down verwende dann nimmt er die zeile 1048576.

Warum?
Bei Up nimmt er die Zeile 40.

Wobei in der aktuellen Liste der Bereich bei zeile 43-45 liegt und nur 43
beschrieben ist.

Kann mir das einer erklären, dann komme ich vielleicht selber auf eine lösung.

 

Bereich.End(xlUp/xlDown...) funktioniert genauso wie die Verwendung von Strg+Hoch/Runter...

Es wurden ja bereits andere Lösungen aufgezeigt, die das Problem vermeiden. Verwende doch einfach die...

Ich finde es toll, dass Du neugierig selber testest - aber Du solltest Dir auch Zeit nehmen, alle Antworten und Hinweise zu lesen und zu verarbeiten.

 

Ja nur möchte ich ja die letzte beschriebene Zeile und nicht die letzte zeile ansich.

 

für diese Fälle habe ich vor längerem mal eine Funktion geschrieben, bei der man nach der ersten/letzten freien/beschriebenen Zelle in einem Bereich suchen lassen kann.

Die Funktion kannst Du entweder auf das notwendige eindampfen oder in einem Modul hinterlegen und dann nach Bedarf verwenden.