paltzhalter

Hat jemand eine Idee wie man Platzhalter aus einer Exceltabelle z.B. ***123456 heraus bekommt
Also eine Textdatei wird nach Excel konvertiert, in der Ursprungsdatei werden so genannte Platzhalter verwendet um eine bestimmte Anzahl von Stellen auf zufüllen, dh. wenn die Anzahl der Stellen zu wenig sind werden sie mit * aufgefüllt. Nur um anschliessend in Excel eine Auswertung zu machen müssen diese wieder raus. Geht natürlich händig, nur bei 200 Datensätzen sehr mühsam. Hat einer eine Idee.
Bin für alles zu haben.
Gruss
Harry

Ola,

hab ich grad in anderem Zusammenhang gebraucht ;D


Erstelle in der Mappe ein neues Visual Basic-Modul, und gib ein:

Function Hinten(Zeichenkette)
For I = 0 To Len(Zeichenkette) - 1
Gedreht = Gedreht & Mid(Zeichenkette, Len(Zeichenkette) - I, 1)
Next I

Hinten = Right(Zeichenkette, InStr(1, Gedreht, *, 0))
End Function

Nach dem Schließen des Editors kannst Du die Zahl mit =Wert(Hinten(Adresse)) ermitteln, wobei Adresse die Zelladresse der Zelle mit der Zeichenkette ist.

Die For-Next-Schleife kehrt die gesamte Zeichenkette um. Danach sucht die Funktion Mid nach dem ersten Sternchen in der umgedrehten Version des Zellinhalts - am Ende der Zeichenkette darf nicht zufällig ein Leerzeichen stehen, andernfalls die Funktion Glätten einsetzen.
Die Funktion Right ermittelt die Ziffernfolge anhand der gefundenen Position.
Wert macht aus der Ziffernfolge eine Zahl.

Werde ich ausprobieren.
Gruss
Harry