ich hänge gerade an einem Makro und komme nicht weiter.
1. Wird mir durch ein Makro aus verschiedenen Exceltabellen einige Arbeitsblätter herauskopiert und in die aktuelle Arbeitsmappe eingelesen.
Diese Worksheets werden dann wie folgt benannt "Personendaten" "Vertragsdaten" "Personendaten (2)" "Vertragsdaten (2)" und fortlaufend.
Jetzt möchte ich mit meinem Skript nur die Worksheets ansprechen die Personendaten heißen und diese in Tabelle 1 kopieren. Hier der Code
Dim Sheet As Worksheet
Dim Index As Long
Index = ActiveSheet.Index
' Stammdatenzusammenfuegen Makro
'Tabellenblatt Export wird mit Ãberschrift (A1) kopiert
Application.DisplayAlerts = False
Sheets("Personendaten").Select
Range("A1").Select
ActiveSheet.Range("A:BK").Select
Selection.Copy
Sheets("Tabelle1").Select
Range("A1").Select
ActiveSheet.Paste
Sheets("Personendaten").Delete
Sheets(ActiveSheet.Index + 1).Select
Application.DisplayAlerts = True
'Jedes anderes Tabellenblatt wird mit beginnend A2 kopiert
For Each Sheet In ActiveWorkbook.Worksheets
If Sheet.Name "Tabelle1" And Sheet.Name = "Personendaten" Then
Application.DisplayAlerts = False
Application.CutCopyMode = False
Rows("2:2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Tabelle1").Select
Range("A1").Select
Selection.End(xlDown).Offset(1).Select
ActiveSheet.Paste
Sheets(ActiveSheet.Index + 1).Select
If Index = Worksheets.Count Then Index = 0
ActiveSheet.Delete
End If
Next Sheet
End Sub
Gerne möchte ich den folgenden Teil If Sheet.Name "Tabelle1" And Sheet.Name = "Personendaten" Then dazu ändern, dass alle Worksheets mit dem Teilnamen Personendaten und der Nummer N angesprochen werden.Wie schaffe ich das?
Ich hoffe Ihr versteht mein Problem. :)