|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
30.12.2015 09:38:22 |
Andreas |
|
|
|
30.12.2015 09:57:02 |
Gast37586 |
|
|
|
30.12.2015 12:57:14 |
Andreas |
|
|
|
30.12.2015 14:55:33 |
Gast24803 |
|
|
|
30.12.2015 15:25:39 |
Andreas |
|
|
 Spalten in eine andere Datei Kopieren |
30.12.2015 15:54:32 |
Gast38261 |
|
|
Von:
Gast38261 |
Datum:
30.12.2015 15:54:32 |
Views:
790 |
Rating:
|
Antwort:
|
Thema:
Spalten in eine andere Datei Kopieren |
|
Hallo Andreas! Unter der Code für dein Beispiel mit Spalte C und G. Da nicht klar war, ob die nächste Spalte dann auch um 4 versetz ist war unklar. Falls ja, einfach die Zählvariable i erhöhen (Anzahl der Spalten). Der Rest läuft dann automatisch - außer du kommst an das Balttende. :-) Bei Ziel den kompletten Pfad mit Dateinamen eingeben. Der Pfad dort ist nur ein Beispiel.
Gruß und Guten Rutsch
Sub ersetzen()
Dim quelle As String
Dim ziel As String
Dim zielname As String
Dim i As Long
quelle = ThisWorkbook.Name
ziel = "c:\meinPfad\quelle.xls"
zielname = Right(ziel, Len(ziel) - InStrRev(ziel, "\"))
Workbooks.Open Filename:=ziel
For i = 1 To 2
Workbooks(quelle).Worksheets(1).Range(Workbooks(quelle).Worksheets(1).Cells(4, i * 4 - 1), Workbooks(quelle).Worksheets(1).Cells(51, i * 4 - 1)).Copy Destination:=Workbooks(zielname).Worksheets(1).Cells(2, i * 4)
Next i
Workbooks(zielname).Close savechanges:=True
End Sub
|
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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
|
|
30.12.2015 09:38:22 |
Andreas |
|
|
|
30.12.2015 09:57:02 |
Gast37586 |
|
|
|
30.12.2015 12:57:14 |
Andreas |
|
|
|
30.12.2015 14:55:33 |
Gast24803 |
|
|
|
30.12.2015 15:25:39 |
Andreas |
|
|
Spalten in eine andere Datei Kopieren |
30.12.2015 15:54:32 |
Gast38261 |
|
|