zellen in verschiedenen dateien vergleichen



Excel-Version: 8.0 (Office 97)
nach unten

Betrifft: zellen in verschiedenen dateien vergleichen
von: michel
Geschrieben am: 16.07.2002 - 16:00:39

hallo gemeinde,

wie kann ich die value's verschiedener zellen in verschiedenen dateien vergleichen? mir fehlt die korrekte syntax dazu...

also datei1.cells..value=datei2.cells..

michel


nach oben   nach unten

Re: zellen in verschiedenen dateien vergleichen
von: Sam
Geschrieben am: 16.07.2002 - 16:06:28

Hi,

du hast fast recht. Du musst noch zusätzlich den Registernamen angeben!
z.B.


Sub Vergleich()
 Dim datei1 As Workbook, datei2 As Workbook
 Set datei1 = Workbooks.Open("C:\(daten)\Test1.xls")
 Set datei2 = Workbooks.Open("C:\(daten)\Test2.xls")
 
 If datei1.Sheets("Tabelle1").Range("A1") = datei2.Sheets("Tabelle1").Range("A2") Then
   '...
 End If
 
End Sub

Sam
nach oben   nach unten

Danke, aber?
von: michel
Geschrieben am: 16.07.2002 - 16:10:56

Hallo Sam, danke schön, da hab ich den wald vor lauter bäumen nicht gesehen....vielleicht kannst Du mir mit noch einem Problem weiterhelfen:

In einer der Dateien steht in Spalte 1 eine fortlaufende Nummer, die über eine wenn-dann abfrage eingefügt wird, wenn in dieser Zeile was steht. Diesen Wert will ich mit dem Dateinamen einer offenen Datei vergleichen.
Das mit ActiveWorkbook.Name ist kein Problem, allerdings haut der Vergleich mit cells (i,1).Value nicht hin, da das value als solches ja nicht da ist.....du verstehst??

michel

nach oben   nach unten

Re: Danke, aber?
von: sam
Geschrieben am: 16.07.2002 - 16:20:30

hmm...
leider versteh ich es nicht ganz. Den Vergleich ActiveWorkbook.Name und den Zellenbereich sollte man so ohne weiteres vergleichen können.

Sam


nach oben   nach unten

Re: Danke, aber?
von: michel
Geschrieben am: 16.07.2002 - 16:22:53

also: ich vergleiche left(activeworkbook.name,5), was z.B. 00012 ergibt. Der "Value" der zu vergleichenden Zelle ist aber ja eine Wenn-Dann-Abfrage, weshalb er ihn nicht als den tatsächlichen Inhalt 00012 erkennt....oder bin ich zu doof???

michel

nach oben   nach unten

Val-Funktion
von: Sam
Geschrieben am: 16.07.2002 - 16:46:45

Hi,

ich fürchte ich bin zu doof :-)

ich kann mir vorstellen, wenn du ein Liste mit fortlaufender Zahl hast (1,2,3,4,...) und vergleichst eine Zeichenkette (0001,0002,0003,...)

Nimm mal die Val-Funktion

val(left(activeworkbook.name,5)) = val(cells(1,i))
bzw. mit führende Nullen
left(activeworkbook.name,5) = format(cells(1,i),"0000")

vielleicht hilfts!
Sam

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "zellen in verschiedenen dateien vergleichen"