Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
404to408
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
404to408
404to408
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

whileschleife......zellenverbinden

whileschleife......zellenverbinden
ataktiker
hallo,
mein problem ist ich möchte in einer while schleife abfragen ob
bis zur zelle cells(6,168) die zellen die eine oder eine andere farbe haben.
alle zellen mit der gleichen farbe die nebeneinander liegen (farbindex 45 und 50) sollen zu einer zelle werden. also wenn 30 zellen hellgrün sind daruf folgen 31 dunkelgrüne zellen, danach folgen wieder 30 hellgrüne zellen.
zum schluß sollen dann 3 zellen nur noch da sein. die ersten 30 hellgrünen zu einer die nächsten 31 dunkelgünen zu einer und die letzten 30 hellgrünen auch wieder zu einer. etc....
wenn ich mich unverständlich ausgedrückt habe dann kann ich euch auch das .xls zuschicken.
Danke
christian

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: whileschleife......zellenverbinden
ataktiker
ich habs mal auf den server gestellt
AW: whileschleife......zellenverbinden
Christoph
Hi Christian,
so z.B:
Gruß
Christoph
('ne Rückmeldung wäre nett)
Option Explicit

Sub VerbindDat()
Dim i As Integer, x As Integer
x = 5
Rows(5).UnMerge
For i = 5 To 186
If Cells(5, i + 1).Interior.ColorIndex <> _
Cells(5, i).Interior.ColorIndex Then
Range(Cells(5, x), Cells(5, i)).Merge
x = i + 1
End If
Next i
End Sub

AW: whileschleife......zellenverbinden
13.04.2004 08:17:04
christian
danke für die hilfe, war aber gerade im urlaub und konnte es noch net ausprobieren.
jetzt funkt aber alles! Danke
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige