Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
780to784
780to784
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Kopieren

Forumthread: Kopieren

Kopieren
11.07.2006 13:46:32
Thomas
hallo forum!
meine kollegin hat die monatsübersicht
dez, nov, okt, sept, aug
aufgebaut. ich würde gerne ihre daten in eine meiner übersichten übernehmen wo
der aufbau aber
aug, sept, okt, nov, dez
ist. also genau umgekehrt. hab ich beim kopieren die möglichkeit das ganze umzudrehen?
lg thomas
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Kopieren
11.07.2006 14:01:19
Piet
Hallo Thomas,
leider nicht. Es gibt zwar die Option "Transponieren" beim Einfügen, die tauscht jedoch nur Zeilen mit Spalten. Also hilft nur monatsweise kopieren, fürchte ich!
Gruß
Piet
AW: Kopieren
11.07.2006 14:02:55
Thomas
hab ich mir fast gedacht.
danke jedenfalls.
lg thomas
AW: Notlösung
11.07.2006 15:32:09
UweD
Hallo
- Spalten markieren
- Makro starten (evtl. über zugeordneten Shortcut)
- Makro läuft
- Zielbereich auswählen
- Strg V für einfügen
- hier die das unschöne... das neu erstellte Blatt muß gelöscht werden

Sub reversecopy()
Dim Anz%, P1, i%, Ziel
On Error GoTo Fehler
Anz = Selection.Columns.Count
P1 = Selection.Column
ActiveSheet.Copy Before:=ActiveSheet
ActiveSheet.Rows(1).Insert
For i = P1 To P1 + Anz - 1
Cells(1, i) = i
Next
Selection.Sort Key1:=Rows(1), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight, _
DataOption1:=xlSortNormal
ActiveSheet.Rows(1).Delete
Selection.Copy
Fehler:
If Err.Number <> 0 Then MsgBox "Fehler: " & Err.Number & vbLf & Err.Description
End Sub

- Das Makro legt eine Kopie des aktuellen Blattes an
- fügt in neuer Zeile 1 eine Nummerierung ein
- führt Spaltenweise Sortierung durch (Reverse)
- löscht Zeile 1
- kopiert diesen Bereich in die Zwischenablage
- das neue Blatt kann nicht automatisch gelöscht werden, da sonst die Zwischenablage wieder leer ist.
Gruß UweD
(Rückmeldung wäre schön)
Anzeige
AW: Notlösung
11.07.2006 16:30:05
Thomas
Hallo Uwe!
Hab das Ganze mit einer Art Nebenrechnung gelöst.
Liebe Grüsse
Thomas
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige