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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen