Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1160to1164
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

verschiedenen Tabellenblätter zusammenführen VBA

verschiedenen Tabellenblätter zusammenführen VBA
andreas
Hallo zusammen,
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: verschiedenen Tabellenblätter zusammenführen VBA
08.06.2010 13:02:40
JOWE
Hallo Andreas,
so vllt.?
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

Du mußt die Bereiche natürlich noch anpassen
Gruß
Jochen
AW: verschiedenen Tabellenblätter zusammenführen VBA
08.06.2010 13:26:43
Rudi
Hallo,
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

Gruß
Rudi
Anzeige

310 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige