ich möchte jeweils beim öffnen der Tabelle die Werte in Blatt1 löschen und dann die Werte aus Blatt2,Blatt3 usw. neu in Blatt1 einlesen und nach Spalte 1 sortieren.
habe leider keinen Ansatz dazu und bin deshalb für jede Hilfe dankbar.
Gruß Andreas
Private Sub Workbook_Open()
Dim shMain, shTemp As Object
Set shMain = ThisWorkbook.Sheets("Tabelle1")
For Each shTemp In ThisWorkbook.Sheets
If shTemp.Name = shMain.Name Then
shTemp.Range("A2:J65536").ClearContents
Else
shTemp.Range("A2:J" & shTemp.[J65536].End(xlUp).Row).Copy _
Destination:=shMain.Cells(shMain.[A65536].End(xlUp).Row + 1, 1)
End If
Next
End Sub
Private Sub Workbook_Open()
Dim i As Integer
With Sheets(1)
.Cells(1, 1).CurrentRegion.Resize(.Cells(1, 1).CurrentRegion.Rows.Count - 1).Offset(1). _
ClearContents
End With
For i = 2 To Worksheets.Count
With Worksheets(i)
.Cells(1, 1).CurrentRegion.Resize(.Cells(1, 1).CurrentRegion.Rows.Count - 1).Offset(1). _
Copy _
Sheets(1).Cells(Rows.Count, 1).End(xlUp).Offset(1)
End With
Next
End Sub