Hallo,

ich habe folgendes Problem, ich möchte in VBA (Excel 2003) mit einem Stirn arbeiten , in dem untrer anderem 2 oder 3 Gleichheitszeichen hintereinander (also "===") erscheinen sollen. Dies ist notwendig, da ich an einem Makro rumschreibe, Wikipedia-Code ausgeben soll und an bestimmten Stellen in Wiki eine neue Überschrift im Text gemacht werden soll, der dann eben als steuerzeichen vor und hinter dem Text mehrere Gleicheitszeichen bekommt

(konkret wird die Tabele so ausgegeben, dass bei fett formatierten Zeilen diese als Überschrift in den Wiki Text eingebaut wird, um mit einem Inhaltsverzeichnis besser durch die Tabelle navigieren zu können)

VBA scheint aber ein Problem mit mehreren Gleichheitszeichen hintereinander zu haben, da immer an der Stelle ein Fehler kommt (1004). Ich habe auch schon versucht, ein Zeichen mittels chr(61) einzubauen und dann einfach mehrere mit & verknüpfen, geht aber genau so wenig wie sich mehrere Hilfsvariablen zu amchen und sich den Text zusammenzubauen.

Das Problem scheint aber eher die Übernahme in eine Excel-Zelle zu sein.

Wenn Überschrift ist die Stringvariable ist und ich hiermit die Überschrift mit mehreren Gleichheitszeichen in einen Zelle schreiben will (orange ist als range definiert, oline ist die nummer der zeile):

Dann bekomme ich Fehler 1004. Hat jemand eine Idee wie ich das trotzdem hinbekommen kann? in Überschrift

Überschrift= "===Text==="

orange.Cells(oline, 1) = Überschrift