Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 12:28:32
Formelfehler aufgrund Einfügen einer Zeile
18.04.2024 11:51:04
Aus Listbox Spalte als Wert zurück bekommen
18.04.2024 11:36:51
Beim Öffnen je nach Datum zu bestimmter Zelle springen
18.04.2024 11:16:38
Pfade werden mit Anführungszeichen "" versehen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
780to784
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige