Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 12:38:40
Formeländerung durch Wechsel von Excel 2021 auf 2019
24.04.2024 12:31:18
Excel - Sverweis mit Wenn-Abfrage kombinieren
24.04.2024 12:16:26
Name von aktuellem VBA-Modul ausgeben
24.04.2024 12:07:15
Werte einer Liste vergleichen und markieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
332to336
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
332to336
332to336
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Word kann nicht schreiben

Word kann nicht schreiben
02.11.2003 20:34:33
Mikis Gramsirtakis
Moins, Ihr Lieben,

man nennt mich auch den "Wanderer zwischen den Welten" !
Ich schätze Excel und VBA über alles, bin aber zu dem
Schluss gekommen, dass das Bearbeiten von Texten besser
mit Word erfolgen sollte.
Damit Excel trotzdem zum Zuge kommt, wird eine Excel-Datei nach
folgendem Beispiel eingelesen:

**WORD-VBA**
Set xlApp = GetObject("c:\adressen.xls")
SuchBegriffListe.Clear '<=Listbox in UserForm
With xlApp
Set Bereich = .worksheets(1).[A1].CurrentRegion
For i = 1 To Bereich.Rows.Count
SuchBegriffListe.AddItem .worksheets(1).Cells(i, 1).Value
Next
SuchBegriffListe.Value = SuchBegriffListe.List(0)
End With

Wenn in der Listbox ein Eintrag ausgewählt wird, erfolgt
der Import der entsprechenden Daten aus der Excel_Datei.
Ich frage mich, wie ich Daten von Word-VBA in die Excel-
Datei zurückschreiben kann und hoffe, dass ich nicht
Off-Topic bin ;)
TiA
M.G.

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Word kann nicht schreiben
02.11.2003 21:44:26
K.Rola
Hallo,

welche Daten sollen denn zurückgeschrieben werden? Das kann ich
aus deiner Beschreibung nicht erkennen.

Gruß K.Rola
AW: Word kann nicht schreiben
02.11.2003 22:48:53
Zaphod
Das Word-Teil lädt ne Adressendatenbank. Diese soll editierbar sein,
Beispiel:
in Word VBA: worksheets(1).Cells(3, 1).Value="..." soll eigentlich
eine Wert in die XL-Datei schreiben. Tut's aber nicht.
AW: Word kann nicht schreiben
03.11.2003 00:14:21
K.Rola
Hallo,

eigentlich müsste ja vorher geprüft werden, ob schon eine Excelinstanz
geöffnet ist, aber das kannst du ja in der Hilfe unter GetObject nachlesen.
Mal ein Beispiel, wie es geht:

Option Explicit
Dim xlApp As Object

Private Sub cmdOK_Click()
xlApp.Worksheets(1).[A1] = 1234
End Sub



Private Sub UserForm_Click()
Dim arr As Variant
ListBox1.Clear
arr = xlApp.Worksheets(1).[A1].CurrentRegion
ListBox1.List = arr
ListBox1.Value = ListBox1.List(0)
End Sub



Private Sub UserForm_Initialize()
Set xlApp = GetObject("c:\adressen.xls")
xlApp.Application.Visible = True
xlApp.Parent.Windows(1).Visible = True
End Sub



Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Set xlApp = Nothing
End Sub


Gruß K.Rola
Anzeige
AW: Word kann nicht schreiben
03.11.2003 22:28:02
Zaphod
Danke für die Tipps!

Kann es sein, das man Daten auslesen kann, ohne Excel sichtbar zu öffnen,
dass aber zum Schreiben, die Datei mit und über EXL geöffnet sein muss?

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige