Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1496to1500
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
Inhaltsverzeichnis

Tabellennamen zweier Arbeitsmappen vergleichen

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

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

Betreff
Datum
Anwender
Anzeige
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

Anzeige
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

Anzeige
AW: Tabellennamen zweier Arbeitsmappen vergleichen
15.06.2016 20:25:53
Anton
Hi Rudi,
bin nun selbst drauf gekommen. Siehe unten.
VG Anton

306 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige