---

Hallo!

Ich würde gerne über eine Inputbox den Blattnamen ändern.

Makro macht folgendes:
Aktiver Blattname wird ausgelesen (Wird als Vorschlagswert der Inputbox verwendet)
Inputbox erscheint zur Eingabe des neuen Names
Eingabe sollte nun auf 31 Zeichen beschnitten werden und als neuer Vorschlagswert für die Infobox eingelesen werden
Abfrage ob ursprünglicher Wert überhaupt mehr als 31 Zeichen hatte -->

Wenn Eingabe < 31 Zeichen -> Eingegebener Blattname wird übernommen
Wenn Eingabe > 31 Zeichen -> Inputbox mit Vorschlagswert Eingegebener Blattname auf 31 Zeichen beschnitten

Code habe ich schon für alles, nur nicht für das Beschneiden.

Ich finde ich keinen entsprechenden Befehl mit dem ich die Variable beschneiden kann.

Bitte um Vorschläge - DANKE!

Schöne Grüße!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Das ginge mit einer der Textfunktionen, nämlich LEFT. Die schneidet den Text auf eine vorgegebene Anzahl Stellen von links gezählt. Ungefähr so (ungetestet, nur getippt):

Code:

---

IF LEN(Variable) > 31 THEN
    Variable = LEFT(Variable, 31)
    Inputbox...
END IF

---

------------------
Gruß, Carsten

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

manchmal kann es so einfach sein...

DANKE!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP