könnte mir jemand bei folgendem Code behilflich sein.....
Sub a()
Dim i As Integer
Dim X As Range
Dim Y As Variant
Dim Z As Range
On Error GoTo ende
Set X = Tabelle1.Range("G4:G15").SpecialCells(xlCellTypeFormulas)
ReDim Y(1 To X.Count)
For Each Z In X
i = i + 1
Y(i) = Z.Value
Next
X.Clear
Tabelle1.Range("J3").Resize(UBound(Y), 1) = WorksheetFunction.Transpose(Y)
Exit Sub
ende: MsgBox "Nur leere Zellen!"
End Sub
Also der Code funktioniert soweit wunderbar, nur leider wenn in dem Zell-Bereich "F4:F15" echte Werte stehen.
Der Code müsste so angepasst werden, dass wenn in "F4:F15" Formeln stehen und nur die Werte weiter verarbeitet werden sollen
kann mir da jemand helfen.
Mit freundlichen Grüßen
DU Jürgen