import !!! hilfeeeeeeeee
05.09.2007 12:30:23
minoucha
Ich möchte von DAtei 2 daten zu Datei 1 importieren.bei beiden dateien sind die meisten blätter gleich aufgebaut, und haben die gleichen namen, außer 5 blätter . diese makro funktioniert herrvoragend .
diese 5 blätter muss ich glaube ich einzelnen definieren in diese makro.
Wie kann ich in diese makro noch einfügen dass alle blätter importiert werden außer die 5 blätter .und dann die 5 blätter einzelnen definierendamit die auch importiert werden können .
Option Explicit
Sub Zusammenfügen()
Dim b As Variant
Dim k As Variant
Dim i As Variant
Dim n As Variant
Dim wks As Worksheet
For b = 1 To Workbooks("Mappe1.xls").Sheets.Count
Workbooks("Mappe1.xls").Sheets(b).Activate
n = Workbooks("Mappe1.xls").ActiveSheet.Name
For Each wks In Workbooks("Mappe2.xls").Worksheets
If wks.Name = n Then
Workbooks("Mappe1.xls").Sheets(n).Range("B5:F50").Value = _
Workbooks("Mappe2.xls").Sheets(n).Range("B5:F50").Value
Else
End If
Next
Next b
Call MsgBox("FERTIG ", vbInformation, "Zusamenfügen")
End Sub
Danke