Office: Schauen ob Worksheet.name bestimmte Zeichen enthält

Hallo ihr,

ichj habe mal wieder ein Problem, bei dem ich alleine nicht weiter komme.

Ich möchte schauen ob in meiner Arbeitsmappe ein worksheet vorhanden ist, das mit "xyz" anfängt.
Zwei Schwierigkeiten (für mich Probleme) dabei:
1) die Benennung der Worksheets ist nicht einheitlich, das heißt unterschiedlich lang
2) der string "xyz" ist eine Zahl ein- bis vierstellig auf den immer der Zeichenfolgenausdruck "-h" folgt

Ich möchte nur schauen ob irgendeine meiner worksheets mit diesem zahlenstring anfängt.
Durch den verschiedenen Aufbau der worksheet-Namen habe ich mit InStr, Len, Left etc. nichts hinbekommen da diese Anweisungen spätestens dann versagen wenn in meiner for-Schleife andersartige worksheet-Namen auftauchen.
Im Forum und über Goofle habe ich nicht wirklich brauchbare Sachen gefunden.

Sinn: Der Import von Daten auf eine Übersichtsseite darf nur funktionieren wenn auch Daten vorhanden sind.

Vielen Dank und viele Grüße

:)

 

Hallo Flyman,

genügt es nicht, einfach unter den ersten 6 Zeichen der Tabellenblattnamen nach dem abschließenden "-h" zu suchen?

Code:

Gruß Ingolf

 

Nein die Zeichen vor dem "-h" sind wichtig da es verschiedene Datenarten gibt die jeweile eine andere Zahl vorne haben (z.B. 10, 50, 800).
Ich muss schauen ob diese Zahl in irgendeiner der worksheets dem "-h" vorangestellt ist.
Vielleicht jemand eine Idee?

 

Hallo Flyman,

was hältst du davon?
Code:

Gruß Ingolf

 

Hallo Flyman,

oder davon:

Code:

 

Super das scheint es zu sein, funktioniert zumindest mal...
Mir hat folgendes Stück zum Glück gefehlt:

If InStr(1, ws.Name, "-h") > 0 Then...

Vielen Dank! Problem gelöst


@etophg:
funktioniert auch allerdings kenne ich die "Trim" nicht, daher ist mir das andere lieber um es nachvollziehen zu können. Trotzdem danke


Viele Grüße
Andreas

 

Hallo Andreas,

*rolleyes.gif* Das war aber schon im ersten Post erwähnt*rolleyes.gif*

 

Hallo Hansueli,

hau mich, wenn ich daneben liege, aber extrahierst du mit

Code:

einerseits und mit
Code:

andererseits nicht einfach auf zwei verschiedene Arten den Teil vor "-h" aus demselben Worksheetnamen und vergleichst dann dadurch zweimal dasselbe miteinander? Die Bedingung
Code:

wäre dann ja immer erfüllt.

Gruß Ingolf

 

Hallo Ingolf,

Probiers mal mit einem Namen wie "1.2-hGUGUSELI"

Wann und wo darf ich hauen ... *smashing ? *biggrin.gif* *grins *biggrin.gif*

 

Hallo Hansueli,

*10points Wow !! Volle Punktzahl für diese Kür !

Es bewahrheitet sich einmal mehr, das dasselbe nicht unbedingt immer dasselbe ist.

Schon erledigt, mit dem Handballen voll auf die Stirnplatte.

Gruß Ingolf

 

Hallo Ingolf,

Vielleicht sind die Punkte für die Kür gerechtfertigt.
Für die Pflicht gibts dafür nix.....
Ich habe mindestens 1'000 potentielle Fehlerquellen im Code *stupid, die da sind:
1. Ziffer Null "0-hBlattName"
999. Nicht Luftballons sondern Blattnamen wie "-1-hName" ... "-999-hName"

Also besteht die Herausforderung: in dieser Codezeile die (potentiellen) Fehlerquellen zu finden:
Code:

 

Hallo Hansueli,

nach reiflicher Überlegung bist du - glaube ich - besser als du selbst glaubst, denn es bleiben meines Erachtens nur 2 oder maximal 3 Fehlerquellen übrig, die einer Extrabehandlung bedürfen. Als 3., für mich fragliche Fehlerquelle sehe ich dabei die Geschichte mit der 0, also die Zeichenfolge "0-h". Nach der Vorgabe von Flyman

ist das meiner Meinung nach eine gültige Zeichenfolge.

Ziffernfolgen mit mathematischen oder logischen Operatoren in der Mitte, wie zum Beispiel "5-2-h" scheiden als Fehlerquellen ebenfalls aus. Die Funktion Val() berechnet diese Ausdrücke. Da das Ergebnis des Ausdruckes nicht mit dem Áusdruck selbst übereinstimmt, schlägt die Überprüfung fehl.

Auch Operatoren am Ende scheiden als Fehlerquellen aus. Die Funktion Val() übernimmt diese nicht mit in den Vergleichsausdruck, im Gegensatz zur Left()-Funktion. Auch hier scheitert die Überprüfung auf Gleichheit.

Bei führenden Operatoren ergibt die Val()-Funktion, mit 2 Ausnahmen, einen Laufzeitfehler. Diesen könnte man natürlich auch noch abfangen. Die Ausnahmen sind das Plus- und das Minuszeichen. Führende Pluszeichen bereiten allerdings auch keine Probleme, denn positive Zahlen werden ohne Pluszeichen dargestellt. Die Val()-Funktion schluckt das Pluszeichen also, wodurch sich die zu vergleichenden Strings unterscheiden - die Überprüfung schlägt wieder fehl.

Ein führendes Minuszeichen ist im Gegesatz dazu tatsächlich eine Fehlerquelle. Negative Zahlen werden mit führendem Minuszeichen dargestellt. Dadurch bleiben die mit der Val()-Funktion bzw. mit der Left()-Funktion ermittelten Strings identisch und der Tabellenblattname wird fälschlicherweise als gültig erkannt. Das sollte man durch eine zusätzliche Prüfung abfangen.
Code:

Eine weitere Fehlerquelle stellen führende Nullen dar. Eine Ziffernfolge wie "0815-h" wird nicht als gültig erkannt. Die Val()-Funktion schneidet im Gegensatz zur Left()-Funktion die führende Null ab und die Strings sind nicht mehr identisch, obschon gültig. Da ich nicht weiß, wieviele führende Nullen der Ausdruck hat, läßt sich das am besten beheben, indem man in der Überprüfung beiden Strings eine führende 1 hinzufügt. Auf der betreffenden Seite natürlich vor der Umwandlung mit Val(). Also etwa so:
Code:

Gruß Ingolf

 

Hallo Ingolf,

Sei bedankt *hands für diese ausführliche Analyse.
Die 0815 Frage ist allerding mathematisch geregelt. Da gibt es keine (Ganzen)Zahlen mit führenden Nullen. Die meisten Leute wissen eh nicht woher die 0815 stammt und brauchen dafür liebern 4711 *grins