Office: Mit VBA nur die ersten 5 Ziffern einer Zelle?

Hallo,

ich suche eine Möglichkeit über VBA zu sagen, dass aus einer Zelle nur die ersten 5 Ziffern ausgelesen werden sollen und in eine Textbox geschrieben werden soll.
Code für den ganzen zelleninhalt wäre folgende:

Code:

Also in A2 des in-Sheets liegt der Wert, von dem nur die ersten 5 Ziffern benötigt werden. Diese sollen dann in Auftragsnummer1-Textbox auf der Eingabemaske X erscheinen.

Jemand ne Idee? Würde es gerne ohne extra Berechnung in einer anderen Zelle machen! Geht das?

Danke schon mal im Voraus!


MfG Manuel

:)

 

Hallo Manuel,

so bekommst du die ersten 5 Zeichen (allerdings unabhängig davon, ob es Ziffern sind oder nicht):
Code:

Gruß Ingolf

 

Ah super, wollte auch Zeichen sagen.
Vielen Dank!

 

Hallo,

ich bin noch am einlesen und habe noch eine frage zu dem Command.

Worksheets("Eingabemaske X").Auftragsnummer1.Value = Left(Worksheets("in").Range("A2").Value, 5)

Auftragstragsnummer.Value ist mir unklar ist das die Beschreibung eine Zelle.... Koennte ich diese dann auch A1 nennen....

Und was bedeutet Left(Worksheets("in") was bedeutet das Left.... waere toll wenn ich mir kurz antworten koennte,

Gruss Dominik

 

Hallo Dominik,

was sich hinter "Auftragsnummer1" verbirgt, müsste Manuel beantworten. Aber du kannst auf jeden Fall an Stelle von Auftragsnummer1 sagen

Worksheets("Eingabemaske X").Range("A1").Value = Left(Worksheets("in").Range("A2").Value, 5)

wenn du der Zelle A1 einen Wert zuweisen willst.

Die Funktion Left(Text, AnzahlZeichen) schneidet eine bestimmte Anzahl von Zeichen aus einem Text, von links beginnend. Left("Hallo Welt!", 3) ergibt zum Beispiel "Hal".

Gruß Ingolf

 

Hallo
Vielen Dank fuer die Antwort!

Gruss Dominik

 

Um die Erklärung zu vervollständigen,
Auftragsnummer1.Value ist der Wert der Textbox namens "Auftragsnummer1"

würde ich zumindest aus diesem befehl und dem ersten Post so rauslesen