Dann der nächste Abschnitt gleich aufgebaut. Dies funktioniert auch nur mit Abschnitten: Code Sub UnLinkEndNotes() reenUpdating = False Dim nRng As Range, eNote As Endnote, nRef As String With ActiveDocument For Each eNote In. Endnotes With eNote With. Collapse wdCollapseStart. InsertCrossReference wdRefTypeEndnote, wdEndnoteNumberFormatted, nRef = (1) (1) End With End With Set nRng = With nRng. Collapse wdCollapseEnd = - 1 If. <> Chr(12) Then. InsertAfter vbCr. InsertAfter nRef & " " With = "Endnote text" = "Endnote Char" End With. Ersetzen einer Formel durch deren Ergebnis. Collapse wdCollapseEnd. InsertAfter vbCr If. = Chr(12) Then. InsertAfter vbCr End With Next For Each eNote In. Endnotes Next End With Set nRng = Nothing reenUpdating = True End Sub Gruß Sabine -------------------------------------------------------------------- Member und Premiummember sichern die Zukunft: als Antwort auf: [ #527083] Verweise in normalen Text umwandeln Thobie Beiträge gesamt: 4019 12. Mai 2014, 17:11 Beitrag # 8 von 11 Beitrag ID: #527095 Bewertung: (22123 mal gelesen) URL zum Beitrag Beitrag als Lesezeichen Moin, Johannes, wenn Du mit Fußnoten arbeitest, probiere die XTension für QuarkXPress Foonote/Endnote Management von Virginia Systems aus:.
Beiträge gesamt: 1046 13. Mai 2014, 10:37 Beitrag # 11 von 11 Beitrag ID: #527131 Bewertung: (21965 mal gelesen) URL zum Beitrag Beitrag als Lesezeichen Moin Sabine, jetzt habe ich mir das Ergebnis genauer angeschaut: wunderbar, alles ist da, wo es sein soll, alles behält seine Formate. Ganz vielen Dank! Grüße Johannes als Antwort auf: [ #527094] X
Also für das gleiche Datenformat zu sorgen. Jetzts klappts. In wie weit sich das für meine Tabelle verallgemeinern läßt bzw. ob sich daraus Folgeprobleme ableiten - ich werds sehen. vielen Dank und viele Grüße Hein Zeit für Urlaub habe ich noch nicht, Sitz nämlich noch im Büro... Wolfgang Kölbel schrieb: Wolfgang Habernoll unread, Sep 15, 2006, 4:35:05 PM 9/15/06 to Am 15 Sep 2006 04:43:23 -0700 schrieb Hein: Hallo Hein dazu fallen mir 2 Dinge ein - beim importieren werden oft Leerzeichen angehangen teste das mal mit Länge(deineZelle) - oder bei Eingabe einer Ziffer in B26 wird die wieder numerisch formatiert da wird zB 1(Text) nicht gefunden, bei Eingabe 4-1 wird sie wieder Text, dann passt es -> Formatiere B26 vorher als Text. mfG Wolfgang Habernoll Hein unread, Sep 18, 2006, 8:00:18 AM 9/18/06 to Hallo und Guten Morgen, ich habe mit für mich jetzt folgenden Weg gefunden: =SVERWEIS(WENN(LÄNGE(B26)>1;B26;WERT(B26));Kalibrierwerkzeug;2;FALSCH) Irgendwie kommt der Sverweis scheinbar nicht klar, wenn der Datentyp in der Tabelle und in der Verweismatrix nicht identisch ist bzw. Sverweis in text umwandeln in jpg. zwischen Text und Zahl wechselt - Ist das immer so oder ist das hier etwas besonderes?
In Excel für das Web werden die Ergebnisse bereits in der Arbeitsmappenzelle angezeigt, und die Formel wird nur in der Formelleiste.