Kopieren

Forumthread: Kopieren

Kopieren

11.07.2006 15: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

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Kopieren

11.07.2006 16:01:19

Piet
AW: Kopieren

11.07.2006 16:02:55

Thomas
AW: Notlösung

11.07.2006 17:32:09

UweD
AW: Notlösung

11.07.2006 18:30:05

Thomas

AW: Kopieren

11.07.2006 16: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 16:02:55

Thomas

hab ich mir fast gedacht.
danke jedenfalls.
lg thomas

AW: Notlösung

11.07.2006 17: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)

AW: Notlösung

11.07.2006 18:30:05

Thomas

Hallo Uwe!
Hab das Ganze mit einer Art Nebenrechnung gelöst.
Liebe Grüsse
Thomas

Forumthread: Kopieren

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

VBA Beispiele zu diesem und ähnlichen Themen

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread