Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
680to684
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
680to684
680to684
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Nachfrage...

Nachfrage...
12.10.2005 13:25:12
lottemann
Hallo da draussen,
gehe ich recht in der Annahme, dass eine Anfrage von
vorgestern (Mo) heute keine Chance mehr hat noch
beantwortet zu werden?
Falls dem so ist moechte ich sie gerne hiermit nocheinmal
stellen und bitte Euch ganz herzlich mir ggf. auch mitzuteilen,
falls mein Problem nur mit Ausdauer zu loesen ist.
Schoene Gruesse,
Michael
_____________________________________________________
Hallo Forum,
ich habe eine Aufgabe zu loesen, die entweder erhebliches
Sitzfleisch erfordert oder Eure Hilfe (falls es die entsprechende
Moeglichkeit ueberhaupt gibt...)
In einer Excel-Tabelle befinden sich ca.150 Verweise auf
Word-Dokumente. Ich moechte nun in allen diesen Word-Doks
die gleiche Suchen/Ersetzten-Operation durchfuehren.
Gibt es eine Moeglichkeit das als Makro automatisch aus der
Excel-Tabelle zu machen?
Vielen Dank fuer Eure Hilfe!
Gruss,
Michael

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Nachfrage... Verknüpfung oder Hyperlink?
12.10.2005 14:01:17
Dominic
Hallo Michael,
wie kommen denn die Daten ins Excel? Verknüpfung oder Hyperlink?
Gruß
Dominic
AW: Nachfrage... Verknüpfung oder Hyperlink?
12.10.2005 14:14:31
lottemann
Hallo Dominic,
vielen Dank fuer Deine Antwort.
Meine Excel-Tabelle enthaelt Hyperlinks auf
die entsprechenden Word-Dokumente.
Gruss,
Michael
AW: Nachfrage... Verknüpfung oder Hyperlink?
12.10.2005 14:37:53
Dominic
Hallo Michael,
So ähnlich:

Sub test()
Dim objword As Object
Dim a As Long
For a = 1 To Worksheets(1).Hyperlinks.Count
Worksheets(1).Hyperlinks(a).Follow
Set objword = GetObject(, "Word.Application")
With objword.Selection.Find
.Text = "Alt"
.Replacement.Text = "Neu"
.Find.Execute
End With
objword.ActiveWindow.Close
Next a
Set objword = Nothing
End Sub

Gruß
Dominic
Anzeige
AW: Nachfrage... Verknüpfung oder Hyperlink?
12.10.2005 15:10:21
lottemann
Hallo Dominic,
nochmehr Dank :-)
Leider sind meine VBA-Kenntnisse mehr als lausig :-(
Ich vermute, dass ich "Worksheets(1)" mit dem Namen
meines Blattes ersetzen muss, oder?
Sind dann (ausser "Alt" und "Neu") noch mehr Passagen
an meine Gegebenheiten anzupassen?
Gruss,
Michael
AW: Nachfrage... Verknüpfung oder Hyperlink?
12.10.2005 15:17:37
Dominic
Hallo Michael,
Worksheets(1) = Erstes Blatt. Entweder schreibt Du den Nummer des Blattes oder den Namen in "" ein.
Ansonnsten brauchst Du nicht weiter zu machen, auser Alt und Neu mit den Begriffen zu ersätzen.
Gruß
Dominic

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige