Makro um nach inhalten in anderen Excel-Dateien

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

Betrifft: Makro um nach inhalten in anderen Excel-Dateien
von: Peter
Geschrieben am: 18.02.2005 09:49:46
Hallo
Hätte da mal eine Frage :
ist es möglich von einem Excelsheet aus ander excel-dateien nach deren inhalt zu durchsuchen, und wenn der entsprechende inhalt gefunden wurde diesen in die ursprüngliche datei zu schreiben
vielen dank für eure hilfe
Peter

Bild

Betrifft: AW: Makro um nach inhalten in anderen Excel-Dateien
von: musa
Geschrieben am: 18.02.2005 10:28:52
wie kaman exel in vb makro machen.
dankeschün
Bild

Betrifft: Glaskugel
von: Harald E
Geschrieben am: 18.02.2005 10:41:15
Hi Peter,
was dir der türkische Kameltreiber Musa mit Billig-Glaskugel(soll witzig sein)damit sagen will, ist:
a) ja, es ist wohl möglich (nutze den rekorder)
b) und warum sagst Du keinem wie die Dateien aussehen, nach welchen Inhalten gesucht werden soll und wohin diese Daten genau hinkopiert werden sollen.
Der Einzige der deine Datei gesehen hat, bist Du.
Beste Grüße
Harald
Bild

Betrifft: AW: Glaskugel
von: Musa
Geschrieben am: 18.02.2005 11:05:02
Hey, ich habbe auch sehen!
Bild

Betrifft: AW: Makro um nach inhalten in anderen Excel-Dateien
von: Peter
Geschrieben am: 18.02.2005 11:23:40
Geneauere Beschreibung:
Ich habe in einer zelle eine Zahl stehen zb: 20050012
diese zahl kommt in einer anderen Excel-Datei die auf einer anderen Festplatte liegt auch vor.
nun hätte ich gerne das aufgrund dieser zahl in der zelle, das makro die Excel-datei auf der anderen Festplatte sucht und dort eine Zahl in einer bestimmten Zelle kopiert und in das offen Excel-sheet einfügt
mftg
Peter
Bild

Betrifft: AW: Makro um nach inhalten in anderen Excel-Dateien
von: Harald E
Geschrieben am: 18.02.2005 11:42:25
Hallo Peter,
hier Ansatz zum Selberbasteln.

Sub kopieren()
Dim Filename As String
  Filename = "M:\Ordner\NocheinOrdner\Datei" & ActiveCell & ".xls" 'statt activecell ggf. range("a1")
  If Dir(Filename) = "" Then
  MsgBox "Gesuchte Datei wurde nicht gefunden."
  Exit Sub
  Else
    Workbooks.Open Filename
  End If
Range("X2").Copy
Windows("Deine offene Datei.xls").Activate
ActiveCell.Offset(1, 0).PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
     False, Transpose:=True
End Sub

Gruß
Harald
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Makro um nach inhalten in anderen Excel-Dateien "