Tabellennamen zweier Arbeitsmappen vergleichen

Forumthread: Tabellennamen zweier Arbeitsmappen vergleichen

10.06.2016 00:14:28

Anton

Hallo liebe VBA-Profis,
folgendes Szenario:
Arbeitsmappe1 mit Tabellenblattnamen xyz
Arbeitsmappe2 mit unterschiedlichen Tabellenblattnamen abc, def, xyz
Beide Arbeitsmappen sind geöffnet
Nun soll geprüft werden ob der Blattname xyz von Mappe1 in Mappe2 vorkommt. Wenn ja, soll ein bestimmter Zellbereich von xyz Mappe1 in xyz Mappe2 kopiert werden.
Ich hoffe, dass ist verständlich beschrieben.
Danke für eure Hilfe.
VG Anton

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Tabellennamen zweier Arbeitsmappen vergleichen

10.06.2016 08:50:35

Rudi

Hallo,

Sub aaaa()
dim wks as worksheet
on error resume next
set wks = workbooks("mappe2").sheets("xyz")
ob error goto 0
if not wks is nothing then
'kopieren
end if
End Sub

Gruß
Rudi

AW: Tabellennamen zweier Arbeitsmappen vergleichen

13.06.2016 21:29:14

Anton

Hallo Rudi,
bitte entschuldige die späte Rückmeldung. Hat geklappt, danke!
Ich würde gerne den Vergleich dynamisch gestalten, aber ich komme nicht drauf. D.h. alle Tabellenblätter in mappe1 sollen mit den Tabellenblättern in mappe2 verglichen werden. Bis zum dyn. Kopieren der Zellen bin ich gekommen:

Sub aaaa()
Dim wks As Worksheet
Dim wks1 As Worksheet
Dim i As Integer
On Error Resume Next
Set wks = Workbooks("arbeitsmappe65").Sheets("xyz")
Set wks1 = Workbooks("arbeitsmappe66").Sheets(1)
On Error GoTo 0
If Not wks Is Nothing Then
For i = 3 To wks1.Cells(Rows.Count, 2).End(xlUp).Row
wks1.Range(wks1.Cells(i, 1), wks1.Cells(i, 3)).Copy wks.Range(wks.Cells(i, 1), wks.Cells(i,  _
3))
Next i
End If
End Sub

Danke für Deinen Rat und VG,
Anton

AW: Tabellennamen zweier Arbeitsmappen vergleichen

15.06.2016 20:25:04

Anton


Sub TabellenVerzeichnisErstellenHyperlinks()
Dim wkbMappe As Workbook
Dim wkbZiel As Workbook
Dim intTab As Integer
Dim intZeile As Integer
Dim wks As Worksheet
Set wkbMappe = ThisWorkbook
Set wkbZiel = Workbooks("Mappe1")
For intTab = 1 To wkbMappe.Worksheets.Count
For Each wks In wkbZiel.Worksheets
If wks.Name = wkbMappe.Worksheets(intTab).Name Then
With wkbMappe.Worksheets(intTab)
For intZeile = 3 To .Cells(Rows.Count, 2).End(xlUp).Row
.Range(.Cells(3, 2), .Cells(intZeile, 2)).Copy _
wks.Range(wks.Cells(3, 2), _
wks.Cells(intZeile, 2))
Next intZeile
End With
End If
Next wks
Next intTab
End Sub

AW: Tabellennamen zweier Arbeitsmappen vergleichen

15.06.2016 20:25:53

Anton

Hi Rudi,
bin nun selbst drauf gekommen. Siehe unten.
VG Anton

Beliebteste Forumthreads (12 Monate)

Tabellennamen zweier Arbeitsmappen vergleichen

Forumthread: Tabellennamen zweier Arbeitsmappen vergleichen

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Tabellennamen zweier Arbeitsmappen vergleichen

Forumthread: Tabellennamen zweier Arbeitsmappen vergleichen

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread