Microsoft Office Tutorials and References
In Depth Information
6.2.1 Beispiel »Zellen verschieben«
Durch die Referenzierung erstellen Sie Anwendungen, die schneller
ablaufen und besser zu warten sind:
Referenzierung
Sub Referenzieren()
ThisWorkbook.Worksheets("Tabelle1"). _
Range("A10:A12").Interior.Color = vbYellow
End Sub
Der VBA-Code wirkt zunächst etwas unübersichtlicher. Man geht aber
einfach nach der Objekthierarchie vor: Arbeitsmappe, Tabellenblatt, Zell-
bereich, Eigenschaft. Es ergeben sich meist längere Anweisungen, diese
können aber auf mehrere Zeilen verteilt werden, wie im obigen Beispiel
geschehen.
Schneller, direkter
6.2.1 Beispiel »Zellen verschieben«
Im allerersten Makro dieses Buchs wurde mit einem aufgezeichneten
Makro der Inhalt einer Zelle in eine andere Zelle verschoben:
Sub Makro1()
Range("A1").Select
Selection.Cut
Range("C1").Select
ActiveSheet.Paste
End Sub
Nachteile dieser Vorgehensweise:
Es sind mehrere Schritte erforderlich, bei denen sich Fehler einschlei-
chen können.
Es ist nicht klar, in welcher Arbeitsmappe und auf welchem Tabellen-
blatt die Verschiebung stattfindet.
Die Anwendung ist langsamer.
Mit Referenzierung lösen Sie ein solches Problem eindeutig und schneller:
Eindeutige Lösung
Sub Verschieben()
ThisWorkbook.Worksheets("Tabelle1"). _
Range("A7:A9").Cut Destination:=ThisWorkbook. _
Worksheets("Tabelle1").Range("B7")
End Sub
Search JabSto ::




Custom Search