JA! Zellbereich mit Offset aktivierbar?
07.02.2006 14:44:36
Markus
Hallo Forum!
Fuer alle die es interessiert, hier das Makro das ich aufgrund der Hilfe hier im Forum zusammenbasteln konnte. Ein Dank an Cardexperte an dieser Stelle(auch wenn ich es jetzt anders gemacht habe).
Es scheint mir kein ganz besonders elegantes Makro zu sein aber es funktioniert.
Wer Lust hat mir bessere Loseungen nahe zu legen, nur zu, ich lerne noch...;-)
Ciao,
Markus
Sub SortierenSaldoUebernehmenKopieren()
' SortierenSaldoUebernehmenKopieren Macro
' Macro registrata il 06/02/2006 da MR
Application.ScreenUpdating = False
Range("A10:G600").Select 'Sortierbereich festlegen
Range("G600").Activate 'Sortierkriterium festlegen (nach Spalte G)
Selection.Sort Key1:=Range("G600"), Order1:=xlAscending, Header:=xlGuess _
, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom 'Sortieren
Range("G65536").End(xlUp).Offset(0, 1).Select 'Letzte verwendete Zelle waehlen und Zelle Rechts aktivieren
Selection.Copy ' Kopieren der aktivierten Zelle
Range("H9").Select ' Zelle H9 aktivieren
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False 'Wert einfuegen
Range("G65536").End(xlUp).Offset(0, -6).Select 'Letzte verwendete Zelle waehlen und Zelle links (-6)aktivieren
Selection.Copy 'etc.
Range("A9").Select 'etc.
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
Range("G65536").End(xlUp).Offset(1, -6).Select 'unterhalb der letzten markierten Reihe erste Zelle Spalte A aktivieren
Range(Selection, Selection.Offset(600, 6)).Copy ' Bereich bis Zeile 600 darunter kopieren
Range("A10").Select 'erste Anwender-Zelle aktivieren
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False ' Werte einfuegen
Application.CutCopyMode = False
Range("A1").Select
Application.ScreenUpdating = True
End Sub