also ich habe eine Tabelle1. Aus dieser Tabelle 1 kopiere ich via makro den auschnitt von H3 bis P6 in dijenige tabelle
welche ich in tabelle 1 in der zelle a3 angegeben habe.
ist in einer zelle die ich kopieren möchte eine formel und kein text wird die zelle in der tabelle in welche die kopie kommt nicht leer.
nun möchte ich in dieser Tabelle zusätzlich mit der anweisung
For Each cell In ActiveSheet.UsedRange
If cell.Value = "" And Len(cell) = 0 Then cell.ClearContents
Next
die zellen leeren
leider funktioniert dies nicht
ich hoffe jemand kann mir helfen.
hier das ganze Makro.
Sub kopieren3()
'
' kopieren3 Makro
' Makro am 08.04.2003 von Remo Wyss aufgezeichnet
'
'
Range("H3").Select
Application.CutCopyMode = False
Selection.Copy
Range("A3").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("A4").Select
Dim rg As Range
Dim Ziel As Range
x = Range("A3")
Set rg = Sheets("K" & x).Range("A65536").End(xlUp).Offset(1, 0)
Set Ziel = Range(rg, rg.Offset(3, 8))
Range("H3:P6").Copy
For Each cell In ActiveSheet.UsedRange
If cell.Value = "" And Len(cell) = 0 Then cell.ClearContents
Next
Ziel.PasteSpecial xlPasteValues
Range("B11:E11").Select
ActiveCell.FormulaR1C1 = ""
Range("B12:E12").Select
ActiveCell.FormulaR1C1 = ""
Range("B13:E13").Select
ActiveCell.FormulaR1C1 = ""
Range("B14:E14").Select
ActiveCell.FormulaR1C1 = ""
Range("C16").Select
ActiveCell.FormulaR1C1 = ""
Range("C18").Select
ActiveCell.FormulaR1C1 = ""
Range("C19").Select
ActiveCell.FormulaR1C1 = ""
Range("C2").Select
End Sub