Probleme bei Replace

nummer = ExcelWkb.Sheets("Anweisungstexte").Cells(i, 1).Text neu = ExcelWkb.Sheets("Anweisungstexte").Cells(i, 3).Text & vbCrLf & ExcelWkb.Sheets(" _ Anweisungstexte").Cells(i, 4).Text If nummer "" Then Selection.Replace What:=nummer, Replacement:=neu, LookAt:= _ xlWhole, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False End If

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo
normalerweise könnte ich schreiben ich bin raus. Wenn mich aber etwas aergert bin ich ein verbissenes Kerlchen das wissen will was da falsch ablaeuft. Dann werde ich sehr sehr grüdlich und überlege wie man dem Phaenomen auf die Spur kommen kann.
Sollte es im Programm eine On Error Anweisung geben bitte mal rausnehmen damit Excel direkt im Editor anzeigt in weicher Befehlszeile der Fehler auftritt. Ob sie bei Selection.Replace liegt, oder vorher beim laden der Variablen?
Ein weiterer Trick von mir ist: On Error Goto Fehler
Mit einer Fehler Routine vor (End Sub). Dazu muss man das normale Programm vor der Fehlermeldung mit (Exit Sub) beenden.
Dann schreibe ich mir in zwei Nachbarzellen die frei ist den Wert von nummer und neu
Meistens nur von 1-2 Ereignissen und unterbreche das Programm mit (Exit Sub) zum prüfen.
Dann schaue ich mir in Ruhe an ob mir in den Werten etwas auffaellt. z.B. Sonderzeichen die Excel nicht verrbeiten kann.
Im Zweifel mal eine ganze Fehlerliste erstellen und drüberschauen. Irgendwann faellt einem der Fehler auf.
Fehler: f=f+1
'Prüfroutine mit Zaehler f+1
Range(freiZelle)=nummer
Range(freiZelle2)=neu
İf f = 2 Then Exit Sub
Resume Next
End Sub

Moin,
ich hab es gefunden.
Microsoft hat hier scheinbar eine Länge von 255 Zeichen als Grenze gesetzt.
Hier mein Quellcode mit dem es läuft:

        nummer = ExcelWkb.Sheets("Anweisungstexte").Cells(i, 1).Text
neu = ExcelWkb.Sheets("Anweisungstexte").Cells(i, 2).Text & vbCrLf & ExcelWkb.Sheets(" _
Anweisungstexte").Cells(i, 3).Text
Laenge = Len(neu)
If nummer  "" Then
If Laenge > 510 Then
neu1 = Left(neu, 253) & "§$"
neu2 = Right(neu, Laenge - 253)
neu2 = Left(neu2, 253) & "§$"
neu3 = Right(neu, Laenge - 506)
Selection.Replace What:=nummer, Replacement:=neu1, LookAt:= _
xlWhole, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="§$", Replacement:=neu2, LookAt:= _
xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="§$", Replacement:=neu3, LookAt:= _
xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
ElseIf Laenge > 255 Then
neu1 = Left(neu, 253) & "§$"
neu2 = Right(neu, Laenge - 253)
Selection.Replace What:=nummer, Replacement:=neu1, LookAt:= _
xlWhole, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="§$", Replacement:=neu2, LookAt:= _
xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Else
Selection.Replace What:=nummer, Replacement:=neu, LookAt:= _
xlWhole, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End If
End If

Vielen Dank trotzdem für die Hilfe

Beliebteste Forumthreads (12 Monate)

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread