Ich habe mehrere Excel Tabellen welche alle ein Ergebniss ausgeben.
Dieses Ergebniss Kopiere ich über ein Makro in eine Ergebnisstabelle.
Mein Problem ist jetzt das die Formel kopiert wird und nicht der Wert.
Der Wert ändert sich täglich daher sollte wohl das Kopieren Script angepasst werden.
Mein aktuelles Script sieht wie folgt aus:
Sub Kopieren()
Dim Vergleich
Dim Bereich As Range
Dim Quelle As Workbook
Dim Ziel As Workbook
Set Quelle = Workbooks("Quelle.xls")
Set Ziel = Workbooks("Ergebniss.xls")
Set Bereich = Range(ActiveSheet.UsedRange.Address)
Vergleich = Range("A1")
Ziel.Sheets("Ergebniss").Activate
If Pruefen(Vergleich) Then
Quelle.Sheets("Tabelle1").Range("I20").Copy
Ziel.Sheets("Ergebniss").Range("A1").Activate
ActiveSheet.Paste
Quelle.Activate
Application.CutCopyMode = False
End If
Set Quelle = Nothing
Set Ziel = Nothing
Set Bereich = Nothing
End Sub
Function Pruefen(Pruefwert) As Boolean
Dim rngPruef As Range
Dim rngZelle As Range
Set rngPruef = Range("A1:Z1")
For Each rngZelle In rngPruef
If Pruefwert = rngZelle Then
If MsgBox(rngZelle & " ist bereits vorhanden. Trotzdem kopieren?", vbYesNo + vbQuestion, " _
Datenkonflikt") = vbYes Then
Pruefen = True
End If
Exit For
End If
Next
Set rngPruef = Nothing
End Function
Mit freundlichen GrüßenChristian Metzger