Frage - Spalten einfügen & Spalten untereinander z

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi
das untereinanderkopieren kannst du mit folgendem Kode lösen:


Sub Spalten_Kopieren()
Dim sp As Long
For sp = 6 To ActiveSheet.UsedRange.Columns.Count Step 5
Cells(1, sp).Resize(Cells(Rows.Count, sp).End(xlUp).Row, 5).Copy
Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteAll
Next
Application.CutCopyMode = xlCopy
End Sub

bzw 80 mal kannst du das nicht hintereinander ausführen, denn dann müsste deine Datei über 400 Spalten haben, maximal möglich sind aber nur 256
Jetzt zum einfügen der Leerspalten, wenn du nach der 2. Spalte 4 Leerspalten einfügen willst, dann geht das so:


Columns(3).resize(,4).insert

bei einer grösseren Tabelle ist aber folgendes vorgehen sinnvoller, weil schneller:


Sub Spalten_Einfügen()
Dim sp As Long
Dim ze As Long
Dim anz As Long
With ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell)
sp = .Column
ze = .Row + 1
End With
Cells(ze, 1).Resize(, sp).FormulaLocal = "=Spalte()"
Cells(ze, sp + 1).Value = 2.1
Cells(ze, sp + 2).Resize(, 3).FormulaR1C1 = "=RC[-1]+.1"
Cells(ze, sp + 5).FormulaR1C1 = "=RC[-4]+2"
Cells(ze, sp + 6).Resize(, 3).FormulaR1C1 = "=RC[-1]+.1"
anz = (sp / 2 - 2) * 4
Cells(ze, sp + 5).Resize(, 4).Copy Destination:=Cells(ze, sp + 9).Resize(, anz)
Rows(ze).Value = Rows(ze).Value
Cells(1, 1).CurrentRegion.Sort key1:=Cells(ze, 1), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlSortRows
Rows(ze).Delete
Range("A1:B1").Sort key1:=Range("A1"), Orientation:=xlSortColumns
End Sub

die Leerspalten werden durch sortieren eingefügt, um das Prinzip zu verstehen, gehst du am besten das Makro im Einzelstepmodus durch und schaust dir an, was passiert.
das letzte Sortieren verändert nichts sondern stellt nur die Sortiereinstellung wieder auf normales Zeilensortiern zurück
Gruß, Daniel

314 Forumthreads zu ähnlichen Themen

Zeilenmerkmale in Spalten umwandeln

MG_Learning

Hallo zusammen!
Ich habe keine Ahnung, wie ich aus folgender Tabellenstruktur: Beispiel:
A B C
London 20 Kinos
London 50 Gaststätten
London 10 Einkaufscentren
Paris 18...

17.08.2008 18:31:50

Thread-ID: 1002449

4 Beiträge

Spalten in Zeilen anhängen

Jörg

Hallo zusammen,
in einer Tabelle mit ~1000 Artikeln in Spalte A stehen jeweils in den Spalten B-M die 12 zum Artikel gehörenden Monatswerte des Verbrauchs.
Ich brauche diese Daten jetzt so angeordnet, dass weiterhin alle Artikel in Spalte A stehen, jedoch die einzelnen Monatswerte unter...

01.09.2008 18:03:42

Thread-ID: 1006570

11 Beiträge

Zelleninhalt (Text) in 2 Spalten teilen

El.

Hallo!
Habe eine Spalte in der Artikelname und Artikelmerkmale, durch drei Punkte getrennt "...", zusammen stehen. Beispiel: Lecker Whisky 21 Jahre ... Lieferung in hochwertiger Schatulle
Wie krieg ich nun den Text links der Punkte in eine extra Spalte und rechts der Punkte in eine extr...

03.09.2008 16:35:00

Thread-ID: 1007155

4 Beiträge

wie Spalten in einem Arbeitsblatt zu Zeilen zusamm

Michael

Moin erstmal,
folgendes Problem als mittelmäßiger Anwender.
Ich habe mehrere identische Arbeitsblätter wo ich jeweils untereinander (eine Spalte) mehrer Werte habe. G1-G10.
Diese Werte möchte ich in einem Arbeitsblatt zusammenfassen , allerdings nun in einer Zeile. A1-J1.
Wi...

04.09.2008 19:48:05

Thread-ID: 1007497

4 Beiträge

Spaltentrennzeichen nach speichern in Text-Datei

Michael

Hallo
ich habe ein Problem. Vielleicht ist es schwierig, vielleicht aber auch nicht.
Ich habe eine Text-Datei mit Spaltentrennzeichen "|" (besser als ";" der Übersichtlichtlichkeit halber) und verschiedenen Längen der Spalten.
Ich will diese in Excel überarbeiten und als Text-Dat...

11.09.2008 09:28:00

Thread-ID: 1008978

3 Beiträge

Text in Spalten

Simone

Hallo zusammen,
ich hab ein wohl eher triviales Problem, komme aber trotzdem einfach nicht weiter.
Ich füge in ein Arbeitsblatt Daten aus einem anderen Programm ein. Jetzt habe ich mehrmals die Funktion 'Text in Spalten' verwendet / ausprobiert, und wenn ich jetzt wieder Daten in A1 ein...

16.09.2008 13:54:00

Thread-ID: 1010092

3 Beiträge

Beliebteste Forumthreads (12 Monate)

Frage - Spalten einfügen & Spalten untereinander z

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

314 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Frage - Spalten einfügen & Spalten untereinander z

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

314 Forumthreads zu ähnlichen Themen

Links zu Excel-Beispielen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread