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

Evaluation des grössten ColorIndexes

Evaluation des grössten ColorIndexes
18.10.2005 11:08:53
Gérard
Guten Morgen
Mit der untenstehender Prozedur verursache ich einen Fehler (100 ist zu gross). Wie kann ich die Schleife überwachen damit ich den grössten ColorIndex eruieren kann ohne eine Fehlermeldung zu generieren?

Sub Farbindex()
Dim i As Integer
Sheets("Verzweigungen").Activate
Range("A30").Select
For i = 1 To 100
ActiveCell.Offset(0, i).Interior.ColorIndex = i
ActiveCell.Offset(1, i).Value = "Index " & i
Next
End Sub

Danke für die Rückmeldungen
Gérard

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

Betreff
Datum
Anwender
Anzeige
AW: Evaluation des grössten ColorIndexes
18.10.2005 11:23:54
Heiko
Hallo Gerad,
mehr als 56 Farben in Zellen gehen nicht.

Sub Farbindex()
Dim i As Integer
Sheets("Tabelle1").Activate
Range("A1").Select
On Error GoTo errorhandler
For i = 1 To 100
ActiveCell.Offset(0, i).Interior.ColorIndex = i
ActiveCell.Offset(1, i).Value = "Index " & i
Next
Exit Sub
errorhandler:
MsgBox "Größter ColorIndex = " & i - 1, vbInformation
End Sub

Gruß Heiko

PS: Rückmeldung wäre nett !
AW: Evaluation des grössten ColorIndexes
18.10.2005 15:29:25
Gérard
Hallo Heiko
Sehr guter Hinweis mit dem Errorhänlder.
Herzlichen Dank
Gérard
AW: Evaluation des grössten ColorIndexes
18.10.2005 11:28:58
Adi
Hallo Gérard,
ein "Quick 'n Dirty"-Lösung wäre:
Sheets("Verzweigungen").Activate
Range("A30").Select
For i = 1 To 100
On Error Resume Next
ActiveCell.Offset(0, i).Interior.ColorIndex = i
ActiveCell.Offset(1, i).Value = "Index " & i
Next
End Sub
Das widerstrebt aber u.U. dem Programmierer-Herz.
Gruss Adi
Anzeige
AW: Evaluation des grössten ColorIndexes
18.10.2005 15:31:32
Gérard
Danke Adi
Quick and Dirty but it runs properly.
Eine schöne Zeit wünsche ich dir.
Gérard

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige