Kapitel 2 (VBA)

Zellbearbeitung

Copy and Paste


Der Inhalt der ersten Zeile wird in die dritte Zeile kopiert.

Sub Copy_and_Paste()

s_Datei = "Musterdatei.xls" Windows(s_Datei).Activate

Rows("1:1").Select Selection.Copy Windows(s_Datei).Activate

Range("A3").Select ActiveSheet.Paste Cells.Select Application.CutCopyMode = False

Range("A3").Select

End Sub

Vor dem Kopieren
[image]

Nach dem Kopieren
[image]

Spalten


Die gesamte Spalte A wird ausgewählt

Sub Spaltenbearbeitung()

s_Datei = "Musterdatei.xls" Windows(s_Datei).Activate

Columns("A:A").Select

End Sub

[image]

Zeilen

Die gesamte erste Zeile wird ausgewählt

Sub Zeilenbearbeitung()

s_Datei = "Musterdatei.xls" Windows(s_Datei).Activate

Rows("1:1").Select

End Sub

[image]