Hallo Community,

ich habe ein riesiges Problem mit Excel 2007 bzw VBA.

Folgender Sachverhalt:



Ich möchte erreichen, dass das Programm erst erkennt was für ein Buchstabe als erstes Zeichen gesetzt ist (In diesem Fall "D").

Das Programm soll erkennen wieviele Zeichen in der Zeile sind.

Wenn "D" erkannt wurde soll das Programm die 3-8 Stelle auslesen und als Zeilenkopf auf dem nächsten Tabellenblatt einsetzen.

Dann soll das Programm 11 Stellen weiterspringen, die nächsten 8 Ziffern auslesen und in das nächste Tabellenblatt als zweiten Zeilenkopf setzen.

Dann wieder 11 Stellen springen und das selbe nochmal bis zum Ende der Zeile.

Am Ende sollte also auf Tabellenblatt2 folgendes stehen:



Wie kann ich erreichen das VBA die Zelle bis zum Ende ausliest?
Wie kann VBA erkennen ob ein "D" am Anfang steht oder beispielsweise ein "V"?
Wie kann ich erreichen das VBA immer die geforderten 8 Ziffern in das folgende Tabellenblatt untereinander schreibt?

Ich hoffe ihr könnt mir Ansätze (Links zu Lösungen ähnlicher Art) zeigen oder anders helfen.

Mit freundlichen Grüßen
Die No

Ich habe jetzt mal angefangen etwas zu probieren... soweit funktioniert das... :



Nächster Schritt: Welche Schleife ist die Beste um alle Daten einzutragen??

du musst in etwa sowas machen:

dim start as integer

start = 8

dim irow as integer

do
irow = irow +1
start = start + 11

if len(zellinhalt) < start+6 then exit do

Sheets(2).Cells(irow, 1).= mid(zellinhalt,start,start+6)

loop

aber nur so ganz grob

Danke für die Hilfe... hab es jetzt hinbekommen...

habe es mit einer while-schleife erledigt.

Liebste Grüße
No!