wer kann mir bitte helfen. Ich habe folgendes Problem:
In einem Makro lese ich mit folgendem Codeschnipsel den Inhalt eines Zellbereiches aus (Leerzellen oder Zahlen von 1 bis 9), bilde daraus einen String und möchte diesen in eine Zelle schreiben:
Code: Alles auswählen
For iZeile = nZeile To nZeile + 8
For iSpalte = nSpalte To nSpalte + 8
oZelle = oTabelle.getCellByPosition(iSpalte, iZeile)
Select Case modus
Case 1
Case 2
Case 3
Case 4
Case 6
If oZelle.String = "" Then
sWerte = sWerte + "0"
Else
sWerte = sWerte + oZelle.String
End If
If oZelle.CellBackColor <> 16777215 Then
sZellen = sZellen + "1"
Else
sZellen = sZellen + "0"
End If
End Select
Next iSpalte
Next iZeile
If modus = 6 Then
sAufgabe = sWerte + sZellen
oZelle = oTabelle.getCellByPosition(22, nZeile)
oZelle.Sring = sAufgabe
End If
Der einzutragende String wird einwandfrei gebildet, er hat eine Länge von 162 Zeichen.
Wenn ich in der Zielzelle Text habe, dann kann ich diesen über oZelle.Sring sehen. Trotzdem wird String nicht gefunden. Woran liegt das?
Ich arbeite unter Windows 7/64 mit Apache OpenOffice 4.1.1
MfG, kodela