Makro kopieren in andere Excel Mappe keine doppelt
01.09.2013 17:42:56
Michael
Das Makro kopiert alle Spalten von allen Tabellenblättern.. ich würde aba gerne das ich den Bereich festlegen kann, wo er sich die Daten herholt. Bekomm es net hin das umzuschreiben for each tabelle... usw Sad
Habe schon umgeschrieben, das er sich den Tabellenblattnamen aus einer Zelle holt, das macht er au Prima, aba das andere Sad
Sub uebersicht()
Dim datei As String, pfad As String, Zzeile As Long, i%, suche, AZelle As Range
Dim ziel As Object
Dim Ziel1 As String
Ziel1 = ActiveWorkbook.Sheets("Tabelle1").Cells(1, 2).Value
Application.ScreenUpdating = False ' Bildschirmaktualisierung ausschalten
Set ziel = Workbooks("ziel.xlsm")
Zzeile = ziel.Sheets(Ziel1).Cells(Rows.Count, 5).End(xlUp).Row + 1
For Each tabelle In ThisWorkbook.Worksheets
'28 Zeilen kopieren
For i = 1 To 1000
suche = tabelle.Cells(i, 1).Value
With ziel.Sheets(Ziel1).Columns(1)
Set AZelle = .Find(suche, LookAt:=xlWhole, LookIn:=xlValues)
If AZelle Is Nothing Then
tabelle.Rows(i).Copy Destination:=.Cells(Zzeile, 1)
Zzeile = Zzeile + 1
End If
End With
Next i
DoEvents ' Benutzereingriffe zulassen z.B. Strg + C
Next tabelle
'ziel.Close savechanges:=True ' Datei schliesen
Application.ScreenUpdating = True ' Bildschirmaktualisierung einschalten
End Sub
Michi