Thema Datum  Von Nutzer Rating
Antwort
13.12.2018 09:59:30 Robert
Solved
13.12.2018 19:36:12 Gast01233
NotSolved
14.12.2018 07:23:45 Robert
NotSolved
14.12.2018 07:27:10 Gast58432
NotSolved
Rot Kopieren von Zellen und einfügen in andere Datei
 14.12.2018 09:10:58 Gast49343
NotSolved
14.12.2018 09:36:04 Robert
Solved
13.12.2018 20:01:55 Gast25162
Solved

Ansicht des Beitrags:
Von:
Gast49343		 Datum:
14.12.2018 09:10:58		 Views:
497		 Rating:
     
Antwort:
  Ja
Thema:
Kopieren von Zellen und einfügen in andere Datei

Dazu ist es unheimlich prickelnd, wenn du deine eingangs gestellte Frage mit Code unterfütterst der rein gar nichts mit eben dieser Frage zu tun hat.


Sub mysClick()
'Private Sub CommandButton1_Click()
Dim Quelle  As Worksheet
Dim Ziel  As Worksheet
 
    Application.ScreenUpdating = False
    
    Set Quelle = ThisWorkbook.Worksheets("Tabelle1")
    Set Ziel = Workbooks("Mappe2.xlsx").Worksheets("DB")
 
Ziel.Range("A" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row + 1).Value = Quelle.Range("D4").Value
Ziel.Range("B" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).Value = Quelle.Range("D6").Value
'
'
Ziel.Range("EI" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).Value = Quelle.Range("B87").Value

    
     ActiveSheet.Copy after:=Workbooks("Mappe2.xlsx").Sheets(Workbooks("Mappe2.xlsx").Sheets.Count)
     With ActiveSheet
      On Error Resume Next
      .Name = .Range("H4")
      End With
     Application.ScreenUpdating = True

End Sub

 

 

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
13.12.2018 09:59:30 Robert
Solved
13.12.2018 19:36:12 Gast01233
NotSolved
14.12.2018 07:23:45 Robert
NotSolved
14.12.2018 07:27:10 Gast58432
NotSolved
Rot Kopieren von Zellen und einfügen in andere Datei
 14.12.2018 09:10:58 Gast49343
NotSolved
14.12.2018 09:36:04 Robert
Solved
13.12.2018 20:01:55 Gast25162
Solved