|
Hallo
Kenntnisstand: Blutiger Anfänger im Programmieren von Makros
Problem: In einer Excel-Datei mit vielen gleichstrukturierten Blättern muss ich auf jedem Blatt Folgendes tun: Die Inhalte einer markierte Zeile (Zustand vor Makroaufruf), die auf Formeln basiert, sollen in die Zellen zwei Zeilen höher kopiert werden, ohne dass die Formeln übertragen werden.
Soweit so gut. Beim Aufzeichnen des Makros wird aber statt des "um 2 Zeilen höher gehen" die absolute Zieladresse im Skript notiert. Meine ersten Versuche, das im Skript händisch zu verbessern, sind gescheitert. Dies liegt daran, dass ich nicht weiß, wie der Cell, Range und andere Befehle syntaktisch zu handhaben sind. Im folgeden Versuch scheitert der Kompiler an der Zeile " Range(a).Select "
Sub GÜ()
'
' GÜ Makro
' Makro am 12.09.2011 von f.scholl aufgezeichnet
'
'
Dim z As Integer
Dim s As Integer
Dim a As String
Selection.Copy
z = ActiveCell.Row - 2
s = ActiveCell.Column
a = Str(s) & ":" & Str(z)
Range(a).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Danke für Hilfe!
Gruß, FScholl
|