Makro funktioniert. Aber bitte nur Werte kopieren
07.04.2016 09:30:25
Sebke
Ich sitze mit meinen kleinen VBA Kenntnissen nun schon viel zu lange an einem Problem, bei dem ihr mir bestimmt schnell helfen könnt.
Ich habe folgenden Code:
Public Sub kopieren()
Dim i As Long
Dim cell As Range
Application.Calculation = xlCalculationManual
i = 9
For Each cell In Tabelle2.Range("W:W")
If Not cell Is Nothing Then
If cell.Value = "x" Then
cell.EntireRow.Copy Destination:=Tabelle4.Rows(i)
i = i + 1
End If
End If
Next cell
Application.Calculation = xlCalculationAutomatic
End Sub
Dieser funktioniert so weit auch. Alle Zeilen, in denen in Spalte W ein "x" vorkommt, werden in das Blatt "Tabelle4" kopiert.
Allerdings werden alle Formeln mit kopiert und viele Zellen bleiben dann leer.
Es stehen zwar die Formeln drin aber nicht die Werte.
Die Tabelle, die als Quelle dient, ist aber auf jeden Fall mit Werten gefüllt.
Meine Frage ist nun also, was am Code geändert werden muss, dass nur die Werte übernommen werden. Die Formeln sind mir nicht wichtig, da diese ja sowieso in der Quelletabelle hinterlegt sind.
Ich würde mich über Hilfe sehr freuen. Vielen Dank schonmal.