Clever-Excel-Forum

Hallo Excelianer:innen,
hier habe ich vor einiger Zeit beim gleiche Thema Hilfe erhalten siehe (Spalten kopieren zu Spaltenüberschrift)
und verwende das Makro von Uwe. Nun wollte ich das ganze erweitern, leider ohne Erfolg.

Zusätzlich sollte noch ergänzt werden (Jahr- und Monatszahlen vaiabel):

  vor 1600      zu      BEF 1600
  um 1100      zu      ABT 1100
  nach 1500    zu      AFT 1500
  09 1300       zu      SEP 1300
  1200           zu            1200

Leider bin ich mit den Formeln etwas überfordert  und bitte um Eure Hilfe.
Gruss Martin
[attachment=46149]

Hallo,

versuche es einmal so:


Bei "um 1200" musst Du eben einen Zeitraum definieren z. B. >=1100 And <= 1300 oder wie auch immer.
Den ersten Code - Schnipsel oben habe ich getestet und funktioniert.

Grüße

Norbert

Guten Tag Norbert,
für die Hilfe. Leider bringt es mir eine Fehlermeldung.

Unzulässiger oder nicht ausreichend definierter Verweiss bei
    Select Case Right(.Cells(i, k), 4)

Was mache ich falsch? Bitte nochmals um Hilfe.
Gruss Martin


[attachment=46165]

Hi,

da du vor dem .Cells einen Punkt stehen hast, muss es natürlich mit in den With-Block!

Im Übrigen solltest du auch die anderen If-Anweisungen in Select Case umwandeln. Wäre viel übersichtlicher

BY7#:

=LET(
a;AD7:AD16;
x;RECHTS("01.01."&a;10);
y;WECHSELN(WECHSELN(GROSS(TEXT(ERSETZEN(x;7;1;TEIL(x;7;1)+2);"T MMM JJJJ"));" 3";" 1");" 4";" 2");
z;WAHL(LÄNGE(a)-LÄNGE(WECHSELN(a;".";))+1;RECHTS(y;4);RECHTS(y;8);y);
WENNFEHLER(VERWEIS(a;{"n"."u"."v"};{"AFT "."ABT "."BEF "});"")&z)

nur ab dem Jahr 1000. Für Jahre davor bitte melden.

Achtung: Nur neues Excel!

Guten Abend LCohen,
besten Dank für Dein Beispiel. Interessanter Vorschlag.
Leider arbeite ich immer noch mit Excel 2016.
Trotzdem nochmals danke für die Hilfsbereitschaft.
Gruss Martin

War auch nur Gehirnschmirgelgrundlage. Manchmal braucht man das. Etwas verkürzt ohne WAHL:

=LET(
a;AD7:AD16;
x;RECHTS("01.01."&a;10);
y;WECHSELN(WECHSELN(GROSS(TEXT(ERSETZEN(x;7;1;TEIL(x;7;1)+2);"T MMM JJJJ"));" 3";" 1");" 4";" 2");
z;RECHTS(y;(LÄNGE(a)-LÄNGE(WECHSELN(a;".";))+1)*4);
WENNFEHLER(VERWEIS(a;{"n"."u"."v"};{"BEF "."ABT "."AFT "});"")&z)

Guten Abend Helmut,
danke für die Info. Habe immer noch so meine Schwierigkeiten mit den If Aneisungen.
Dein Typ :
"da du vor dem .Cells einen Punkt stehen hast, muss es natürlich mit in den With-Block"
nicht so verständlich.

Dein Änderungsvorschlag "If-Anweisungen in Select Case umwandeln" ist sicher
von Vorteil, vor allem aber übersichtlicher.

Hier wären für mich Beispiele besser. So könnte ich meinen Bildungs-Horizont erweitern.
Nochmals Danke für deine Hilfbereischaft.
mfg. Martin

Hallo Martin,

teste mal.
[attachment=46180]
Naja, mittels Select Case spart man an dieser Front nur wenig, da ja die jeweiligen Zuweisungen (1 Befehlszeile) bleiben. Deshalb ist es so ziemlich egal, ob If/Else oder Select Case.


Gruß Uwe

Hi,

(10.12.2022, 12:55)Egon12 schrieb: [ -> ]Naja, mittels Select Case spart man an dieser Front nur wenig, da ja die jeweiligen Zuweisungen (1 Befehlszeile) bleiben. Deshalb ist es so ziemlich egal, ob If/Else oder Select Case.

dem möchte ich doch ein wenig widersprechen.
Der bisherige Code mit If
Mit Select Case sieht das so aus Vor allem wird hier nur einmal LEFT(xxx, 2) bzw. MID(xxx,4, 2) ausgeführt. Das beschleunigt die Durchführung um den Faktor 12. Durch Zuweisung der Monatsnamen zu einer Variablen und Eintragen in die Zelle nach dem Select Case könnte man das noch etwas eleganter machen:
Es geht aber noch eleganter, komplett ohne If oder Select Case: Wenn man jetzt noch weiß, dass das deutsche Excel die kurzen Monatsnamen in der siebten benutzerdefinierten Liste hinlegt hat (die englischen sind in Liste 3), dann kann man den länglichen Ausdruck in UCase() noch etwas kürzen: aus UCase(Format("01." & Left(.Cells(i, k), 2) & ".00", "MMM ")) wird dann UCase(arr(--Left(.Cells(i, k), 2)) & " ") bzw. analog dann mit Mid() statt Left().

Und mal so ganz nebenbei bemerkt: ist es nicht etwas inkonsequent, wenn man für die Monatsnamen deutsche Abkürzungen verwendet, aber für die Zeitbereiche englische?