Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

Ausgewählte Excel Zeile nach Word kopieren

Frage Microsoft Microsoft Office

Mitglied: puddlemudd

puddlemudd (Level 1) - Jetzt verbinden

18.08.2011 um 20:43 Uhr, 4043 Aufrufe, 7 Kommentare

Guten Tag,

ich habe ein Modul welches unter Office 2010 markierte Zeilen an definierte Stellen in Word kopieren soll. Unter Office2010 läuft es ganz wunderbar, mit Office2003 kommt die Meldung "Zugriff verweigert". Ich würde mich freuen wenn ihr mir dort weiter helfen könntet.

Option Explicit

Sub getData()
Dim quellSheet As Workbook
Dim ws As Worksheet
Dim zeile As Integer


Dim spalte1 As Variant
Dim spalte2 As Variant
Dim spalte3 As Variant


Set quellSheet = ThisWorkbook
Set ws = ThisWorkbook.Worksheets("Daten")

Dim WordObj As Object
Dim wordDoc As Object

Set WordObj = CreateObject("Word.Application")
Set wordDoc = WordObj.Documents.Open("C:\Users\Name\Desktop\test.doc")
WordObj.Visible = true

zeile = ActiveCell.Row


spalte1 = ws.Cells(zeile, 1).Value
spalte2 = ws.Cells(zeile, 2).Value
spalte3 = ws.Cells(zeile, 3).Value


wordDoc.bookmarks("Textmarke1").Range.Text = spalte1
wordDoc.bookmarks("Textmarke2").Range.Text = spalte2
wordDoc.bookmarks("Textmarke3").Range.Text = spalte3


wordDoc.Save

End Sub


Für jede Hilfe bin ich dankbar.

LG
Mitglied: bastla
18.08.2011 um 21:40 Uhr
Hallo puddlemudd und willkommen im Forum!

Mal abgesehen davon, dass das Objekt "quellSheet " nicht verwendet wird: Falls der Fehler in der Zeile (hier würde ich jetzt einfach die Zeilennummer angeben, wenn Du "Code"-Formatierung verwendet hättest)
Set wordDoc = WordObj.Documents.Open("C:\Users\Name\Desktop\test.doc")
auftritt: Gibt es auf dem Testrechner mit Office2003 den Ordner "C:\Users\Name" und hast Du Schreibrechte (falls der Fehler die Zeile "wordDoc.Save" betrifft)?

Grüße
bastla
Bitte warten ..
Mitglied: puddlemudd
18.08.2011 um 21:52 Uhr
Guten Abend bastla,

danke sehr für die Begrüßung.

Die Pfadangabe ist so schon richtig und Vollzugriff auf das Verzeichnis ist gegeben.

Da ich selber "nur" eine technische Assistentin mit verhältnismässig wenig Erfahrung im Bereich VBA tue ich mich da etwas schwer.

LG
Bitte warten ..
Mitglied: bastla
18.08.2011 um 21:56 Uhr
Hallo puddlemudd!

An welcher Stelle tritt der Fehler auf? Du kannst im VBA-Editor mit der Taste F8 das Script zeilenweise durchlaufen und so feststellen, wo es klemmt ...

Grüße
bastla
Bitte warten ..
Mitglied: puddlemudd
18.08.2011 um 21:59 Uhr
Set WordObj = CreateObject("Word.Application")

Über diese Stelle kommt es nicht hinaus.

LG
K.
Bitte warten ..
Mitglied: bastla
18.08.2011 um 22:05 Uhr
Hallo puddlemuddle!

Diese Zeile sollte aber noch ausgeführt worden sein (ansonsten hätte ich ohnehin nicht wirklich eine Idee, was den Fehler verursacht) - womit wir wieder bei der zu öffnenden Datei wären: Versuch es doch bitte einmal mit einem anderen Speicherort ...

Grüße
bastla
Bitte warten ..
Mitglied: puddlemudd
18.08.2011 um 22:09 Uhr
Hallo bastla,

ein anderer Speicherort führte nicht zu dem gewünschten Erfolg. Ausprobiert habe ich Orte mit garantiertem Vollzugriff, wie zum Beispiel die eigenen Dateien.

Kann es damit zusammen hängen das irgendein Abschnitt darin nicht für Office2003 geeignet ist? Das könnte ich mir noch vorstellen.

LG
Bitte warten ..
Mitglied: bastla
18.08.2011 um 22:21 Uhr
Hallo puddlemudd!

