Herbers Excel/VBA-Archiv
Worksheet Namen in zwei Mappen vergleichen
- Worksheet Namen in zwei Mappen vergleichen von Torsten K vom 03.09.2004 14:12:06
- AW: Worksheet Namen in zwei Mappen vergleichen - von P@ulchen am 03.09.2004 14:14:23
- AW: Worksheet Namen in zwei Mappen vergleichen - von Torsten K am 03.09.2004 14:20:05
- AW: Worksheet Namen in zwei Mappen vergleichen - von P@ulchen am 03.09.2004 14:34:46
- AW: Worksheet Namen in zwei Mappen vergleichen - von P@ulchen am 03.09.2004 14:34:46
- AW: Worksheet Namen in zwei Mappen vergleichen - von Torsten K am 03.09.2004 14:20:05
- AW: Worksheet Namen in zwei Mappen vergleichen - von Dr. am 03.09.2004 14:26:34
 |
Betrifft: Worksheet Namen in zwei Mappen vergleichen
von: Torsten K
Geschrieben am: 03.09.2004 14:12:06
ich möchte die Namen der Arbeitsblätter von zwei gleichzeitig geöffneten Dateien vergleichen.
Hat jemand eine Idee wie der VBA Text dafür aussehen müsste?
Vielen Dank und GRuß
Torsten
 |
Betrifft: AW: Worksheet Namen in zwei Mappen vergleichen von: P@ulchen
Geschrieben am: 03.09.2004 14:14:23
Hi Torsten,
was genau willst Du dabei vergleichen ? Und was soll als Ergebnis des Vergleiches passieren ?
Gruß aus Leipzig
P@ulchen
Das Forum lebt auch von den Rückmeldungen !
| |
Betrifft: AW: Worksheet Namen in zwei Mappen vergleichen von: Torsten K
Geschrieben am: 03.09.2004 14:20:05
den namen des worksheets("diesen Namen") => nicht die technische Nummer <= aus dem ersten Workbook mit dem Namen des zweiten Workbook.
Ich habe zwei Dateien mit gleichen Arbeitsblattnamen, jedoch unterschiedlichen Inhalten. Diese möchte ich miteinander abgleichen. Ich benötige dafür den Namen des Worksheet.
Danke für deine Hilfe, ich hoffe du verstehst mich.
| |
Betrifft: AW: Worksheet Namen in zwei Mappen vergleichen von: P@ulchen
Geschrieben am: 03.09.2004 14:34:46
Hi Torsten,
wenn in beiden Mappen die gleichen Blätter existieren, dann könntest Du zB. so an die Sache rangehen:
Sub Vergleichen()
Dim wksA As Worksheet, wksB As Worksheet
Set wksA = Workbooks("Mappe1").Worksheets("Tabelle1")
Set wksB = Workbooks("Mappe2").Worksheets("Tabelle2")
For i = 1 To 100
If wksA.Cells(i, 1) <> wksB.Cells(i, 1) Then
'blablabla
End If
Next i
End Sub
Code eingefügt mit Syntaxhighlighter 2.5
Gruß aus Leipzig
P@ulchen
Das Forum lebt auch von den Rückmeldungen !
| |
Betrifft: AW: Worksheet Namen in zwei Mappen vergleichen von: Dr.
Geschrieben am: 03.09.2004 14:26:34
Application.Workbooks("Name1").Sheets(1).Name = Application.Workbooks("Name2").Sheets(1).Name
| |