Office: Copy keine Formel nur Werte

Hello Leute

Bin ein totaler Rookie

Anbei die Zeile wo im Makro festgelegt wird was kopiert werden soll


wkb.Worksheets(4).Range("A2").Copy wks.Cells(lRow, 3)


Für mich Logisch und klar aber wie kann ich jetzt noch in dieser Zeile hinterlegen das er nur die Werte kopieren soll?

Help
THX
Rookie

:)

 

Hallo
sollte so gehen.
Code:

gruss hary

 

So geht es leider nicht.
Anbei mal das ganze Makro von einer WS ...Hajo ...

Es steht auch nirgendwo paste....i checks net....


Dim wkb As Workbook
Dim wks As Worksheet
Dim arr As Variant
Dim lRow As Long
Dim iCounter As Integer
Dim sFile As String
Application.ScreenUpdating = False
Application.EnableEvents = False
On Error GoTo ERRORHANDLER
Set wks = ActiveSheet
sFile = Range("B1").Value
arr = FileArray(sFile, "*.xls")
For iCounter = 1 To UBound(arr)
Set wkb = Workbooks.Open(sFile & "\" & _
arr(iCounter))
lRow = wks.Cells(Rows.Count, 1).End(xlUp).Row + 2
wks.Cells(lRow, 1).Value = wkb.Name
lRow = lRow + 0
wkb.Worksheets(4).Range("a1").Copy wks.Cells(lRow, 2)
wkb.Close savechanges:=False
Next iCounter
Worksheets(1).Select
ERRORHANDLER:
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub

 

Hallo
steht ja auch nicht drin. Mit PasteSpecial kann man eingrenzen was kopiert wird.
Diese zeile
Code:

ersetzen durch diese zwei
Code:

gruss hary
sollte dann klappen

 

danke funktioniert
ich habs zuerst in einer zeile zusammengefasst - hat net funktioniert aber mit der 2 zeilen version geht es
vielen lieben dank
rookie

 

Hello Hary
Jetzt hätte ich noch eine Frage.
Das Makro ist so ausgelegt das ich einzelne Zellen übernehme. Wie kann man das Makro ohne großen Aufwand umbauen das es auch (also oder Funktion) Bereiche übernimmt?

Also Zelle D4 und Zelle D6bisD10

Wenn es leicht möglich ist, du die Lösung in 30 Sekunden weißt wäre es net wenn du nochmals 30 Sekunden investiert und du mir die Lösung mitteilst?

Ich hoffe das ist nicht zu viel verlangt. Fragen kostet ja nichts 

Ich denke aber nicht das es leicht möglich ist.

Gruss
Rookie

 

Hallo Rookie
ungetestet! Werte stehen(sollten) untereinanderstehen.
Code:

gruss hary

 

danke

 

Hallo auch ich bin noch ein Neuling (hier und in VBA) und habe ein Makro aus dem Internet zum Kopieren. Jedoch benötige ich in einigen Zellen nur Werte (B23 Bis B39, C23 : C39, D23 : D39 ,C3 und F3) kann mir hier jemand helfen wie das am besten umzusetzen ist?
Danke schon mal im Voraus.

Anbei das ganze Makro:

Sub Tabellen_kopieren()
'jede Tabelle dieser Datei als neue Datei speichern
'Dateiname ist jeweils der Tabellenname
Dim Pfad As String
Dim wks As Worksheet

'Pfad anpassen
Pfad = "Macintosh HD :Users:---: Desktop:---:---.xlsx"
'Pfad = ThisWorkbook.Path & "\"

If Application.PathSeparator = ":" Then
strPath = "Macintosh HD :"
Else
strPath = "C:\"
End If

'prüfen ob Pfad existiert
If Dir(Pfad) = "" Then
MsgBox "Pfad existiert nicht", , "Abbruch"
Exit Sub
End If

On Error GoTo Fehler

Application.ScreenUpdating = False
'eventuell schon vorhandene Datei ohne Rückfrage überschreiben
Application.DisplayAlerts = False

For Each wks In ThisWorkbook.Worksheets
ThisWorkbook.Worksheets(wks.Name).Copy
ActiveWorkbook.SaveAs (Pfad & wks.Name)
ActiveWorkbook.Close
Next wks

Application.DisplayAlerts = True
Application.ScreenUpdating = True

MsgBox "alle Protokolle gespeichert in" & vbNewLine & vbNewLine _
& Pfad, , ""

Exit Sub

Fehler:
Application.ScreenUpdating = True
Application.DisplayAlerts = True

MsgBox "FehlerNr.: " & Err.Number & vbNewLine & vbNewLine _
& "Beschreibung: " & Err.Description _
, vbCritical, "Fehler"
End Sub