Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1932to1936
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1932to1936
1932to1936
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Textmarken in Word aus exel füllen

VBA Textmarken in Word aus exel füllen
07.07.2023 14:54:16
Jörg Hasenauer

Hallo,

also bin etwas weitergekommen.

2 fragen :-)

1. wenn ich die Exel neu starte und Word noch geschlossen ist und das Makro starte dann öffnet sich die Word vorlage wie es sein sollte .
wenn ich das Makro dann stoppe bzw neu starte, dann öffnet sich zwar word aber nur bis zur Übersicht der zuletzt benutzen Dateien.
Wo oder was ist das Problem- hab ich irgendwo einen Fehler?
2.Die Textmarken lassen sich nicht befüllen- ich bekomm immer einen Fehler.

https://www.herber.de/bbs/user/159840.xlsm

vielleicht kann mir jemand da weiterhelfen.

Grüße

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Textmarken in Word aus exel füllen
07.07.2023 15:31:56
ReginaR
Hi,
ohne die Worddatei kann ich das nicht testen. Eines fällt mir auf. Du dast doc weder deklariert noch einen Wert zugewiesen. Du solltest mit Option Explicit arbeiten, dann fallen solche Fehler schnell auf.

Test mal so:


Sub test()
Dim AppWD As Object
Dim doc As Object
Set AppWD = CreateObject("Word.Application")

'Word als Object starten
AppWD.Visible = True

Set doc = AppWD.Documents.Open("/Volumes/Macintosh HD - Daten/PraxisNeu/GeschŠftsbriefTest1.docx")
doc.Bookmarks("Name").Range.Text = Tabelle1.Cells(2.1).Value
doc.Bookmarks("Vorname").Range.Text = Tabelle1.Cells(2.2).Value
doc.Bookmarks("Stra§e").Range.Text = Tabelle1.Cells(2.3).Value
doc.Bookmarks("PLZ").Range.Text = Tabelle1.Cells(2.4).Value
doc.Bookmarks("Ort").Range.Text = Tabelle1.Cells(2.5).Value
doc.Bookmarks("Anrede").Range.Text = Tabelle1.Cells(2.6).Value

End Sub
Gruß Regina


Anzeige
AW: VBA Textmarken in Word aus exel füllen
07.07.2023 15:41:41
Oberschlumpf
Hi Regina,

und ich hab jetzt deinen Code nicht getestet :-)

Aber anstelle von...
...Tabelle1.Cells(2.1).Value
...müsste es doch...
...Tabelle1.Cells(2,1).Value
...heißen, oder? (hab deinen Punkt mit Komma getauscht)

Und natürlich müsste das in jeder Wertzuweisungscodezeile angepasst werden.

Ha! Mir kommt gerad ein Gedanke! :-) Weil ja ein Apfel-Computer im Einsatz ist, kann es sein, dass dort eben mit dem Punkt gearbeitet wird??? :-)

Ciao
Thorsten


Anzeige
AW: VBA Textmarken in Word aus exel füllen
07.07.2023 17:13:55
ReginaR
...ok, das hatte ich übersehen... weiß aber auch nicht, wie das auf dem Mac läuft

Gruß Regina


AW: VBA Textmarken in Word aus exel füllen
07.07.2023 18:58:20
Jörg Hasenauer
Also hab es getestet, bei ersten versuch, makro starten bekomm ich einen Fehler, wenn ich word wieder schließe und das Makro neu starte komme ich ins vorlagen Dokument ???


AW: VBA Textmarken in Word aus exel füllen
07.07.2023 19:31:44
Oberschlumpf
na, dann wiederhol ich doch die Info, die Regina schon erwähnte:

ohne deine Word-Datei, bzw davon eine Bsp-Datei mit Bsp-Daten und vor allem den von dir erwähnten Textmarken an den richtien Stellen, kann niemand den Code testen - und somit kann auch niemand Fehler im Code korrigieren, wenn welche vorhanden sind.


Anzeige
AW: VBA Textmarken in Word aus exel füllen
07.07.2023 23:10:08
Ulf
Hi
Reginas Code funzt, die Sprach/Ländereeinstellungen bei Mac können aber Punkt als Trennzeichen haben. Kann man mit Intellisense aber sehen
Würde aber Documents.Add nutzen, dann ist nur ein ungespeichertes Dokument offen

