import !!! hilfeeeeeeeee

Forumthread: import !!! hilfeeeeeeeee

05.09.2007 12:30:23

minoucha

Hallo,
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

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

AW: import !!! hilfeeeeeeeee

05.09.2007 13:18:00

fcs

AW: import !!! hilfeeeeeeeee

05.09.2007 13:18:00

fcs

Hallo minoucha,
durch eine Überprüfung des Blattnamens in einer Select Case Anweisung kanst du für bestimmte Blattnamen andere Aktione festlegen. Hier beispielhaft in deinen Code eingebaut. Das muss du dann entsprechend anpassen. Das aktivieren der Blätter ist nicht unbedingt notwendig; du kannst den Namen der Blätter auch direkt der Variablen "n" zuweisen.
Gruß
Franz


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
n = Workbooks("Mappe1.xls").Sheets(b).Name
Select Case n
Case "Blattname1"
'Aktionen bei Blattname1
Case "Blattname2", "Blattname3"
'Aktionen bei Blattname2 und 3
Case "Blattname4", "Blattname5"
'Aktionen bei Blattname4 und 5
Case Else
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
End Select
Next b
Call MsgBox("FERTIG ", vbInformation, "Zusamenfügen")
End Sub

Beliebteste Forumthreads (12 Monate)

Forumthread: import !!! hilfeeeeeeeee

1 Beitrag zum Forumthread Beitrag zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread