Next For Schleife
11.05.2006 11:24:45
Helen
ich würde gerne eine Schleife basteln, die folgendes tut: Aus jedem Blatt - mit Ausnahme der Blätter "Maske", "Bilanz" und "Investitionsplan" - in der aktiven Arbeitsmappe (Anzahl und Namen sind unbekannt), soll ein bestimmter Bereich kopiert und in ein Blatt ("Bilanz") in die erste freie Zeile kopiert werden.
Das Programm soll einmal alle Blätter durchgehen und dann stoppen. Irgendwie klappt es nicht und ich weiss nicht, wo der Wurm liegt.
Danke und lg
Helen
Sub AktualisierungBilanz()
Dim neuBlatt As Worksheet
Dim rngSuchzelle As Range
Sheets("Bilanz").Select 'Start auf diesem Blatt
For Each neuBlatt In Worksheets
neuBlatt.Select
If ActiveSheet.Name = "Maske" Then Next neuBlatt 'nächstes Blatt nehmen, da hier nichts kopiert werden soll
If ActiveSheet.Name = "Investitionsplan" Then Next neuBlatt 'dito "Maske"
If ActiveSheet.Name = "Bilanz" Then Exit For 'Ist als Endpunkt gedacht, d.h. wenn das Programm wieder hier ist, soll es aus der Schlaufe aussteigen
Else
ActiveSheet.Range("B33:CY62").Select 'Kopierbereich
Selection.Copy
Sheets("Bilanz").Select
Set rngSuchzelle = ThisWorkbook.Worksheets("Bilanz").Range("B:B"). _
Find("", after:=[B6])
rngSuchzelle.Select
ActiveSheet.Cells(ActiveCell.Row, ActiveCell.Column).Select 'Suche und Aktivierung der ersten freien Zeile
ActiveSheet.Paste Link:=True
Application.CutCopyMode = False
Next neuBlatt
Sheets("Bilanz").Select
Range("B1").Select
End Sub
Anzeige