Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 15:34:42
Überlagernde Textbox-Ansicht
26.04.2024 15:27:20
Excel öffnet nach Auswahl einer Excel diese leer
26.04.2024 12:46:38
Nutzereingaben Speichern und Laden
26.04.2024 11:49:48
VAB und Bedingte Formatierung nimmt die Farbe im Makro nicht
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
320to324
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
320to324
320to324
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Probleme mit VBA-Code

Probleme mit VBA-Code
07.10.2003 20:28:52
Thomas
Guten Abend,
bitte helft mir bei meinem Problem...

Habe aus dem Archiv ein Code entnommen, damit ich die Bedingte Formatierung erweitern kann.
Leider weiß ich gar nicht wie oder wo ich diesen Code einsetzen muß.

Der Code ist wie folgt:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'    If Target.Row < 11 And Target.Column = 1 Then
Select Case Target.Value
Case "A"
Target.Interior.ColorIndex = 3
Case "B"
Target.Interior.ColorIndex = 5
Case "C"
Target.Interior.ColorIndex = 4
Case "10"
Target.Interior.ColorIndex = 6
Case "20"
Target.Interior.ColorIndex = 8
End Select
'    End If
End Sub


Bitte helft mir aber so, daß ich dies auch verstehe da ich keine Ahnung von VBA habe.
Bitte detailierte Angaben, sonst verstehe ich es bestimmt nicht...

Vielen Dank im vorraus...

Gruß Thomas

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Probleme mit VBA-Code
07.10.2003 20:30:50
Hajo_Zi
Hallo Thomas

schaue mal auf meine Homepage a iegt eine Beispieldatei.

Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.

http://home.media-n.de/ziplies/

AW: Probleme mit VBA-Code
07.10.2003 21:36:11
Thomas
Okay habe es in meiner Tabelle ausprobiert und geht auch, allerdings ist dann mein Problem noch nicht gelöst...

Jetzt noch eine Frage:
Ist es möglich über die Bedingte Formatierung, und zwar von A30 bis A5000 eine farbliche Formatierung hinzubekommen, bei der eine Formel 3 verschiedene Farbmarkierungen ergibt...?

Habe in meiner Tabelle eine Bedingte Formatierung schon verbraucht,müsste aber wenn Werte zwischen 1600 und 1622 im Zellbereich A30-A5000 angezeigt werden,rot markiert werden und beim gleichen Zellbereich bei einem Wert von 1008 soll diese dann blau eingefärbt werden.Bei einem Wert von 1010 und 1011 sollen die Zellen grün markiert werden.

Hoffentlich klappt es nun...!?!

Gruß Thomas
Anzeige
AW: Probleme mit VBA-Code
07.10.2003 21:43:58
Hajo_Zi
Hallo Thomas

das ist doch nur noch eine Anpassung dess Codes.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'   erstellt von Hajo.Ziplies@web.de 07.10.03
'   HINTERGRUND
'   für Schrift RaZelle.Font.ColorIndex
Dim RaBereich As Range, RaZelle As Range
' Bereich der Wirksamkeit
Set RaBereich = Range("A30:A5000 ")
'    ActiveSheet.Unprotect
For Each RaZelle In Range(Target.Address)
If Not Intersect(RaZelle, RaBereich) Is Nothing Then
Select Case RaZelle.Value
Case 1600 To 1622
RaZelle.Interior.ColorIndex = 3
Case 1008
RaZelle.Interior.ColorIndex = 5
Case 1010 To 1011
RaZelle.Interior.ColorIndex = 4
Case Else
RaZelle.Interior.ColorIndex = xlNone
' Keine
End Select
End If
Next RaZelle
'    ActiveSheet.protect
Set RaBereich = Nothing
End Sub


Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.

http://home.media-n.de/ziplies/

Anzeige
AW: Probleme mit VBA-Code
07.10.2003 22:07:32
Thomas
Jaja schon klar, das habe ich ja auch gemacht, allerding gibt es ein Probleme, denn in dieser Tabelle werden die Daten aus einer anderen Tabelle üb diese Formel bezogen:
=WENN(INDIREKT(ADRESSE(ZEILE()-26;1;;;$A$16))=0;"";INDIREKT(ADRESSE(ZEILE()-26;1;;;$A$16)))

Und dann zeigt er mir keine Formatierung an.

Oder wissen Sie vielleicht eine andere Lösung dafür...?

Gruß Thomas
AW: Probleme mit VBA-Code
08.10.2003 07:05:13
Thomas
Jaja schon klar, das habe ich ja auch gemacht, allerding gibt es ein Probleme, denn in dieser Tabelle werden die Daten aus einer anderen Tabelle üb diese Formel bezogen:
=WENN(INDIREKT(ADRESSE(ZEILE()-26;1;;;$A$16))=0;"";INDIREKT(ADRESSE(ZEILE()-26;1;;;$A$16)))

Und dann zeigt er mir keine Formatierung an.

Oder wissen Sie vielleicht eine andere Lösung dafür...?

Gruß Thomas
Anzeige
AW: Probleme mit VBA-Code
08.10.2003 16:36:26
Thomas
Jaja schon klar, das habe ich ja auch gemacht, allerding gibt es ein Probleme, denn in dieser Tabelle werden die Daten aus einer anderen Tabelle üb diese Formel bezogen:
=WENN(INDIREKT(ADRESSE(ZEILE()-26;1;;;$A$16))=0;"";INDIREKT(ADRESSE(ZEILE()-26;1;;;$A$16)))

Und dann zeigt er mir keine Formatierung an.

Oder wissen Sie vielleicht eine andere Lösung dafür...?

Gruß Thomas


Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige