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

word-datei inhalte in excel uebernehmen

Mitglied: hundertwasser

hundertwasser (Level 1) - Jetzt verbinden

02.01.2006, aktualisiert 06.01.2006, 9656 Aufrufe, 11 Kommentare

selektierter bereich eines word-dokuments in geöffnete excel-blatt speichern (von excel aus)

Hallo
ich habe eine excel-arbeitsmappe mit ca. 20 datenblatter

in einzelnen zeilen sin adressen von Worddokumenten hinterlegt.

diese öffne ich per vba aus excel raus ... klappt auch alles nun selektiere ich einen bereich klappt auch.
nun mein Problem : Wie bekomme ich den selektierten bereich in eine definierte zelle.

Dank an alle die mir helfen können
Mitglied: 16568
02.01.2006 um 16:52 Uhr
Was meinst Du mit:
"Wie bekomme ich den selektieren Bereich in eine Zelle"?

Den Zelleninhalt kopieren (also den Link zum File), oder die Wertigkeit?
Sollte nämlich gar kein Problem sein...



Lonesome Walker
Bitte warten ..
Mitglied: hundertwasser
02.01.2006 um 16:53 Uhr
das was in der word datei steht.
Bitte warten ..
Mitglied: 13100
02.01.2006 um 17:50 Uhr
ich nix verstehen, aber vielleicht ein seriendruck der als
worddokument ausgegeben wird?

gib uns mal anständig details, was, wer, wie, wo und warum,
dann kann man dir besser zielgerichtet helfen.

denk daran, wir sehen nich was du siehst. daher ergeben sich,
allein schon, bei der obigen beschreibung, fragen wie:
wo wird selektiert?
was wird selektier?
wie sieht das seleketierte aus?
...

beispieldaten sind auch immer gerne gesehen.

reden wir von einer datenbank-selektion oder von einer
manuellen auswahl, wie man sie von kopiervorgängen her
kennt?
Bitte warten ..
Mitglied: 8644
02.01.2006 um 17:56 Uhr
Hi hundertwasser,

jetzt muß ich aber auch mal meckern!
Das sind doch keine Infos! Normalerweise macht es mir Spaß, Excel-Nüsse zu knacken, aber mit versteinerten Kokosnüssen kann keiner was anfangen!

Psycho
Bitte warten ..
Mitglied: 16568
02.01.2006 um 18:36 Uhr
Sorory, Leutelz, aber ich hab's verstanden.

Er will die Word-Datei-Inhalte in Excel einlesen, und diese dann irgendwie weiterverwenden.

Simpel.
Bastel gerade an einer effizienten Lösung, die nicht an Sonderzeichen scheitert...



Lonesome Walker
Bitte warten ..
Mitglied: 13100
02.01.2006 um 18:46 Uhr
ja, dat haben wir glaub ich alle verstanden, aber möglichkeiten
gibt es viele. bissal konkreter wer schon schön, oder geht's nur
mir so, na ja.
Bitte warten ..
Mitglied: hundertwasser
03.01.2006 um 08:28 Uhr
Danke erstmal für alle Antworten

Lonesome Walker hatt mich verstanden....

ich möchte aus einer aus einer geöffneten excel-arbeitsmappe gestartete Word datei einen Markierten Abschnitt in die geöffnete arbeitsmappe übernehmen.

Excel-arbeitsmappe - blatt1 feld A5 befragung_09_01_2001.doc -> öffnen

worddatei.find.....
if .find then
schreibe .selection in aktive excelmappe feld B5

Na ich wiß nicht ob das jetzt verständlicher ist?

was ich wissen möchte ist wie bekomme ich den selectierten bereich aus der aktiven worddatei in die active exceldatei in Feld xyz der gleichen reihe.

Danke
Bitte warten ..
Mitglied: 16568
03.01.2006 um 10:19 Uhr
Okay, am besten weist Du diesen Wert einer Variablen zu.

Zuerst diese Variable deklarieren

Dim [Variablenname] As [Deklarationstyp]

reicht aber auch nur

Dim [Variablenname]



später weist Du dieser Variable dann den Wert dieser Selektion zu

[Variablenname] = [Selektion]


Und um es ganz rund zu machen, kannst Du auch ein Code-Schnipsel hier posten, mit dem Du die Selektion machst.

Dann schreibe ich es hier ausführlich, und Du mußt nur noch copypaste machen



Lonesome Walker
Bitte warten ..
Mitglied: hundertwasser
03.01.2006 um 10:28 Uhr
hier die function:

Function WordDatei_öffnen(worddatei As String)
Dim objWW As Object

On Error Resume Next
Set objWW = GetObject(, "Word.Application.9")

