Werte aus den Formeln werden nicht mit kopiert

Moderator: ModerationP

Werte aus den Formeln werden nicht mit kopiert

Beitragvon Gast » 08. Aug 2018, 09:46

Hallo

mit viel Mühe habe ich mir mit Hilfe was zusammengebastelt, komme aber jetzt nicht weiter.
Ziel ist es, aus mehreren Tabellenblättern (alle mit TP beginnen) nur die Werte der Spalten B bis L aus den Zeilen untereinander zu kopieren, die in Spalte A ein "X" enthalten.
Problem hierbei ist, dass die Werte aus den Formeln nicht kopiert werden.
Kann mit jemand helfen?

Hier mein Code:

Sub ImportAllerDaten()

Dim Ws As Worksheet
Dim letzteZeile As Integer
Dim uebersicht As String
Dim r As Integer
Dim formatiert As Boolean
Dim err As Integer

'Call formatieren
formatiert = False

uebersicht = "Übersicht"
currentRow = 2

anzspalten = 11

Worksheets(uebersicht).UsedRange.Clear
Application.ScreenUpdating = False
'erste Zeile formatieren
MsgBox "Der Import wird gestartet"
'gehe zum ersten Datenblatt
For Each Ws In ThisWorkbook.Worksheets
With Ws
'Schau ob es TP enthält

If InStr(1, .Name, "TP") Then

If Not formatiert Then
Range(.Cells(1, 2), .Cells(1, anzspalten + 1)).Copy
Worksheets(uebersicht).Paste Destination:=Worksheets(uebersicht).Range("A1")
End If

letzteZeile = .UsedRange.SpecialCells(xlCellTypeLastCell).row
For r = 2 To letzteZeile
If .Cells(r, 1) = "X" Then
Range(.Cells(r, 2), .Cells(r, 12)).Copy
Worksheets(uebersicht).Paste Destination:=Worksheets(uebersicht).Range(Worksheets(uebersicht).Cells(currentRow, 1), Worksheets(uebersicht).Cells(currentRow, anzspalten))
'Worksheets(uebersicht).Paste Destination:=Worksheets(uebersicht).Range("A2")
currentRow = currentRow + 1
End If
Next
End If
End With
'gehe zum nächsten Datenblatt
Next

Application.ScreenUpdating = True
MsgBox "Die Inhalte wurden importiert"
End Sub
Gast
 

Re: Werte aus den Formeln werden nicht mit kopiert

Beitragvon Nicolaus » 08. Aug 2018, 10:16

Hi,

also wenn ich dich richtig verstehe, willst du anstatt der Formeln nur die Werte kopieren.
Dann benutze anstatt "Paste", "Pastespecial" mit der Einstellung "xlPasteValues".
Oder anstatt Copy/Paste:
Code: Alles auswählen
Worksheets(uebersicht).Range(Worksheets(uebersicht).Cells(currentRow, 1), Worksheets(uebersicht).Cells(currentRow, anzspalten)) = .Range(.Cells(r, 2), .Cells(r, 12)).Value

Gruß
Nic
die Forenhelfer freuen sich über eine Antwort
Benutzeravatar
Nicolaus
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 4575
Registriert: 02. Feb 2010, 15:52
Wohnort: Rhein Main Gebiet

Re: Werte aus den Formeln werden nicht mit kopiert

Beitragvon Gast » 08. Aug 2018, 11:03

Danke, dein Code funktioniert super! Nun die Formatierung der Zellen ist jetzt hin....
Woran kann das liegen?
Gast
 

Re: Werte aus den Formeln werden nicht mit kopiert

Beitragvon Nicolaus » 08. Aug 2018, 11:27

Hi,

mein Code kopiert nur die Werte,
wenn du die Formatierung auch brauchst, dann nutze erst deinen alten Code, und danach meinen zum Übertragen der Werte.

Gruß
Nic
die Forenhelfer freuen sich über eine Antwort
Benutzeravatar
Nicolaus
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 4575
Registriert: 02. Feb 2010, 15:52
Wohnort: Rhein Main Gebiet

Re: Werte aus den Formeln werden nicht mit kopiert

Beitragvon slowboarder » 08. Aug 2018, 11:30

Hi
kopiere doch zunächst alles untereinander und schmeiße hinterher die Zellen ohne x raus.
ist einfacher und wahrscheinlich auch viel schneller (wenn du das Zeilen löschen richtig machst)

Code: Alles auswählen
for each Ws in thisWorkbook.Worksheets
if ws.name like "*TP*" then
    WS.Usedrange.Offset(1, 0).Resize(, 12).Copy 'bis Spalte L, ohne Überschrift
    with Worksheets("Übersicht")
        with .Cells(.Rows.Count, 2).end(xlup).Offset(1, -1)
            .PasteSpecial xlpastevalues
            .PasteSpecial xlpasteformats
       end with
   end with
end if
next

With Worksheets("Übersicht").UsedRange
    with .Columns(.columns.Count + 1)
        .FormulaR1C1 = "=IF(RC1="x",Row(),0)"
        .Cells(1,1).Value = 0
        .entireRow.RemoveDuplicates .column, xlno
        .ClearContents
    end with
end with



Gruß Daniel
slowboarder
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 24842
Registriert: 18. Apr 2009, 13:33

Re: Werte aus den Formeln werden nicht mit kopiert

Beitragvon Gast » 08. Aug 2018, 11:52

Super, jetzt klappt alles. Danke!
Gast
 


Zurück zu Excel Forum (provisorisch)

Wer ist online?

Mitglieder in diesem Forum: Andreas1963, MisterBurns, SandroM und 21 Gäste