Verschiebung von Zelleninhalten bei best. Namen
10.01.2016 18:16:39
Zelleninhalten
ich möchte folgende Aufgabestellung mit eurer Hilfe in VBA als Macro lösen:
Ich habe ein .txt Dokument, das via Marcro in Excel mit der Funktion "Text in Spalten" eingelesen wird.
In einer Spalte werden die Werte, die mit "XE" beginnen, vermeintlich fehlerhaft eingefügt. (Eigentlich ist es richtig, da zu viele Kommas in der txt. Datei sind und somit eine extra Spalte erzeugt wird. Das ist eigentlich ein Fehler der txt. Datei. Da aber die Textdatei von einem Programm exportiert wird, kann man da nichts ändern).
Nun möchte ich immer, wenn in der Spalte "H" die Namen mit "XE" beginnen z.b Zeile 25, den Zeileninhalt von "I,25" nach "L,25" verschieben.
Am Anfang muss natürlich geprüft werden, wie viele Zeilen es überhaupt gibt, und, ob "EX" überhaupt vorkommt.
Mein Versuch, der leider nicht funktioniert, sieht folgender Maßen aus:
'Checken, wie viele Zeilen durchlaufen werden müssen, dh bis die erste Zeile leer ist
Do until Range((xlCellTypeLastCell).value = ""
' If Bedingung für Werte, die mit "EX" beginnen
If cell(H,i).value = "EX*"
'dann soll ein Wert in der gleichen Zeile in eine andere Zeile ausgeschnitten und eingefügt werden
then Range(I,i).cut and Range(L,i).paste
next i
Elseif next i
Endif
Loop
Ich hoffe, ihr habt verstanden was ich möchte. Falls nicht fragt einfach und ich versuche es genauer bzw. anhand eines Beispiels erklären.
Bin um jede Hilfe dankbar.
Gruß und Dank
Phil