Copy Befehl wird nicht ausgeführt
Sascha
ich habe ein "wahrscheinlich" kleines Problem. aber mein Code, (unten angefügt), macht bei _
diesen Zeilen:
zei = .Range("W37").End(xlUp).Row
If zei >= 6 Then .Range("W" & zei).Copy
Worksheets("Hilf").Range("B4").PasteSpecial xlPasteValues
leider keine Kopie der letzten beschriebenen Zelle im Bereich W6:W36.
Ich kopiere im oberen Teil des Codes ein ganzes Tabellenblatt, danach soll es nur diese bestimmte Zelle kopieren und im Blatt Hilf einfügen, aber momentan fügt es den vorher kopierten Teil in das Blatt "Hilf".
Kann mir jemand sagen was am folgenden Code falsch sein könnte?
Sub Total1()
Dim zei As Long
Worksheets.Add After:=Worksheets(Worksheets.Count)
ActiveSheet.Name = "Total1"
With Worksheets("Total1")
ActiveWindow.DisplayZeros = False
Worksheets("Total").UsedRange.Copy
.Range("A1").PasteSpecial xlPasteValues
zei = .Range("W37").End(xlUp).Row
If zei >= 6 Then .Range("W" & zei).Copy
Worksheets("Hilf").Range("B4").PasteSpecial xlPasteValues
End With
Sheets("Hilf").Select
Range("A5").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Total1").Select
Range("W39").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Hilf").Range("B5:B6").Copy
Sheets("Total1").Range("W37:W38").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Total").Select
Cells.Select
Selection.Copy
Sheets("Total1").Select
Cells.Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End Sub
Liebe Grüsse
Sascha