Thema Datum  Von Nutzer Rating
Antwort
07.01.2016 11:42:53 Andreas
NotSolved
Blau Kopieren bzw. Übertragen von Spalten in eine andere Datei
08.01.2016 11:36:29 Gast50157
NotSolved
08.01.2016 17:24:08 Andreas
NotSolved

Ansicht des Beitrags:
Von:
Gast50157
Datum:
08.01.2016 11:36:29
Views:
1426
Rating: Antwort:
  Ja
Thema:
Kopieren bzw. Übertragen von Spalten in eine andere Datei

Hallo!

Also ohne jetzt viel an deinem Code änden zu wollen, würde ich es so ergänzen. Gruß

 

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Option Explicit
  
Dim strQuelle As String
  
Sub aktualisieren()
Dim i As Long
Dim name As String
 
 
    With ThisWorkbook.Worksheets("Name Ziel Tabellenblatt")
    .Range("D9:D56").ClearContents
     End With
  
     strQuelle = Application.GetOpenFilename("Excel,*.xl*")
     If strQuelle = "" Then Exit Sub
     Workbooks.Open Filename:=strQuelle
     strQuelle = Split(strQuelle, "\")(UBound(Split(strQuelle, "\")))
      
     For i = 1 To 5
     name = Workbooks(strQuelle).Worksheets(i).name
     With Workbooks(strQuelle).Worksheets(name)
             .Range("C4:C51").Copy
     End With
  
     With ThisWorkbook.Worksheets(name)
         .Range("D9").PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
             xlNone, SkipBlanks:=False, Transpose:=False
          
     End With
     
    Next i
     
     
     Application.CutCopyMode = False
     Workbooks(strQuelle).Close (False)
  
 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
07.01.2016 11:42:53 Andreas
NotSolved
Blau Kopieren bzw. Übertragen von Spalten in eine andere Datei
08.01.2016 11:36:29 Gast50157
NotSolved
08.01.2016 17:24:08 Andreas
NotSolved