Excel-VBA - Formeln Einfügen (Bereich) kopieren Sie dann>nur Werte einfügen

Möchte ich ein makro kopiert, die Formeln in den Bereich F6:Q2500. Nach dem das makro eingefügt, werden die Formeln sollte es copy>nur Werte einfügen.

[...]
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic

Range("Q6").Formula = "=IF(INDIRECT(""A""&ROW())="""","""",CONCATENATE(INDIRECT(""A""&ROW()),""/"",INDIRECT(""B""&ROW()),""/"",INDIRECT(""E""&ROW()),""/"",INDIRECT(""P""&ROW())))"
Range("Q6").Copy
Range("Q6:Q2500").PasteSpecial (xlPasteAll)
Range("Q6:Q2500").PasteSpecial xlPasteValues

End Sub

Wenn ich dieses makro eingefügt, werden die Formeln wie gewünscht. Aber wenn ich versuche nur Werte einfügen bekomme ich den ersten Wert wiederholt, bis Q2500. Ich denke, es ist, weil die Formel-Aktualisierung ist langsam.

Sah ich einen anderen thread auf den Stapel, aber die Antwort war, wandle die Formel in einen VBA-Funktion. Ich weiß nicht, wie zu konvertieren dieser Formel.

Kann mir jemand helfen, dieses problem?

Grüße

Mögliche Duplikate von "Kopieren" und Wiederholen Sie die Code Bricht Nach Zeile 488 finden Sie diese Frage und anwser
Danke für den link. Ich steckte eine Kraft-Berechnung-Linie (zweite Antwort), aber es funktioniert nicht für mich... Auch ich weiß nicht, wie konvertiert man diese Formel in VBA (erste Antwort).
Ich poste die Formel die Umwandlung in eine minute
Siehe meine Antwort für die Konvertierung

InformationsquelleAutor Bluesector | 2016-08-11

Die Sie konvertieren, bevor die Berechnung abgeschlossen ist, die das problem verursacht.

Sind Sie jedoch zunächst die überführung der Formula zu den Cell und dann kopieren der Value in die Cell. Dies kann verkürzt werden zu lassen VBA berechnen Sie die Value und legen Sie es in die Cell. Seine empfohlen, nicht zu nutzen .Copy und .Paste wenn es vermieden werden kann.

Siehe Beispiel:

Sub JoinStrings()
    Dim cell As Range
    Dim strJoin As String

    With Worksheets("Sheet1")
        For Each cell In .Range("Q6:Q2500")
            If .Range(cell.Offset(0, -16).Value) <> "" Then
                strJoin = .Range(cell.Offset(0, -16).Value).Value & "/"
                strJoin = strJoin & .Range(cell.Offset(0, -15).Value).Value & "/"
                strJoin = strJoin & .Range(cell.Offset(0, -12).Value).Value & "/"
                strJoin = strJoin & .Range(cell.Offset(0, -1).Value).Value
                cell.Value = strJoin
            End If
        Next
    End With
End Sub

InformationsquelleAutor DragonSamu

1

Fügen Sie den Inhalt der Q6 zweimal anstelle von kopieren der Werte in der gesamten Spalte.
```
Range("Q6").Formula = "=IF(INDIRECT(""A""&ROW())="""","""",CONCATENATE(INDIRECT(""A""&ROW()),""/"",INDIRECT(""B""&ROW()),""/"",INDIRECT(""E""&ROW()),""/"",INDIRECT(""P""&ROW())))"
Range("Q6").Copy
Range("Q6:Q2500").PasteSpecial (xlPasteAll)

If Application.CalculationState = xlDone Then
    Range("Q6:Q2500").Copy
    Range("Q6:Q2500").PasteSpecial xlPasteValues
End If
```
- Hi Tom, schön finden! Ich denke, das wird die Lösung für ONE problem. Aber jetzt habe ich ein anderes problem. Excel weiterhin berechnet die Formeln zu langsam. Jede Zeile ist 0 jetzt.
- Hat deine Formel funktioniert, wenn man es in einer Zelle per hand?
- Ja, und es funktioniert auch, wenn ich lösche den Range("Q6:Q2500").Copy Range("Q6:Q2500").PasteSpecial xlPasteValues Linie. Ich brauche aber nur die Werte.
- Funktioniert! Danke!!! Nach dem einfügen der korrigierten Formel, es hat nicht funktioniert. Ich musste restard Excel..................
InformationsquelleAutor Tom K.
0

Für jeden, der Suche diese. Im Allgemeinen Wert einfügen effizient verwenden Sie den folgenden code.
```
With Selection
.Value = .Value
End With
```
InformationsquelleAutor Mark1000000.01

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.