Tabellenblätter M:M auslesen; in neues Blatt auflisten :: Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office

Einloggen, um private Nachrichten zu lesen

Downloads

[Excel 2002] Tabellenblätter M:M auslesen; in neues Blatt auflisten

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Gehe zu Seite Zurück 1, 2, 3

Autor

Nachricht

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 4850

Verfasst am: 30.04.2008, 12:21

Hallo!

Ungetestet, aber kommentiert:

Code:

Private Sub Worksheet_Activate()
Dim ws As Worksheet, i As Long
'Schalte die automatische Berechnung vorübergehend ab:
Application.Calculation = xlCalculationManual
'Leere den Zielbereich:
Range("O6:AQ65536").Clear
'Durchlaufe alle Blätter
For Each ws In ThisWorkbook.Worksheets
'Fängt der Name richtig an?
If Left(ws.Name, 5) = "2008-" Then
'Kopiere den Bereich J14:ALxx...:
ws.Range("J14:AL" & ws.Range("J65536").End(xlUp).Row).Copy
'...und füge ihn ab Spalte O ein:
Cells(WorksheetFunction.Max(6, Range("O65536").End(xlUp).Row + 1), 15).PasteSpecial Paste:=xlValues
End If
Next ws
'Durchsuche Spalte O nach Leerzeilen und lösche sie:
For i = Range("O65536").End(xlUp).Row To 6 Step -1
If IsEmpty(Cells(i, 15)) Then Range(Cells(i, 15), Cells(i, 43)).Delete Shift:=xlShiftUp
Next i
'Schalte die automatische Berechnung wieder ein:
Application.Calculation = xlCalculationAutomatic
End Sub

Beachte insbesondere die beiden Zeilen, die die Berechnung ein- und ausschalten.
Diese kannst du auch in miriki's Code ausprobieren.
Sie sollten den Code um einiges beschleunigen, wenn du sehr viele Formeln in der Mappe hast.

_________________

Viele Grüße vom Schatzi
------------------------
Dies ist meine Signatur und sie trägt eigentlich nichts zur Lösung deines Problems bei. Sollte sie es dennoch tun, dann bist du definitiv im falschen Forum...

Ein Feedback zum ursprünglichen Problem wäre trotzdem nett!
Windows XP, Office2000, Office2007

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Gehe zu Seite Zurück 1, 2, 3

Thema		Autor	Forum	Antworten	Verfasst am
Ähnliche Beiträge
	Grafik auslesen	dirk_cologne	Microsoft Excel Hilfe	1	04.07.2008, 14:05
	Dumme Frage Wie markiere ich mehrere ...	saschathede	Microsoft Excel Hilfe	1	03.07.2008, 10:56
	Tabellenblätter automatisch auswerten	effect	Microsoft Excel Hilfe	6	25.06.2008, 08:56
	... auf einem DIN A4 Blatt 6 x A6 Fel...	m.scheller	Microsoft Excel Hilfe	6	17.06.2008, 08:16
	Zellenwert=Tab.-Blatt-Name; Benutzen ...	timi	Microsoft Excel Hilfe	15	08.06.2008, 01:06

Gehe zu:

Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum posten
Du kannst Dateien in diesem Forum herunterladen

Powered by phpBB © 2001, 2002 phpBB Group :: FI Theme :: Alle Zeiten sind GMT + 1 Stunde
Deutsche Übersetzung von phpBB.de