|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
 Tabelle in neue Datei kopieren + Spalten löschen |
05.07.2007 11:06:45 |
benkad |
|
|
|
05.07.2007 11:09:09 |
benkad |
|
|
|
07.07.2007 22:36:44 |
Sozu |
|
|
Von:
benkad |
Datum:
05.07.2007 11:06:45 |
Views:
2315 |
Rating:
|
Antwort:
|
Thema:
Tabelle in neue Datei kopieren + Spalten löschen |
Hallo zusammen
ich hoffe ihr könnt mir weiterhelfen:
Es besteht eine Excel-Tabelle (Basis.xls) Die Tabelle möchte ich kopieren und in eine neue Datei (Kopie.xls) einfügen. Dann sollen aus dieser Tabelle Spalten gelöscht werden und neue (leere) Spalten eingefügt werden.
Dafür habe ich folgenden Code erstellt:
Code:
************************************
Sub Kopie_erstellen_II()
' Tastenkombination: Strg+q
' Zellen markieren und in eine neue Datei einfügen
Range("A1:AI100").Select
' Cells.Select
Selection.Copy
Workbooks.Add
ActiveSheet.Paste
' Spalten Q bis AA löschen
Columns("Q:AA").Select
Selection.Delete Shift:=xlToLeft
' ab Spalte Q 6 neue Spalten einfügen
Columns("Q:Q").Select
Selection.Insert Shift:=xlToRight
Selection.Insert Shift:=xlToRight
Selection.Insert Shift:=xlToRight
Selection.Insert Shift:=xlToRight
Selection.Insert Shift:=xlToRight
Selection.Insert Shift:=xlToRight
' Zelle A2 = neuer Text
Range("A2").Select
ActiveCell.FormulaR1C1 = "Kopie von Basis"
' Zelle A1 "aktivieren"
Range("A1").Select
End Sub
************************************
Folgendes Ergebnis kommt heraus:
in der Kopie.xls sind jetzt nur die Spalten ab der Spalte AB (aus der Basis.xls)
Und es werden Bilder aus der Spalte C (aus der Basis.xls) in die Spalte A der Kopie.xls eingefügt.
Kann mir jemand weiterhelfen?
Vielen Dank für eure Antworten!
Lieben Gruß Benkad |
- 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
|
Tabelle in neue Datei kopieren + Spalten löschen |
05.07.2007 11:06:45 |
benkad |
|
|
|
05.07.2007 11:09:09 |
benkad |
|
|
|
07.07.2007 22:36:44 |
Sozu |
|
|