Sub test()
    Dim AppWD As Object
    Dim doc As Object
    Dim strDoc As String
    'Early Binding:
    'Set AppWD = New Word.Application
    'Dim doc As Word.Document
    'Für Speichern
    Const wdFormatDocumentDefault = 16
    Set AppWD = CreateObject("Word.Application")
    'strDoc = ActiveWorkbook.Path & "\Test Textmarke.docx"
    strDoc = "/Volumes/Macintosh HD - Daten/PraxisNeu/GeschäftsbriefTest1.docx"
    AppWD.Visible = True
    Set doc = AppWD.Documents.Add(strDoc) '"/Volumes/Macintosh HD - Daten/PraxisNeu/GeschäftsbriefTest1.docx"
    With doc
        .Bookmarks("Name").Range.Text = Tabelle1.Cells(2, 1).Value
        .Bookmarks("Vorname").Range.Text = Tabelle1.Cells(2, 2).Value
        .Bookmarks("Strasse").Range.Text = Tabelle1.Cells(2, 3).Value
        .Bookmarks("PLZ").Range.Text = Tabelle1.Cells(2, 4).Value
        .Bookmarks("Ort").Range.Text = Tabelle1.Cells(2, 5).Value
        .Bookmarks("Anrede").Range.Text = Tabelle1.Cells(2, 6).Value
        .Saved = True
        '.SaveAs2 ActiveWorkbook.Path & "\" & Format(Date, "yyyy_MM_dd") & "_" & Format(Time, "hh_nn_ss") & ".docx", wdFormatDocumentDefault
        'Zum Testen
        Stop
        .Close
    End With
    AppWD.Quit
    Set AppWD = Nothing
End Sub
hth
Ulf

Anzeige

307 Forumthreads zu ähnlichen Themen

Hintergrundfarbe in Zahl umwandeln
Timo

Hallo zusammen.
Gibt es über VBA eine Möglichkeit, die Hintergrundfarbe einer Zelle in eine Zahl umzuwandeln und das schneller als mit for- Schleifen?
Habe einen Bereich ("J16:AG39"), wo ich per Zellaktivierung mit der Maus Zellen oder auch Zellbereiche mit einer Hintergrundfarbe verseh...
07.08.2008 19:30:00
Thread-ID: 1000082
4 Beiträge
Anzeige
Zahl vorn/hinten vom Text trennen + Komma
StefanK

Hallo Excel-Freunde
ich möchte gern per Formel folgendes lösen:
in zelle a3 steht
1 haley, bill rock around the clock 1956
jetzt soll in b3 die "1" stehen --- löse ich per Formel mit =LINKS(A3;SUCHEN(" ";A3)-1)
in e3 soll "1956" stehen --- löse ich mit Array-Formel {=...
25.09.2008 19:00:21
Thread-ID: 1012407
12 Beiträge
Textbox Ausgabe als Zahl bzw. Zeit formatieren
Steffan

Hallo ihr lieben,
ich schreib jetzt schon den ganzen Tag an folgender Routine:
Private Sub CommandButton1_Click() Dim z As Integer z = Range("I101").End(xlUp).Row + 1 TextBox1 = Format(CDate(TextBox1.Value), "dd.mm.yyyy") Cells(z, 9) = TextBox1 'Datum des Tauchgangs Cells(z, 12) = Tex...
28.09.2008 20:12:56
Thread-ID: 1012988
6 Beiträge
Anzeige
Zahlen rechtsbündig in einer Textbox
Helmut

Hallo,
ich habe einen Textstring mit Zahlen die ich rechstbündig anordnnen will.
Text= "Beisiel: " & Format (Zahl,"#,###")
Wie wird die Zahl im Formatbefehl z.B rechtsbündig bei max 6 Stellen ausgegeben?
Gruß
Helmut
04.11.2008 11:57:00
Thread-ID: 1021556
2 Beiträge
Zahl eingeben und per VBA formatieren
Herbert

Hallo Gemeinde
Ich habe eine Zelle in einem .xlt, dort soll der User eine Zahl eingeben und mit dem Changeereignis
soll die Zahl in der Form JJ/###A umgewandelt werden.
Beispiel: 201 soll 08/201A werden. Das, was ich hier verbrochen habe, funst nicht, kann mir jemand helfen?
P...
05.11.2008 16:08:10
Thread-ID: 1021969
12 Beiträge
Textzahl umwandeln
Stephan

Hallo zusammen,
ich habe folgendes Problem:
Mit dem u. a. Code werden Zeilen aus einer Datei in eine andere kopiert. Die Spalte B (B2:B65535) der Zieldatei ("Auswertung.xls)" soll nun aber zusätzlich noch mit 1 multipliziert werden, da diese ein Datum als Textzahl enthält und dieses in...
10.11.2008 11:12:00
Thread-ID: 1023147
22 Beiträge
Nur Zahlen in sehr vielen Textboxen
uli

Hallo,
habe ein im Internet gefunden, der allerdings noch ein bisschen angepasst werden muss. Vielleicht könnt ihr mir helfen, da ich an dieser Stelle nicht mehr weiterkomme.
Ich möchte die Eingabe von Buchstaben in mehreren Textboxen verbieten. Dies mache ich mit folgendem Code in eine...
13.11.2008 10:24:00
Thread-ID: 1024091
3 Beiträge
TextBox Inhalte sollen Zahlen sein
Frank

Hallo Zusammen!!!
Mit folgendem Code:
Private Sub CommandButton2_Click() If Me.TextBox1.Value = "" Then MsgBox "Sie müssen ein Datum eingeben" Exit Sub End If If Me.TextBox2.Value = "" Then MsgBox "Sie müssen eine Anfangszeit eingeben " Exit Sub End If If Me.TextBox3.Value = "" Then M...
17.11.2008 21:37:00
Thread-ID: 1025414
8 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
5
11
5
3
1
11
21
2
7
4
3
3
2
1
8
5
4
21
3
5
2
2
6
4