AW: Was läuft falsch?
04.11.2011 15:59:51
HansP
Ok, hier erst nochmal das nicht laufende Makro:
Dim i As Integer
For i = 1 To Range("E65000").End(xlUp).Row
Range("E" & i) = Mid(Range("E" & i), 1, Len(Range("E" & i)) - 28)
If InStr(1, Right(Cells(i, 5), 5), "-") And InStr(1, Right(Cells(i, 5), 10), "-") Then
Cells(i, 5) = Left(Cells(1, 5), Len(Cells(1, 5)) - 14)
End If
Next i
Spalte ist und bleibt: E
Text1
Langenscheidt KG, Berlin und München, 2007. Gebunden Opbd. mit illsutriertem Einband wie abgebildet. Kleinformat. Nur angelesenes und gut erhaltenes Exemplar mit nur leichten Lagerungsspuren am Einband (Ecken teils leicht bestoßen, Oberfläche minimal lagerspurig), Schnitt hel und frisch, innen sauber und gepflegt. Versand in Luftpolsterumschlag innerhalb von zwei Werktagen ab München. CI-NF38-MH9T Every shipment with invoice.
Text2
Droemersche Verlagsanstalt Th. Knaur Nachf., München, 1999. Taschenbuch. Einmal pfleglich gelesenes und sehr gut erhaltenes Exemplar mit nur leichten Lese- und Gebrauchsspuren am Einband (Kanten teils leicht berieben, Ecken teils minimal bestoßen), Schnitt etwas nachgedunkelt, innen sauber und gepflegt. Versand in Luftpolsterumschlag innerhalb von zwei Werktagen ab München. H1-RN0L-OLDL Every shipment with invoice.
Den Part mit "Every shipment with invoice." schneidet mir das Makro sauber raus. Wobei ich am Ende der Zelle dann ein Leerzeichen habe.