Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
740to744
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
740to744
740to744
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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.

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
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
Danke für die Rückmeldung. orT
12.03.2006 21:38:38
Mustafa
Viele Grüße aus Köln.

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige