Frage zu Makro; Blätter auslesen und unterein. in T kopieren :: Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office

Einloggen, um private Nachrichten zu lesen

Downloads

[Excel 2002] Frage zu Makro; Blätter auslesen und unterein. in T kopieren

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

Autor

Nachricht

timi
User mit gefährlichem Halbwissen

Anmeldedatum: 12.03.2008
Beiträge: 105
Wohnort: 67742 Lauterecken

Verfasst am: 03.06.2008, 22:30

Hallo,
ich bekam vor einiger Zeit eine Anweisung von Schatzi, welche mir in allen Tabellenblättern, die mit "2008-" anfangen, gewisse Zeilen ausließt/kopiert und in aktuelles, geöffnetes Tabellenblatt untereinander einfügt.
Mußte die Anweisung an neue Gegebenheiten anpassen und ich vermute, dass etwas nicht stimmt.

Hier Ergebnis meines Hexenwerks:

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("O5:BM65536").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 C3:BAxx...:
ws.Range("C3:BA" & ws.Range("C65536").End(xlUp).Row).Copy
'...und füge ihn ab Spalte O ein:
Cells(WorksheetFunction.Max(5, 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

Folgendes:

-Das Auslesen der Blätter, die mit "2008-" anfangen, bleibt erhalten!
-Der Bereich, der ausgelesen werden soll, ist C3:BA bis Spaltenende
-Geschrieben wird das Ergebnis in O5:BM bis Spaltenende
-Dieses Makro schreibt jedoch ins aktuelle Tabellenblatt zwischen zwei ausgelesenen Positionen jede Menge Leerzeilen ( über 100!!)

Hätte gerne, das die Ergebnisse in O5:BM bis Spaltenende ohne Leerzeichen untereinander geschrieben werden ( zwecks Durchscrollen ).

Vielleicht findet von Euch jemand den Fehler in der Anweisung?

Gruß Timi

gook
Schlauberger

Anmeldedatum: 25.11.2007
Beiträge: 400
Wohnort: Fridingen an der Donau

Verfasst am: 04.06.2008, 08:14

Hallo!

ALso hab das mal bei mir ausprobier, bei mir geht es. Hast den Code auch im richtigen Tabellenblatt?

Gruß

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5555

Verfasst am: 04.06.2008, 09:36

Hallo!

Ich kann eigentlich auch nichts gravierendes erkennen.
Hier müsste vielleicht noch nachgearbeitet werden:

If IsEmpty(Cells(i, 15)) Then Range(Cells(i, 15), Cells(i, 43)).Delete Shift:=xlShiftUp

Die Spalte BM hat nicht die Nummer 43 sondern die Nummer 65.
Außerdem solltest du testen, ob die Zellen in Spalte O wirklich leer sind, oder einfach nur leer scheinen.

_________________

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

Thema		Autor	Forum	Antworten	Verfasst am
Ähnliche Beiträge
	Zeile kopieren und darunter einfügen	magb	Microsoft Excel Hilfe	4	03.09.2008, 16:34
	Makro das email loescht	stom	Microsoft Outlook Hilfe	0	03.09.2008, 13:20
	Nochmal Frage zu Trendlinie!	AndyRhandy	Microsoft Excel Hilfe	8	02.09.2008, 17:24
	Excel spielt verrückt, Makro funktion...	Frederic	Microsoft Excel Hilfe	3	02.09.2008, 12:59
	Bei Veränderung in Eingabemaske Makro...	trottlbua	Microsoft Excel Hilfe	2	02.09.2008, 10:15

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