If Err.Number <> 0 Then
Err.Clear
Set objWW = CreateObject("Word.Application.9")
Else
objWW.Activate
End If

' das gewünschte Dokument öffnen
objWW.Documents.Add worddatei
'alles markieren
objWW.ActiveDocument.Select

'hier nun zu excel


End Function

was muß ich jetzt wo machen damit ich es in die excel-tabelle reinbekomme

wenn ich es mit copy / paste mache dann setzt excel den dateinamen ein weil ich ihn als erstes selektiert habe um die word-datei zu öffnen
Bitte warten ..
Mitglied: hundertwasser
04.01.2006 um 16:45 Uhr
Da ich keine guten oder sagen wir mal für mich machbare lösungswege bekommen habe möchte ich hier eine anregung bekanntgeben.
Hallo leute für mich habe ich es gelöst.
hier mein vorgehen:
Ich Habe eine Tabelle mit vielen Dateinamen (word) in einem verzeichniss
Diese Dateien haben infos die ich haben möchte und diese in eine tabelle schreibe

Dim texte As String hier steht das aus word ausgelese textelement drinn

Public Function dok_teil_suchenundspeichern(ByVal Target As Excel.Range, Cancel As Boolean)
Dim zelle As String
Dim exceldoc As Object
Dim xlMappe As Object
Dim strText As String
Dim arrTmp() As String
Dim arrTmpa() As String
Dim arrTmpe() As String
Dim arrTmpen() As String
Dim inhalt_1 As String
Dim inhalt_2 As String
Dim inhalt_3 As String

Dim i As Long
Dim ak_zeile As Long
Dim MaxRows
Dim NextRows

Set xlMappe = ActiveWorkbook

MaxRows = xlMappe.Worksheets("extrablatt").Cells.SpecialCells(11).Row
NextRows = MaxRows + 1

If Target.Cells.Column = 1 And Target.Text Like "*.doc" Then
dateisuchen (Target.Text)
End If

If texte <> "" Then
Mein problem waren Tabulatoren Chr(9) und Umbrüche Chr(13)

strText = Replace(texte, Chr(9), "")
strText = Replace(strText, Chr(13), "")
xlMappe.Worksheets("extrablatt").Cells(NextRows, 2) =strText
...
...heir kommt noch was aber für dieses unrelewant
...
End If

xlMappe.Worksheets("extrablatt").Cells(NextRows, 1) = Target.Text

End Function

Sub dateisuchen(datei)
Dim i
With Application.FileSearch
.NewSearch
.LookIn = "D:\temp\" 'hier suche ich nach der datei
.SearchSubFolders = True
.Filename = datei
.MatchTextExactly = True
.FileType = msoFileTypeAllFiles
If .Execute() > 0 Then
For i = 1 To .FoundFiles.Count
WordDatei_öffnen (.FoundFiles(i))
Next i
Else
MsgBox "keine Datei gefunden"
End If
End With
End Sub

Function WordDatei_öffnen(worddatei As String)

' hier wird die Datei geöffnet
' Da ich nur einen teil der Worddatei brauche mache ich ein range mit
' anfang -> antwPTW_A
' ende -> antwPTW_E


Dim wordObj As Object
Dim startPos
Dim endPos

On Error Resume Next
Set wordObj = GetObject(, "Word.Application.9")
If Err.Number <> 0 Then
Err.Clear
Set wordObj = CreateObject("Word.Application.9")
Else
wordObj.Activate
End If

' das gewünschte Dokument öffnen
wordObj.Documents.Add worddatei
'Set akwordobj = objWW.ActiveDocument
ActiveDocument.Selection.HomeKey Unit:=wdStory
ActiveDocument.Range
With ActiveDocument.Range.Find
.Text = "antwPTW_A"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
ActiveDocument.Range.Find.Execute
startPos = ActiveDocument.Range.Start
ActiveDocument.Range.Find.ClearFormatting
With ActiveDocument.Range.Find
.Text = "antwPTW_E"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
ActiveDocument.Range.Find.Execute
endPos = ActiveDocument.Range.End

ActiveDocument.Range(startPos, endPos).Find.Execute Replace:=wdReplaceAll
texte = ActiveDocument.Range(startPos, endPos)
texte = Replace(texte, Chr(9), "") ' Tabulatoren raus
texte = Replace(texte, Chr(13), "") ' Umbruche raus
'..... texte = Replace(texte, Chr(xyz), "") ' usw... kann aber auch mit einer schleife realisiert werden
ActiveDocument.Close
End Function

Wenn jemand fragen dazu Hat kann sich melden
Bitte warten ..
Mitglied: Biber
06.01.2006 um 02:40 Uhr
So, hundertwasser,

