Thema Datum  Von Nutzer Rating
Antwort
26.01.2022 12:00:44 Stefan
Solved
26.01.2022 12:51:46 Gast71819
Solved
26.01.2022 13:41:21 Gast22309
Solved
Blau PasteSpecial Paste:=xlValues
 26.01.2022 13:47:32 volti
Solved
27.01.2022 10:55:49 Stefan
Solved

Ansicht des Beitrags:
Von:
volti		 Datum:
26.01.2022 13:47:32		 Views:
408		 Rating:
     
Antwort:
 Nein
Thema:
PasteSpecial Paste:=xlValues

Hallo,

 

DU kannst die Daten auch direkt, also ohne Kopieren, übernehmen:

Code:
01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16		  
Sub Makro4()
  Dim obj_wkb_ziel As Workbook
  Dim obj_wkb_quelle As Workbook

' Hier Pfad anpassen
  Workbooks.Open Filename:="C:\Datenaustausch\2022 - Journal.xlsx"
  Set obj_wkb_ziel = ActiveWorkbook
  Set obj_wkb_quelle = ThisWorkbook

  With obj_wkb_ziel.Worksheets("Liste")
      With .Cells(.Cells(.Rows.Count, 2).End(xlUp).Row + 1, 1)
          .Resize(1, 6).Value = obj_wkb_quelle.Worksheets("Nutzungsvertrag").Range("AJ15:AO15").Value
      End With
  End With
  obj_wkb_ziel.Close savechanges:=True
End Sub
_________
viele Grüße
Karl-Heinz

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
26.01.2022 12:00:44 Stefan
Solved
26.01.2022 12:51:46 Gast71819
Solved
26.01.2022 13:41:21 Gast22309
Solved
Blau PasteSpecial Paste:=xlValues
 26.01.2022 13:47:32 volti
Solved
27.01.2022 10:55:49 Stefan
Solved