Thema Datum  Von Nutzer Rating
Antwort
30.12.2015 09:38:22 Andreas
NotSolved
30.12.2015 09:57:02 Gast37586
NotSolved
30.12.2015 12:57:14 Andreas
NotSolved
30.12.2015 14:55:33 Gast24803
NotSolved
30.12.2015 15:25:39 Andreas
NotSolved
Blau Spalten in eine andere Datei Kopieren
 30.12.2015 15:54:32 Gast38261
NotSolved

Ansicht des Beitrags:
Von:
Gast38261		 Datum:
30.12.2015 15:54:32		 Views:
965		 Rating:
     
Antwort:
  Ja
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

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
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

 

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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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
NotSolved
30.12.2015 09:57:02 Gast37586
NotSolved
30.12.2015 12:57:14 Andreas
NotSolved
30.12.2015 14:55:33 Gast24803
NotSolved
30.12.2015 15:25:39 Andreas
NotSolved
Blau Spalten in eine andere Datei Kopieren
 30.12.2015 15:54:32 Gast38261
NotSolved