mein script kopiert verschiedene Zellinhalte in andere Zellen, was normalerweise sehr gut funktioniert nur bei einer Zelle gibts Probleme, da Sie nach dem Verschiebevorgang nur noch " #Wert! " anzeigt.
Ich vermute, daß es daran liegt, daß in der Zelle zu viele Daten stehen. Dazu habe ich hier mal den Zellinhalt:
"
AB VENTANA Warenwirtschaft Grundpaket
- Kunden, Artikel, Textbausteine usw.
- Auftragsbearbeitung mit Angebot,
Auftrag, Lieferschein, Rechnung
- 1 Lager mit Bestandsführung
- Umsätze verwalten mit Roherträgen
- Chefstatistik, Kalkulation
- 10 untersch. Belegarten
- div. Journale, diverse Listen
- Kunden-Artikel-Lieferanten Historie
- 7VK-Preise pro Artikel
- Kontakt-Modul, Doku.Verwaltung
- div. Ansprechpartner
- Volltexsuche, ODBC
- autom. Lieferscheinberechnung
- Euro, etc.
"
Das wäre der lange Lulatsch.
Bei allen anderen funktioniert dieses Script:
If Not Cells(y, 18) = "" Then
Rows(y + 1 + u).Insert
Cells(y + 1 + u, 8) = Cells(y, 18)
Cells(y, 18).ClearContents
'vor SP-2 werden ART & SPRA gesetzt
Cells(y + 1 + u, 6) = "SP-2"
Cells(y + 1 + u, 7) = lng
u = u + 1
End If
Kann mir hier jemand sagen, obs an der Länge liegt und wenn ja, wie ich das Problem lösen kann (ohne natürlich den Zellinhalt zu kürzen).
MfG
Sebastian