Thema Datum  Von Nutzer Rating
Antwort
Rot Textmarke nach füllen wieder neu setzen
30.04.2016 22:41:00 Hofe
NotSolved
01.05.2016 15:03:21 Gast73473
NotSolved
01.05.2016 15:28:46 Hofe
NotSolved
01.05.2016 17:29:30 Gast83074
NotSolved
01.05.2016 19:32:40 Hofe
NotSolved
01.05.2016 19:37:07 Hofe
NotSolved
01.05.2016 19:48:56 Gast54756
NotSolved
01.05.2016 20:07:28 Hofe
NotSolved
01.05.2016 20:08:17 Hofe
NotSolved
01.05.2016 20:16:47 Gast43310
NotSolved
01.05.2016 20:38:47 Hofe
NotSolved
01.05.2016 21:08:09 Gast36395
NotSolved
01.05.2016 21:08:20 Gast27765
NotSolved
01.05.2016 21:08:29 Gast16413
NotSolved
01.05.2016 21:14:24 Gast26480
NotSolved
01.05.2016 21:31:16 Hofe
Solved
01.05.2016 21:39:35 Gast28033
NotSolved
01.05.2016 21:45:28 Hofe
Solved
01.05.2016 21:58:21 Gast83673
NotSolved
02.05.2016 15:57:14 Hofe
Solved
02.05.2016 18:58:27 Gast65100
NotSolved
03.05.2016 07:29:00 Hofe
Solved
03.05.2016 12:26:17 Gast34319
Solved

Ansicht des Beitrags:
Von:
Hofe
Datum:
30.04.2016 22:41:00
Views:
2653
Rating: Antwort:
  Ja
Thema:
Textmarke nach füllen wieder neu setzen

hallo erstmal,

 

ich benutze vollgendes script, was mir textmarken aus einer excel tabelle heraus in einem worddocument füllt, sobald eine auswahl über eine listbox getroffen wurden.

          'Zuerst wird die Excel Datei geöffnet
          Set oExcelApp = CreateObject("Excel.Application")
          Set oExcelWorkbook = oExcelApp.Workbooks.Open(ThisDocument.Path & DatenBezug)
      
          lZeile = 2 'Wir starten in Zeile 2, da in der ersten Zeile überschriften stehen
          With oExcelWorkbook.Sheets(DatEmpfaenger)
              Do While .Cells(lZeile, 2) <> ""
                  'Wenn der Eintrag der Listbox mit dem Namen in der Adresstabelle
                  'übereinstimmt, dann werden die Textmarken gefüllt!
                  If ListBox1.Text = CStr(.Cells(lZeile, 1).Value) Then
                      'Eintrag gefunden, Textmarken füllen
                      ActiveDocument.Bookmarks("TM_E_Firma").Range = _
                          CStr(.Cells(lZeile, 3).Value)
                      ActiveDocument.Bookmarks("TM_E_StrHnr").Range = _
                          CStr(.Cells(lZeile, 4).Value)
                      ActiveDocument.Bookmarks("TM_E_PLZ").Range = _
                          CStr(.Cells(lZeile, 5).Value)
                      ActiveDocument.Bookmarks("TM_E_Ort").Range = _
                          CStr(.Cells(lZeile, 6).Value)
                      ActiveDocument.Bookmarks("TM_E_Tel").Range = _
                          CStr(.Cells(lZeile, 7).Value)
                      ActiveDocument.Bookmarks("TM_E_Fax").Range = _
                          CStr(.Cells(lZeile, 8).Value)
                      ActiveDocument.Bookmarks("TM_E_Mail").Range = _
                          CStr(.Cells(lZeile, 9).Value)
                      ActiveDocument.Bookmarks("TM_E_KD").Range = _
                          CStr(.Cells(lZeile, 10).Value)
                      Exit Do
                  End If
                  lZeile = lZeile + 1
              Loop
          End With

was so weit auch wirklich gut funktioniert.

Mein problem ist aber , das die textmarken nach dem einfügen natürlich raus sind.

Ich habe nun schon eine ganze weile gesucht und probiert, aber komme leider auf keinen nenen.

 

Nun hoffe ich, das mir vielleicht hier einer helfen kann,

wenn ich z.B. bei der Textmarke TM_E_Firma

                      ActiveDocument.Bookmarks("TM_E_Firma").Range = _
                          CStr(.Cells(lZeile, 3).Value)

auch gleich wieder eine Textmarke mit dem eingefügten text setzen möchten.

Da ich eine absoluter kacknoob im vba bin, wäre auch eine kleine erklärung klasse,

damit ich vielleicht auch verstehe, warum und weshalb das jetzt so gemacht wurde.

 

vielen lieben dank schon mal im voraus.

 

mfg Hofe


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Textmarke nach füllen wieder neu setzen
30.04.2016 22:41:00 Hofe
NotSolved
01.05.2016 15:03:21 Gast73473
NotSolved
01.05.2016 15:28:46 Hofe
NotSolved
01.05.2016 17:29:30 Gast83074
NotSolved
01.05.2016 19:32:40 Hofe
NotSolved
01.05.2016 19:37:07 Hofe
NotSolved
01.05.2016 19:48:56 Gast54756
NotSolved
01.05.2016 20:07:28 Hofe
NotSolved
01.05.2016 20:08:17 Hofe
NotSolved
01.05.2016 20:16:47 Gast43310
NotSolved
01.05.2016 20:38:47 Hofe
NotSolved
01.05.2016 21:08:09 Gast36395
NotSolved
01.05.2016 21:08:20 Gast27765
NotSolved
01.05.2016 21:08:29 Gast16413
NotSolved
01.05.2016 21:14:24 Gast26480
NotSolved
01.05.2016 21:31:16 Hofe
Solved
01.05.2016 21:39:35 Gast28033
NotSolved
01.05.2016 21:45:28 Hofe
Solved
01.05.2016 21:58:21 Gast83673
NotSolved
02.05.2016 15:57:14 Hofe
Solved
02.05.2016 18:58:27 Gast65100
NotSolved
03.05.2016 07:29:00 Hofe
Solved
03.05.2016 12:26:17 Gast34319
Solved