jetzt, wo ich Deine Lösung gelesen habe, verstehe ich auch endlich Deine Frage..
Für die Lösung gebe ich Dir auch 5 Punkte (obwohl Du das TAB-und-CR-Ersetzen unnötigerweise doppelt machst, aber was solls bei den schnellen Prozessoren heutzutage *gg).

Ich hoffe aber, dass Du jetzt -mit dem nötigen Abstand und einer funktionierenden Lösung in der Tasche- zugeben musst, dass niemand ohne ausgeprägte mediale Fähigkeiten von der Frage oben auf einen Lösungsvorschlag wie unten hätte kommen können.

Finde es auf jedem Fall nett, nein, ausgesprochen nett, Deine Lösung zu veröffentlichen. Danke.
Biber

P.S. Ich verschiebe Deinen Beitrag mal in den Bereich Betriebssysteme > Windows > Office > Excel
Bitte warten ..
Ähnliche Inhalte
VB for Applications

Inhalt einer Excel Datei mit VBS Script ersetze, ändern

gelöst Frage von ManriqueVB for Applications10 Kommentare

Hallo an alle, die Aufgabe ist: in einer Excel Datei stehen in der ersten Zeile (Spaltenbeschriftung) die Werte betragnach ...

Microsoft Office

Excel 2013 - Daten aus Word Datei ohne Trennzeichen importieren

Frage von AtompiltzMicrosoft Office4 Kommentare

Hallo zusammen, ich möchte die Adressdaten aus einer Word-Datei in Excel importieren. Jede Adresse ist in einer Zeile geschrieben, ...

Batch & Shell

Powershell Excel bestimmten Inhalt löschen

gelöst Frage von TastuserBatch & Shell4 Kommentare

Hallo! Ich habe eine Excel-Tabelle (Tabelle1), die in Zellen B3 bis B15 und D3 bis D15 ein ü enthält. ...

Microsoft Office

Excel Worksheet in Word

gelöst Frage von 118080Microsoft Office

Abend Zusammen :-) Wir haben ein Word Dokument und darin ein Excel Sheet verknüpft. Ich habe die Verknüpfung in ...

Neue Wissensbeiträge
Windows 10

Windows 10 V1809: Rollout ist gestartet - kommt per Windows Update

Information von kgborn vor 18 StundenWindows 101 Kommentar

Eine kurze Information für die Admins, die Windows 10 im Programm haben. Microsoft hat die letzte Baustelle (die Inkompatibilität ...

Sicherheit

Heise Beitrag Passwort-Sammlung mit 773 Millionen Online-Konten im Netz aufgetaucht

Information von Penny.Cilin vor 20 StundenSicherheit5 Kommentare

Auf Heise Online ist folgender Beitrag veröffentlicht worden: Heise Beitrag passwörter geleakt Ich bin mir jetzt nicht ganz sicher, ...

Microsoft Office
TEAMS - Skype for business
Tipp von Nebellicht vor 20 StundenMicrosoft Office

Hallo, ms ersetzt Skype for business durch TEAMS. Also, nicht wundern wenn mit der OFFICE365 Umgebung kein Skype for ...

Windows 10

Windows 10: Cortana und die Suche gehen bald wieder eigene Wege

Information von Frank vor 1 TagWindows 102 Kommentare

Microsoft hat einen neuen Insider Build von Windows 10 veröffentlicht (Fast Ring, Version 18317), wo die digitale Assistentin "Cortana" ...

Heiß diskutierte Inhalte
Windows Server
Uhren gehen immer wieder falsch
Frage von killtecWindows Server23 Kommentare

Hallo, ich habe folgende Konstellation: 1. Physischer DC Div. Virtuelle DC's auf Hyper-V Servern Die Hyper-V-Server, der Physische DC ...

Switche und Hubs
Medienkonverter mit 12 oder 24 Ports gesucht
Frage von wmuellerSwitche und Hubs22 Kommentare

Guten Morgen, ich bin auf der Suche nach einem größeren Medienkonverter, der "stumpf" 1:1 die Ports auf über ein ...

Windows Server
Client in die Domäne einbinden - Allgemeine Frage dazu
gelöst Frage von RalphTWindows Server19 Kommentare

Moin, ich habe 2 DCs in einer Hauptstelle und 2 DCs in einer Nebenstelle. Ich bringe in der Hauptstelle ...

Debian
OpenSSH Login mit Public Key schlägt fehl, mit Passwort funktioniert
gelöst Frage von DKowalkeDebian19 Kommentare

Hallo zusammen, ich hatte hier schon nach einer Anleitung für einen SFTP Server mit Linux gefragt, habe dort auch ...