Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 08:08:24
Pivot Vormonatsveränderung
26.04.2024 07:54:11
nur den ersten Eintrag in spalte zählen
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
884to888
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
884to888
884to888
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Brauche dringend HILFE!!

Brauche dringend HILFE!!
05.07.2007 18:09:33
Stefan
Hallo,
da ich mich in VBA nur sehr mäßig auskenne bitte ich Euch um mithilfe.
Für ein Projekt benötige ich mehr als die drei vorgegebenen bedingten Formatierungen!
Das Projekt geht dahin, dass sowohl der Name (insgesamt 15 Namen), als auch die Daten der Personen (7 felder rechts neben dem Namen) mit der selben Hintergrundfarbe hinterlegt werden sollen, wenn man den Namen in die erste Zelle eingibt.
Bitte helft einem absoluten Anfänger
Danke

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Brauche dringend HILFE!!
05.07.2007 18:16:00
Stefan
Hallo Hajo_Zi
Das hab ich schon ausprobiert.
Nur wenn ich im VBA-Code statt Case "A" Case "Name" eingebe funktioniert es nicht mehr
Stefan D.

AW: Brauche dringend HILFE!!
05.07.2007 18:18:00
Hajo_Zi
Hallo Stefan,
dazu kann ich nichts schreiben da ich es ablehne über das Internet auf fremde Rechner zu schauen.
Gruß Hajo

AW: Brauche dringend HILFE!!
05.07.2007 18:24:05
Hajo_Zi
Hallo Stefan,
keine neuen Erkenntnise seit meinem letzten Beitrag.
Gruß Hajo

Anzeige
AW: Brauche dringend HILFE!!
05.07.2007 18:27:00
Stefan
Hallo!
Es tut mir leid, dass ich dich so nerve aber ich würde es nicht tun wenn es nicht dringend wäre.
Kannst du mir vielleicht meinen code durchsehen? Vielleicht erkennst du ja einen Fehler:
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim RaBereich As Range, RaZelle As Range
Set RaBereich = Range("C6:C50")
Set RaBereich = Intersect(RaBereich, Range(Target.Address))
If RaBereich Is Nothing Then Exit Sub
For Each RaZelle In RaBereich
With Range(RaZelle.Address, RaZelle.Offset(0, 5).Address)
Select Case UCase(RaZelle.Value)
Case "Heinz"
.Interior.ColorIndex = 3
Case "Ralf"
.Interior.ColorIndex = 6
Case Else
.Interior.ColorIndex = xlNone
End Select
End With
Next RaZelle
Set RaBereich = Nothing
End Sub


Anzeige
AW: Brauche dringend HILFE!!
05.07.2007 18:28:00
Hajo_Zi
Hallo Stefan,
Du wandelst die Eingabe in Großbuchstaben um und vergleichst es dann mit Kleinbuchstaben. Da wird niemals eine Übereinstimung zu Stande kommen.
Gruß Hajo

AW: Brauche dringend HILFE!!
05.07.2007 18:32:52
Stefan
dann kann ich die Zeilen "Select Case UCase(RaZelle.Value)" und "End Select" einfach entfernen und dann müsste es funktionieren oder?

AW: Brauche dringend HILFE!!
05.07.2007 18:52:00
Stefan
Hallo Hajo,
vielen Dank!! Jetzt funktionierts!
Danke nochmals
Gruß
Stefan

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige