Office: Makro Formatierung fixieren

Hallo zusammen

Ich habe ein Problem.

Ich möchte nämlich, wenn ich aus dem Blatt "A" alle Zellen in das Blatt "B" einfüge, dass diese automatisch als Werte angezeigt werden, ohne dass ich die Funktion "Werte einfügen" benutzen muss. Die Formel darf also vom Blatt "A" nie im Blatt "B" übernommen werden.

Siehe angehängte Datei.

Ich denke, dass hier ein Makro möglich wäre, nur brauche ich eure Hilfe.

Danke viel Mal für eure Hilfe!

Liebe Grüsse

 

Hi,

Code:

Sub Kopieren()
    Range("A2:C4").Copy
    Worksheets("B").Range("A2").PasteSpecial Paste:=xlValues
End Sub

---

 

Hallo Karin

Das funktioniert schon mal perfekt :D Danke!

Könnte ich den Code auch so anpassen, dass ich ihn nicht immer ständig ändern muss, falls sich die gewünchten Zellbereiche ändern? (Beispiel in am 21.03.2022 muss ich A4:A8 kopieren und in das Blatt "B" einfügen und am foldenden Tag das gleiche mit den Zellen A8:A12 usw.) Siehe Anhang.

Vielen Dank für deine Unterstützung!

Liebe Grüsse

 

Hi,

schreibe z.B. in F1 das Datum, zu welchem die Daten kopiert werden sollen. Dann kannst du mit folgendem Code die betreffenden Daten kopieren:

Code:

Sub Kopieren()
    Dim rngZelle As Range
    Dim lngEnde As Long
    Dim lngZiel As Long
    Set rngZelle = Columns(1).Find(Range("F1"), lookat:=xlWhole, LookIn:=xlFormulas)
    lngZiel = Application.CountA(Worksheets("B").Columns(1)) + 1
    If Not rngZelle Is Nothing Then
        lngEnde = Application.CountIf(Columns(1), Range("F1"))
        Range(Cells(rngZelle.Row, 1), rngZelle.Offset(lngEnde - 1, 3)).Copy
        Worksheets("B").Cells(lngZiel, 1).PasteSpecial Paste:=xlValues
    End If
End Sub

---