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

Spalten einfügen

Forumthread: Spalten einfügen

Spalten einfügen
09.03.2006 20:35:59
Thomas
Hallo!
Ich suche ein Makro , das mir alle Spalten mit einer bestimmten Füllfarbe die links von der Spalte od. Zelle sind , die ich gerade markiert habe zusammenführt und dort einfügt.
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Spalten einfügen
09.03.2006 21:02:12
chris
versuchs hiermit.

Sub zusammenf()
x = ActiveCell.Column
For xx = x To 256
Set cb = Columns(xx)
If cb.Interior.ColorIndex = 3 Then
cb.Columns.Cut
Columns(x).Select
ActiveSheet.Paste
x = x + 1
End If
Next
End Sub

Rückmeldung wäre nett gruß Christian
Anzeige
AW: Spalten einfügen
10.03.2006 14:02:20
Herbert
Hallo!
Dieser Code von Chris ist genau das was ich suche.
Nur seitenverkehrt.Ich stehe z.b. in P1 und müchte alles links von der Spalte zusammenführen ausschneiden und einfügen.
Bitte ein Tipp welche Zeile von dem Code das aussagt.
Momentan funktioniert es nur rechts davon.
mfG
Herbert
Anzeige
AW: Spalten einfügen
11.03.2006 04:30:33
Mustafa
Hallo Herbert
wenn mich nicht alles täuscht müsstest du aus
For xx = x To 256
daas hier machen
For xx = x To 1 Step -1
(ungetestet)
Rückmeldung ob die Antwort geholfen hat wäre nett.
Viele Grüße aus Köln.
AW: Spalten einfügen
11.03.2006 09:24:08
Herbert
Hallo!
Die Lösung passt perfekt!
vielen Dank
Herbert
Anzeige
Danke für die Rückmeldung. orT
12.03.2006 21:38:38
Mustafa
Viele Grüße aus Köln.
;

Beliebteste Forumthreads (12 Monate)

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