Begriff auslagern

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

Betrifft: Begriff auslagern
von: Thomas
Geschrieben am: 31.07.2015 23:00:57

hallo,
ich möchte gern dem macro sagen das das Wort Zielort
im Tabellenblatt Filtereinstellungen steht.
es will nicht gelingen
Ausgang:
intArtS = Sheets("auswertung").Cells.Find("Zielort").Column
mein Ziel
intArtS = Sheets("auswertung").Cells.Find("das wort Zielort steht in tabelle
Filtereinstellungen in zelle b5").Column
hab schon versucht es mit
With Sheets("Filtereinstellungen")
intArtS = .Range("b5")
End With
wie macht man so etwas?
liebe grüsse thomas

Bild

Betrifft: AW: Begriff auslagern
von: Matthias L
Geschrieben am: 31.07.2015 23:52:12
Hallo
Wenn Dein Suchbegriff im Register Filtereinstellung steht darfst Du nicht im Register "auswertung" suchen.
Dim intArtS$
intArtS = Sheets("Filtereinstellung").Cells.Find("Zielort").Address
MsgBox intArtS
oder hab ich was falsch verstanden?
Gruß Matthias

Bild

Betrifft: AW: Begriff auslagern
von: Thomas
Geschrieben am: 01.08.2015 09:22:40
Hallo Matthias,
besten dank für den tipp,
war auch nur so eine idee.
liebe grüsse thomas

Bild

Betrifft: sorry hab falsch gelesen
von: Thomas
Geschrieben am: 01.08.2015 10:02:05
Hallo,
ich habe erstmal richtig gelesen.
das Wort "Zielort" ( könnte auch einanderer sein den möchte ich im blatt Filtereinstellungen vorgeben) muss ich im register Filtereinstellungen suchen
ich möchte jedoch dem Macro den "suchbegriff selbst" aus dem register filtereinstellungen holen lassen.
ungefähr so.
suche im Register "auswertung" den begriff " dieser steht im registerblatt "filtereinstellungen b5"
, praktisch was im Register "auswertung" gesucht werden soll steht im Blatt filtereinstellungen b5
Super wäre auch noch wenn er nichte gefunden hatt soll eine MsgBox aufgehen ungefähr so:
If intArtS Is Nothing Then
MsgBox "Nicht gefunden!"
Exit Sub
End If
dies funktioniert aber leider auch nicht.
Ich kapiere es wohl nie wie soetwas geht
liebe grüsse thomas

Bild

Betrifft: neuer Versuch ...
von: Matthias L
Geschrieben am: 01.08.2015 14:06:20
Hallo
https://www.herber.de/bbs/user/99232.xlsm
Gruß Matthias

Bild

Betrifft: besten Dank
von: Thomas
Geschrieben am: 01.08.2015 17:58:35
Hallo Matthias,
besten dank ich konnte es erfolgreich umsetzen.
besten dank für deine Hilfe.
liebe grüsse Thomas

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Begriff auslagern"