VBA-Forum - Das Forum zu Microsoft VBA

Ansicht des Beitrags:

Von: jh	Datum: 12.11.2008 17:32:24	Views: 1017	Rating:	Antwort:
Thema: Aw:Ereignis
Hallo "...ist die Zelle rot eingefärbt..." Was soll rot sein, der Zellhintergrund (Interior) oder die Schrift (Font). Unten stehen beide Möglichkeiten. Problem dabei ist, dass die Farbe wirklich Rot (Farbwert &H0000FF, dezimal 255) ist und nicht dunkelrot oder hellrot oder altrosa... Aus praktischen Gründen ist eine Prüfung eingebaut, ob in der roten Zelle eine Zahl steht (IsNumeric) sowie eine Fehlerbehandlung, die den Fehler abfängt, wenn die angegebene Tabellennummer gar nicht existiert (kann ja passieren). Der Code ist zwar weitgehend selbsterklärend, wenn du noch Fragen hast, melde dich noch mal. Private Sub Worksheet_BeforeRightClick(ByVal Target _ As Excel.Range, Cancel As Boolean) Cancel = True If Target.Row = 2 Then If Target.Interior.Color = vbRed Then ' oder: ' If Target.Font.Color = vbRed Then If IsNumeric(Target.Value) Then On Error GoTo MissingSheet Worksheets(Target.Value).Activate On Error GoTo 0 End If Else MsgBox "BlaBlaBla..." End If End If Exit Sub MissingSheet: MsgBox "Die gewählte Tabelle existiert nicht.", vbOKOnly + _ vbCritical, "Fehler" Err.Clear End Sub Gruß

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