was ist hier falsch?
Dirk
habe ein Problem und hoffe auf eure Unterstützung :-)
Ziel: Ich möchte die MB-Größe einer Datei verjüngen
Vorgehen: Es sollen fast alle Formeln durch Werte ersetzt werden .... fast alle deswegen, da die Formel im aktuellen Jahr noch benötigt werden!
Mein CODE-Ansatz sieht wie folgt aus:
Option Explicit
Sub FormelnUmwandeln()
Dim ws As Worksheet
Dim letzteSpalte As Long
Dim letzteZeile As Long
Dim x As Long
Dim i As Long
For Each ws In ActiveWorkbook.Worksheets
ws.Select
letzteSpalte = ActiveSheet.Cells(5, Columns.Count).End(xlToLeft).Column
letzteZeile = (Cells(Rows.Count, 1).End(xlUp).Row)
For i = 1 To letzteSpalte
If Cells(5, i) = "2009" Then
x = i
End If
Next
Range(Cells(1, 1), Cells(letzteZeile, x)).Value = Range(Cells(1, 1), Cells(letzteZeile, x)). _
Value
Next ws
End Sub
Nur funktioniert er leider nicht! Er bleibt bei folgendem Teil stehen: Range(Cells(1, 1), Cells(letzteZeile, x)).Value = Range(Cells(1, 1), Cells(letzteZeile, x)).Value
Wenn ich die Variable X durch einen festen Bezug ersetze klappt es!
Was mach ich hier falsch?
Gruß Dirk
Anzeige