Forums Neueste Beiträge
 

Zellenbereich in ein anderes Blatt kopieren - Referenzieren klappt nicht, XL2003

15/05/2008 - 17:07 von Hein | Report spam
Hallo,

ich übe mich mal wieder in Excel VBA ein und möchte aus einer ToDo -
Liste die erledigten Projekte in ein Archivblatt verschieben. Klappt
eigentlich, aber

Das Referenzieren der Tabellenblàtter klappt nicht, z.B.:

Workbooks("Mappe3").Worksheets("Liste").Cells(2, 2).Select wird mit
Fehler 9: Index ausserhalb des gültigen Bereichs abgebrochen. die
Namen der Mappe und des Blattes habe ich überprüft die sind richt
geschrieben.

Was mache ich da falsch? Ich möchte eigentlich nur sicherstellen, dass
mit dem richtigen Blatt begonnen wird.

vielen Dan k und viele Grüße

Hein


Sub Projekt_markieren_kopieren_01()
'********************************
'Ein Projekt sind alle Zeilen zwischen den Zeilen vom Level 3
'einschließlich erster Zeile mit 3 bis zur ein Zeile oberhalb der
nàchsten 3
'Kriterien für Projekt Level und erledigt noch als Konstanten
definieren


Dim intRowStart As Integer 'Zeilenzàhler fertiges Projekt
Dim intRowEnde As Integer 'Zeilenzàhler für letzte Zeile Projekt

'Startpunkt festlegen
'Workbooks("Mappe3").Worksheets("Liste").Cells(2, 2).Select 'Fehler 9:
Index ausserhalb des gültigen Bereichs - warum?
Worksheets("Liste").Activate
Range("b2").Select

'nach einem fertigen Projekt suchen
'Spalte B = Level 3 und Spalte E = x
intRowStart = 2 'in Zeile 2 beginnen
Do Until Cells(intRowStart, 2) = "3" And Cells(intRowStart, 5) = "x"
intRowStart = intRowStart + 1
Loop

'nach dem nàchsten Projekt suchen
intRowEnde = intRowStart + 1 'mit der Zeile des erledigten Projekts
beginnen
Do Until Cells(intRowEnde, 2) = "3"
intRowEnde = intRowEnde + 1
Loop

'erledigtes Projekt markieren und kopieren
Rows(intRowStart & ":" & intRowEnde - 1).Copy _

Destination:=Worksheets("Archiv").Range("A65536").End(xlUp).Offset(1,
0)

'markierte Zeilen löschen
Rows(intRowStart & ":" & intRowEnde - 1).Delete Shift:=xlUp

End Sub
 

Lesen sie die antworten

#1 Robert Gelbmann
15/05/2008 - 17:30 | Warnen spam
Hallo Hein!

"Hein" schrieb ...
[...]
Das Referenzieren der Tabellenblàtter klappt nicht, z.B.:

Workbooks("Mappe3").Worksheets("Liste").Cells(2, 2).Select wird mit
Fehler 9: Index ausserhalb des gültigen Bereichs abgebrochen. die
Namen der Mappe und des Blattes habe ich überprüft die sind richt
geschrieben.
[...]



Du kannst Zellen - wie auch manuell - nur dann markieren, wenn sie auf
dem aktiven (!) Blatt liegen!

Also entweder vorher die korrekte Arbeitsmappe aktivieren und das
korreke Blatt markieren (Select) oder aber auf Select verzichten und
gleich mit der bewussten Zelle machen was du tatsàchlich willst.

So nebenbei:
Wofür markierst du die Zelle im vorliegenden Beispiel überhaupt?

In der Hoffnung geholfen zu haben, verbleibe ich mit einem leisen


Servus aus Wien,
-Robert Gelbmann-

The world is quiet here.

Ähnliche fragen