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

Frage Microsoft Microsoft Office

Mitglied: hundertwasser

hundertwasser (Level 1) - Jetzt verbinden

02.01.2006, aktualisiert 06.01.2006, 9608 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
Microsoft Office
Excel überschrift aus anderer Tabelle übernehmen
gelöst Frage von JnkeeseMicrosoft Office2 Kommentare

Hallo, ich habe ausnahmsweise mal ein Excel Problem / bzw. eine Excel Frage. Ich möchte eine "Intelligente Teilnehmerliste" bauen ...

Microsoft Office
Zellinhalt in Excel-Kopfzeile übernehmen
gelöst Frage von KyrinjaMicrosoft Office2 Kommentare

Guten Tag, stehe vor dem Problem, das ich Excellisten drucken Soll Welche folgendermaßen aufgebaut sind: Seite Lager von bis ...

Microsoft Office
Excel Daten aus Registerblatt übernehmen
Frage von BackgammonMicrosoft Office1 Kommentar

Hallo, habe wiedereinmal eine Frage zu Excel: Ich lege eine Datei mit 52 Registerblättern an. Ich muss jeweils Daten ...

Microsoft Office
Schnellbausteine aus Word 2007 nach Word 2016 übernehmen
gelöst Frage von TiTuxMicrosoft Office2 Kommentare

Hallo Forum, derzeit arbeite ich noch unter Word 2007 und bin jetzt auf Word 2016 gewechselt. Nun habe ich ...

Neue Wissensbeiträge
Router & Routing

Lets Encrypt kommt auf die FritzBox

Information von bitcoin vor 45 MinutenRouter & Routing

In der neuesten Labor-Version der FB7490 integriert AVM unter anderem einen Let's Encrypt Client für Zugriffe auf das Webinterface ...

Internet

Was nützt HTTPS, wenn es auch von Phishing Web-Seiten genutzt wird

Information von Penny.Cilin vor 3 TagenInternet17 Kommentare

HTTPS richtig einschätzen Ob man eine Webseite via HTTPS aufruft, zeigt ein Schloss neben der Adresse im Webbrowser an. ...

Webbrowser

Bugfix für Firefox Quantum released - Installation erfolgt teilweise nicht automatisch!

Erfahrungsbericht von Volchy vor 4 TagenWebbrowser8 Kommentare

Hallo zusammen, gem. dem Artike von heise online wurde mit VersionFirefox 57.0.1 sicherheitsrelevante Bugs behoben. Entgegen der aktuellen Veröffentlichung ...

Sicherheit

Teamviewer Sessions können gekapert werden - Update tw. verfügbar

Information von sabines vor 4 TagenSicherheit6 Kommentare

In bestimmten Konstellationen können Teamviewer Sessions gekapert werden, wahrscheinlich aber ein recht unwahrscheinliches Szenario. Da der Teamviewer gerne für ...

Heiß diskutierte Inhalte
Vmware
Installation Windows 10 VMware
Frage von Ghost108Vmware17 Kommentare

Hallo zusammen, versuche gerade mit Hilfe des vshpere clients eine virtuelle Windows 10 maschine aufzusetzen. 1. virtuelle Maschine erstellt ...

Exchange Server
SBS 2011 E-Mails können gesendet werden, aber nicht von extern empfangen
Frage von andreas1234Exchange Server14 Kommentare

Hallo Community, ich habe das Problem, dass seit knapp zwei Wochen die E-Mails von meinem SBS 2011 einwandfrei gesendet ...

Voice over IP
Telefonstörung - Ortsrufnummern kein Verbindungsaufbau
Frage von Windows10GegnerVoice over IP10 Kommentare

Hallo, sowohl bei uns als auch beim Opa ist es über VoIP nicht möglich Ortsrufnummern anzurufen. Es kommt nach ...

Windows Server
Server 2012 über Eingabeaufforderung devmgmt.msc geht nicht
gelöst Frage von achim222Windows Server9 Kommentare

Hallo, ich habe hier einen Server 2012 der im Reparaturmodus startet. Es liegt an einem falschen VirtIO Treiber für ...