Der Code enthält mE nix, was nicht mit Office2003 funktionieren würde - sorry, aber ich habe leider keine weitere Idee, woran das Öffnen der Word-Datei scheitert ...

Grüße
bastla
Bitte warten ..
Ähnliche Inhalte
Microsoft Office
Excel Transpose Funktion nur in ausgewählten Zeilen anwenden
gelöst Frage von cyber40014Microsoft Office3 Kommentare

Hallo Allerseits, Irgendwie stehe ich gerade auf dem Schlauch. Vielleicht kann mir ja hier jemand weiterhelfen. Vorab: Ich würde ...

Microsoft Office
Excel Tabellenblatt finden und Zeile kopieren
gelöst Frage von Florian86Microsoft Office3 Kommentare

Hallo, ich möchte anhand von Buttons einen Zugang bzw. einen Abgang auf bestimmte Tabellenblätter kopieren. Die Tabellenblätter entsprechen der ...

VB for Applications
VBA - Bereich von Excel nach Word kopieren
gelöst Frage von schwazza89VB for Applications6 Kommentare

Hallo zusammen, ich suche eine Möglichkeit einen Bereich aus Excel in eine Tabelle in Word zu kopieren. Meinen ersten ...

Entwicklung
AutoIT - Listbox ausgewählte zeile abfragen
gelöst Frage von pytreloocEntwicklung5 Kommentare

Hallo zusammen, ich habe folgendes Problem. Und zwar versuche ich in AutoIt eine Listbox so auszulesen dass wenn ich ...

Neue Wissensbeiträge
Internet

EU-DSGVO: WHOIS soll weniger Informationen liefern

Information von sabines vor 6 StundenInternet3 Kommentare

Wegen der europäische Datenschutzgrundverordnung stehen die Prozesse um die Registierunf von Domains auf dem Prüfstand. Sollte die Forderungen umgesetzt ...

Verschlüsselung & Zertifikate

19 Jahre alter Angriff auf TLS funktioniert immer noch

Information von BassFishFox vor 12 StundenVerschlüsselung & Zertifikate1 Kommentar

Interessant zu lesen. Der Bleichenbacher-Angriff gilt unter Kryptographen als Klassiker, trotzdem funktioniert er oft noch. Wie wir herausgefunden haben, ...

Windows 10

Windows 10 Fall Creators Update - Neue Funktion Hyper-V Standardswitch kann ggf. Fehler bei Proxy Configs verursachen

Erfahrungsbericht von rzlbrnft vor 23 StundenWindows 103 Kommentare

Hallo Kollegen, Da wir die Gefahr lieben, haben wir bei einigen Usern nun mittlerweile das Creators Update drauf. Einige ...

Sicherheit

TLS-Zertifikat und privater Schlüssel von Microsofts Dynamics 365 geleakt

Information von Penny.Cilin vor 1 TagSicherheit

Microsoft hat versehentlich das TLS-Zertifikat inklusive dem privaten Schlüssel seiner Business-Anwendung Dynamics 365 geleakt. TLS-Zertifikat und privater Schlüssel von ...

Heiß diskutierte Inhalte
Netzwerkmanagement
Firefox Profieles im Roaming
gelöst Frage von Hendrik2586Netzwerkmanagement17 Kommentare

Hallo liebe Leute. :) Ich hab da ein kleines Problem, welches anscheinend nicht unbekannt ist. Wir nutzen hier in ...

LAN, WAN, Wireless
Von rj11 auf rj45
Frage von jensgebkenLAN, WAN, Wireless17 Kommentare

Hallo Gemeinschaft, könnt ihr mir vielleicht bei der anfertigung eines Kabels helfen - habe ein rj 11 stecker und ...

Netzwerkmanagement
NAS über zwei weitere Ethernet Anschlüsse verbinden
gelöst Frage von Sibelius001Netzwerkmanagement16 Kommentare

Sorry - ich bin hier wahrscheinlich als kompetter IT Trottel unterwegs. Aber eventuell kann mir jemand ganz einfach helfen: ...

LAN, WAN, Wireless
Häufig Probleme beim Anmelden in WLAN
Frage von mabue88LAN, WAN, Wireless15 Kommentare

Hallo zusammen, in einem Netzwerk gibt es relativ häufig (1-2 mal pro Woche) Probleme mit der WLAN-Verbindung. Zunächst mal ...