VBA-Forum - Das Forum zu Microsoft VBA

VBA Excel VBA Word VBA Access VBA VBScript VB C# Objective-C C++ SQL JAVA VBA (English) Jobs Übersicht

Thema	Datum	Von Nutzer	Rating	Antwort
Colorindex der Schrift abfragen (Cells())	30.12.2020 16:46:54	joerg
Colorindex der Schrift abfragen (Cells())	30.12.2020 17:43:15	volti
Colorindex der Schrift abfragen (Cells())	30.12.2020 18:52:53	joerg
Colorindex der Schrift abfragen (Cells())	30.12.2020 19:14:11	Gast93354
Colorindex der Schrift abfragen (Cells())	30.12.2020 19:26:54	joerg
Colorindex ist unzuverlässig!	31.12.2020 09:53:31	RPP63
Colorindex ist unzuverlässig!	31.12.2020 19:16:13	Gast74421
Colorindex ist unzuverlässig!	31.12.2020 19:35:09	Gast79975
@RPP63	31.12.2020 20:21:59	Mase

Ansicht des Beitrags:

Von:
volti

Datum:
30.12.2020 17:43:15

Views:
500

Rating:

Antwort:

Thema:
Colorindex der Schrift abfragen (Cells())

Hallo Joerg,

Du kannst nicht Range und Cells in dieser Form verschachteln. Hier reicht es, nur cells zu verwenden.

Abr was willst Du eigentlich erreichen. Du hast ja auch die Werte für Z und S nicht gesetzt. s wird sofort einen Fehler geben.

Der Code sieht so aus, als wenn Du von rechts kommend in Zeile Z das erste Feld mit dem Farbindex 0 finden wolltest. Ist das richtig?

Damit die Schleife bei nicht gefundener Farbe in einen Fehler springt solltest Du noch einen Rausspringer einbauen.

			Code:

							01

							02

							03

							04

							05

							06

							07

							08

							09

							10

							11

							12
						
								Sub Test()

								  Dim Z As Long, S As Integer

								  Z = 1

								  S = ActiveSheet.Cells(Z, Columns.Count).End(xlToLeft).Column

								  Do Until ActiveSheet.Cells(Z, S).Font.ColorIndex = 0

								     S = S - 1

								     If S < 1 Then Exit Do

								  Loop

								  Debug.Print S

								End Sub

_________
viele Grüße
Karl-Heinz

Ihre Antwort

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema:		Name:		Email:

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema	Datum	Von Nutzer	Rating	Antwort
Colorindex der Schrift abfragen (Cells())	30.12.2020 16:46:54	joerg
Colorindex der Schrift abfragen (Cells())	30.12.2020 17:43:15	volti
Colorindex der Schrift abfragen (Cells())	30.12.2020 18:52:53	joerg
Colorindex der Schrift abfragen (Cells())	30.12.2020 19:14:11	Gast93354
Colorindex der Schrift abfragen (Cells())	30.12.2020 19:26:54	joerg
Colorindex ist unzuverlässig!	31.12.2020 09:53:31	RPP63
Colorindex ist unzuverlässig!	31.12.2020 19:16:13	Gast74421
Colorindex ist unzuverlässig!	31.12.2020 19:35:09	Gast79975
@RPP63	31.12.2020 20:21:59	Mase