Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 08:56:18
Textbox in Tabellenblatt ohne Bestätigung in Zelle eintragen
20.04.2024 07:57:54
Tablle fürs E-Auto - Preis wenn kürzer als 60 Min Ladezeit
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1000to1004
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
1000to1004
1000to1004
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Frage - Spalten einfügen & Spalten untereinander z

Frage - Spalten einfügen & Spalten untereinander z
08.08.2008 16:00:00
André
Hallo zusammen!
Ich habe da als blutiger Anfänger in VBA zwei Fragen:
1.) Wie kann ich in meiner Tabelle in jeder zweiten Spalte 4 leere Spalten einfügen lassen?
2.) Dann möchte ich unter den Inhalt der ersten fünf Spalten (A-E) den Inhalt der zweiten 5 Spalten (F-J) usw. In der grössten Tabelle muss das über 80mal wiederholt werden. Der Inhalt der Spaltengruppen (A-E, F-J etc) ist nicht immer gleich groß d.h. er unterscheidet sich in der Zeilenanzahl.
Wenn mir da jemand helfen könnte, und mir damit copy_paste erspart, wäre das echt prima!
Excel-Version: 2002 SP3
Vielen Dank im Voraus!!!

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

Betreff
Datum
Anwender
Anzeige
AW: Frage - Spalten einfügen & Spalten untereinander z
08.08.2008 17:33:07
Daniel
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

Anzeige
AW: Frage - Spalten einfügen & Spalten untereinand
08.08.2008 17:47:00
André
Hi Daniel,
alles klar!
Besten Dank für die Hilfe!
Gruß,
André

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
Anzeige
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
Anzeige
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
Zeilen löschen in Abhängigkeit von 2 Spalten
2

Hallo zusammen,
ich habe ein Makro über den Rekorder aufgezeichnet und versuche es anzupassen. Leider kenn ich mich in der Syntax nicht aus.
Ziel:
In einem markierten Bereich die Zeilen löschen, die in Abhängigkeit von zwei Spalten eine 0 enthalten.
D.h. Spalten X und Y enthalte...
06.10.2008 14:00:00
Thread-ID: 1014434
3 Beiträge
TextBox Werte in Spalte Q ersetzen ?
Selma

Hallo Leute,
ich habe eine Frage zu UserForm. Beim Klick auf CommandButton1 sollen die Zahlen aus TextBox1 mit Werten in Spalte Q ab Zeile 12 ersetzt werden. Dies soll nur dann erfolgen, wenn in TextBox1 die Zahlen stehen bzw. der TextBox gefüllt ist.
Ersetzt sollen nur die vorhandene W...
13.10.2008 15:42:00
Thread-ID: 1016083
3 Beiträge
Text in Spalten
Tom

Hallo,
ich möchte mit der Funktion Text in Spalten erreichen, dass alle Zeilen, die mit einer Zahl beginnen, nach der Zahl in eine neue Spalte geschoben werden - nur finde ich hierfür nur die Funktionen nach Leerzeichen, Komma usw...
Wer hat ne Lösung?
In A1: 1020 Maier Huber Mülle...
20.10.2008 14:09:42
Thread-ID: 1017654
7 Beiträge
Pivot - Text in Spalte überführen
Binu

Hallo
Ich hab in der Beispieldatei die Spalte "Zahl", welche ich in einer Pivotdatei ebenfalls als Spalte neben der Spalte "TExt" hinzufügen will. Nur kriege ich das nicht hin. Kann mir da jemand helfen? Besten Dank!
Gruss Albin
https://www.herber.de/bbs/user/56492.xls
04.11.2008 11:04:36
Thread-ID: 1021516
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
10
3
3
2
2
2
2
6
3
2
2
2
2
4
4
8
4
5
4
2
5
3
4
11