Range-Fehler
21.10.2013 14:33:04
Albert
mal eine äußerst dumme Frage...
Ich hab hier einen Range-Term.
Genau gesagt will ich von der Spalte M bis zur nächsten leeren Spalte den Bereich markieren.
Sub testntest()
Dim nSpalte_Z as long
nSpalte_Z = WkSh_Z.Cells(4, Columns.Count).End(xlToLeft).Column
Range("L:L").Select
Selection.Copy
Range("M:" & nSpalte_Z).Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Set WkSh_Z = Nothing
End Sub
Danke euch allen
A.