Hallo liebes Forum,
ich habe ein Problem, bei dem ich einfach nicht weiterkomme: ich möchte innerhalb einer Schleife bestimmte Zellinhalte in Spalte "E" in "Einzelstücke" aufteilen und für jedes Einzelstück eine neue Zeile unterhalb der aktuellen einfügen. Die aktuelle Zeile soll dabei kopiert werden und anschließend nur die Zelle in Spalte "E" der neuen Zeile geändert werden.
Hier der bisherige Code (Ausschnitt):
Do
lngMatch1 = InStr(1, .Cells(lngCount, 5), "uppercase(&")
lngMatch2 = InStr(lngMatch1, .Cells(lngCount, 5), ")")
strTemp = Right(.Cells(lngCount, 5), Len(.Cells(lngCount, 5)) - lngMatch2)
.Rows(lngCount + 1).Insert (xlShiftDown)
.Rows(lngCount).Copy .Rows(lngCount + 1)
'.Cells(lngCount, 5) = Mid(.Cells(lngCount, 5), lngMatch1 + 11, lngMatch2 - lngMatch1 - 11)
.Cells(lngCount + 1, 5) = strTemp
lngCount = lngCount + 1
Loop While lngMatch1 > 0
Bei Ausführung der Zeile ".Cells(lngCount + 1, 5) = strTemp" erhalte ich einen Fehler 1004 "Anwendungs- oder objektorientierter Fehler". Woran kann das liegen?
Freundliche Grüße, Rainer