Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1992to1996
1992to1996
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bestimmte Zellen farbig geht nur teilweise

Forumthread: Bestimmte Zellen farbig geht nur teilweise

Bestimmte Zellen farbig geht nur teilweise
21.10.2024 15:33:52
Dieter
Hey all,
Habe eine Userform mit mehreren Checkboxen.
Über den Checkboxen lasse ich mir mit Sverweis
verschiede Dinge in den Zellen meines Kalenders farbig anzeigen.
Es geht auch alles bei denen max. 2 Dinge angezeigt werden, nur
bei dem letzten Verweis wo Feier, Geburt, Alter angezeigt werden sollen,
wird mir jeweils die ganze Spalte farbig markiert bis Ende Tabelle
und nicht nur die jeweiligen Zellen.
Hier geht es zB. 
If CheckBox4 = True Then   ' Geburtstag und Alter anzeigen

  Application.ScreenUpdating = False

  Application.EnableEvents = False

CheckBox1 = False

CheckBox2 = False

CheckBox3 = False

CheckBox5 = False

   Range("A3:X67").Interior.Color = -4142

   Range("C3:C33,G3:G33,K3:K33,O3:O33," & _

        "S3:S33,W3:W33,C37:C67,G37:G67,K37:K67,O37:O67,S37:S67,W37:W67").ClearContents

For Each sp In Array(3, 7, 11, 15, 19, 23)

    With Sheets("Kalender").Cells(3, sp).Resize(67 - 3 + 1, 1)

           .FormulaR1C1Local = "=WENNFEHLER(SVERWEIS(ZS(-2);Geburtstag;2;FALSCH);"""")&"" ""&WENNFEHLER(SVERWEIS(ZS(-2);Alter;4;FALSCH);"""")"   ' Geburtstag und Alter anzeigen

         .Formula = .Value

        .Replace " ", "", xlWhole

    If WorksheetFunction.CountA(.Cells) > 0 Then .SpecialCells(xlCellTypeConstants, 2).Interior.ColorIndex = 34

     End With

Next

        Sheets("Kalender").Range("L1, L35").Value = "Geburtstags Alters Kalender" & "   " & Range("W1")   'datum

          Application.ScreenUpdating = True

          Application.EnableEvents = True

Range("C1").Select

CheckBox4 = False

CheckBox1.Visible = True    'True einblenden False ausblenden

CheckBox2.Visible = True

CheckBox3.Visible = True

CheckBox5.Visible = True

userform2.Hide

End If


Und hier nicht mehr: 
If CheckBox5 = True Then   ' Feiert. u.Geburtstag und Alter anzeigen

  Application.ScreenUpdating = False

  Application.EnableEvents = False

CheckBox1 = False

CheckBox2 = False

CheckBox3 = False

CheckBox4 = False

   Range("A3:X67").Interior.Color = -4142

   Range("C3:C33,G3:G33,K3:K33,O3:O33," & _

        "S3:S33,W3:W33,C37:C67,G37:G67,K37:K67,O37:O67,S37:S67,W37:W67").ClearContents

For Each sp In Array(3, 7, 11, 15, 19, 23)

    With Sheets("Kalender").Cells(3, sp).Resize(67 - 3 + 1, 1)

          .FormulaR1C1Local = "=WENNFEHLER(SVERWEIS(ZS(-2);Feiertag;2;FALSCH);"""")&"" ""&WENNFEHLER(SVERWEIS(ZS(-2);Geburtstag;2;FALSCH);"""")&"" ""&WENNFEHLER(SVERWEIS(ZS(-2);Alter;4;FALSCH);"""")"

         .Formula = .Value

        .Replace " ", "", xlWhole

    If WorksheetFunction.CountA(.Cells) > 0 Then .SpecialCells(xlCellTypeConstants, 2).Interior.ColorIndex = 34

     End With

Next

        Sheets("Kalender").Range("L1, L35").Value = "Feier u.Geburtstags Alters Kalender" & "   " & Range("W1")   'datum

          Application.ScreenUpdating = True

          Application.EnableEvents = True

Range("C1").Select

CheckBox5 = False

CheckBox1.Visible = True    'True einblenden False ausblenden

CheckBox2.Visible = True

CheckBox3.Visible = True

CheckBox4.Visible = True

userform2.Hide

End If

End Sub


Ich vermute es liegt an dieser Zeile ?,
weil die immer gleich ist und da werden die Zellen farbig makiert. 
    If WorksheetFunction.CountA(.Cells) > 0 Then .SpecialCells(xlCellTypeConstants, 2).Interior.ColorIndex = 34

Wo liegt mein Fehler ?
Schon mal vielen Dank der Hilfe
Lg
Dieter
Anzeige

15
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bestimmte Zellen farbig geht nur teilweise
21.10.2024 15:38:10
Onur
Der Code ohne die dazugehörige Datei bringt nicht viel....
AW: Bestimmte Zellen farbig geht nur teilweise
22.10.2024 12:08:48
Dieter
Hey Onur,
Es ist schwierig die Datei oder einen Auszug hoch zu laden,
da sehr viele Tabellen daran hängen. ist sehr komplex.
Wie gesagt, alle Zellen farbig machen geht bis auf dem letzten Teil.
Es werden die Zellen richtig beschrieben mit Feiertag, Geburtstag und Alter
nur die Spalten werden komplett farbig erstellt und nicht nur die Zellen jeweils.
Vielleicht noch erwähnt, das Feiertag, Geburtstag, Alter jeweils in einer Zelle stehen.
Hier ist mal der Code wo aus der UF die Ceckboxen ausgelöst werden.
Vielleicht reicht das jetzt ? 
Private Sub CommandButton7_Click()      ' Sverweis für Feiertag - Geburtstag Alter setzen

Userform2.Show

Exit Sub


Private Sub CommandButton3_Click()

    Dim sp

    Dim rng1 As Range, rng2 As Range

    Dim ws As Worksheet

  Application.ScreenUpdating = False

  Application.EnableEvents = False

If CheckBox1 = True Then   ' nur Feiertag anzeigen

For Each ws In ActiveWorkbook.Worksheets    ' Autofilter in allen Mappen False = löschen

   If ws.AutoFilterMode = True Then

    ws.AutoFilterMode = False

   End If

Next ws

   Range("A3:X67").Interior.Color = -4142

   Range("C3:C33,G3:G33,K3:K33,O3:O33," & _

        "S3:S33,W3:W33,C37:C67,G37:G67,K37:K67,O37:O67,S37:S67,W37:W67").ClearContents



For Each sp In Array(3, 7, 11, 15, 19, 23)

    With Sheets("Kalender").Cells(3, sp).Resize(67 - 3 + 1, 1)

           .FormulaR1C1Local = "=WENNFEHLER(SVERWEIS(ZS(-2);Feiertag;2;FALSCH);"""")" ' nur Feiertag anzeigen

         .Formula = .Value

        .Replace " ", "", xlWhole

    If WorksheetFunction.CountA(.Cells) > 0 Then .SpecialCells(xlCellTypeConstants, 2).Interior.ColorIndex = 34

     End With

Next

End If

        Sheets("Kalender").Range("L1, L35").Value = "Feiertstags Kalender" & "   " & Range("W1")   'datum

          Application.ScreenUpdating = True

          Application.EnableEvents = True

Range("C1").Select

CheckBox1 = False

CheckBox2.Visible = True    'True einblenden False ausblenden

CheckBox3.Visible = True

CheckBox4.Visible = True

CheckBox5.Visible = True

userform2.Hide



'---------------------------------------------------------------------



If CheckBox2 = True Then  ' nur Geburtstag aneigen

  Application.ScreenUpdating = False

  Application.EnableEvents = False

CheckBox1 = False

CheckBox3 = False

CheckBox4 = False

CheckBox5 = False

   Range("A3:X67").Interior.Color = -4142

   Range("C3:C33,G3:G33,K3:K33,O3:O33," & _

        "S3:S33,W3:W33,C37:C67,G37:G67,K37:K67,O37:O67,S37:S67,W37:W67").ClearContents



For Each sp In Array(3, 7, 11, 15, 19, 23)

    With Sheets("Kalender").Cells(3, sp).Resize(67 - 3 + 1, 1)

           .FormulaR1C1Local = "=WENNFEHLER(SVERWEIS(ZS(-2);Geburtstag;2;FALSCH);"""")"

         .Formula = .Value

        .Replace " ", "", xlWhole

    If WorksheetFunction.CountA(.Cells) > 0 Then .SpecialCells(xlCellTypeConstants, 2).Interior.ColorIndex = 34

     End With

Next

        Sheets("Kalender").Range("L1, L35").Value = "Geburtstags Kalender" & "   " & Range("W1")   'datum

          Application.ScreenUpdating = True

          Application.EnableEvents = True

Range("C1").Select

CheckBox2 = False

CheckBox1.Visible = True    'True einblenden False ausblenden

CheckBox3.Visible = True

CheckBox4.Visible = True

CheckBox5.Visible = True

userform2.Hide



End If

'---------------------------------------------------------------------



If CheckBox3 = True Then    ' Feiert. u. Geburt anzeigen

  Application.ScreenUpdating = False

  Application.EnableEvents = False

CheckBox1 = False

CheckBox2 = False

CheckBox4 = False

CheckBox5 = False

   Range("A3:X67").Interior.Color = -4142

   Range("C3:C33,G3:G33,K3:K33,O3:O33," & _

        "S3:S33,W3:W33,C37:C67,G37:G67,K37:K67,O37:O67,S37:S67,W37:W67").ClearContents

For Each sp In Array(3, 7, 11, 15, 19, 23)

    With Sheets("Kalender").Cells(3, sp).Resize(67 - 3 + 1, 1)

           .FormulaR1C1Local = "=WENNFEHLER(SVERWEIS(ZS(-2);Feiertag;2;FALSCH);"""")&"" ""&WENNFEHLER(SVERWEIS(ZS(-2);Geburtstag;2;FALSCH);"""")"

         .Formula = .Value

        .Replace " ", "", xlWhole

    If WorksheetFunction.CountA(.Cells) > 0 Then .SpecialCells(xlCellTypeConstants, 2).Interior.ColorIndex = 34

     End With

Next



        Sheets("Kalender").Range("L1, L35").Value = "Feier u. Geburtstags Kalender" & "   " & Range("W1")   'datum

          Application.ScreenUpdating = True

          Application.EnableEvents = True

Range("C1").Select

CheckBox3 = False

CheckBox1.Visible = True    'True einblenden False ausblenden

CheckBox2.Visible = True

CheckBox4.Visible = True

CheckBox5.Visible = True

userform2.Hide



End If

'---------------------------------------------------------------------



If CheckBox4 = True Then   ' Geburtstag und Alter anzeigen

  Application.ScreenUpdating = False

  Application.EnableEvents = False

CheckBox1 = False

CheckBox2 = False

CheckBox3 = False

CheckBox5 = False

   Range("A3:X67").Interior.Color = -4142

   Range("C3:C33,G3:G33,K3:K33,O3:O33," & _

        "S3:S33,W3:W33,C37:C67,G37:G67,K37:K67,O37:O67,S37:S67,W37:W67").ClearContents

For Each sp In Array(3, 7, 11, 15, 19, 23)

    With Sheets("Kalender").Cells(3, sp).Resize(67 - 3 + 1, 1)

           .FormulaR1C1Local = "=WENNFEHLER(SVERWEIS(ZS(-2);Geburtstag;2;FALSCH);"""")&"" ""&WENNFEHLER(SVERWEIS(ZS(-2);Alter;4;FALSCH);"""")"   ' Geburtstag und Alter anzeigen

         .Formula = .Value

        .Replace " ", "", xlWhole

    If WorksheetFunction.CountA(.Cells) > 0 Then .SpecialCells(xlCellTypeConstants, 2).Interior.ColorIndex = 34

     End With

Next



        Sheets("Kalender").Range("L1, L35").Value = "Geburtstags Alters Kalender" & "   " & Range("W1")   'datum

          Application.ScreenUpdating = True

          Application.EnableEvents = True

Range("C1").Select

CheckBox4 = False

CheckBox1.Visible = True    'True einblenden False ausblenden

CheckBox2.Visible = True

CheckBox3.Visible = True

CheckBox5.Visible = True

userform2.Hide



End If

'---------------------------------------------------------------------



If CheckBox5 = True Then   ' Feiert. u. Geburtstag mit Alter anzeigen

  Application.ScreenUpdating = False

  Application.EnableEvents = False

CheckBox1 = False

CheckBox2 = False

CheckBox3 = False

CheckBox4 = False

   Range("A3:X67").Interior.Color = -4142

   Range("C3:C33,G3:G33,K3:K33,O3:O33," & _

        "S3:S33,W3:W33,C37:C67,G37:G67,K37:K67,O37:O67,S37:S67,W37:W67").ClearContents

For Each sp In Array(3, 7, 11, 15, 19, 23)

    With Sheets("Kalender").Cells(3, sp).Resize(67 - 3 + 1, 1)

          .FormulaR1C1Local = "=WENNFEHLER(SVERWEIS(ZS(-2);Feiertag;2;FALSCH);"""")&"" ""&WENNFEHLER(SVERWEIS(ZS(-2);Geburtstag;2;FALSCH);"""")&"" ""&WENNFEHLER(SVERWEIS(ZS(-2);Alter;4;FALSCH);"""")"

         .Formula = .Value

        .Replace " ", "", xlWhole

    If WorksheetFunction.CountA(.Cells) > 0 Then .SpecialCells(xlCellTypeConstants, 2).Interior.ColorIndex = 34

     End With

Next



        Sheets("Kalender").Range("L1, L35").Value = "Feier u.Geburtstags Alters Kalender" & "   " & Range("W1")   'datum

          Application.ScreenUpdating = True

          Application.EnableEvents = True

Range("C1").Select

CheckBox5 = False

CheckBox1.Visible = True    'True einblenden False ausblenden

CheckBox2.Visible = True

CheckBox3.Visible = True

CheckBox4.Visible = True

userform2.Hide



End If



End Sub



Private Sub CommandButton4_Click()       'abbrechen der UF

    CheckBox1 = False   'False Haken entfernen True gesetzt lassen

    CheckBox2 = False

    CheckBox3 = False

    CheckBox4 = False

    CheckBox5 = False

CheckBox1.Visible = True    'True einblenden False ausblenden

CheckBox2.Visible = True

CheckBox3.Visible = True

CheckBox4.Visible = True

CheckBox5.Visible = True

userform2.Hide

    Sheets("Kalender").Range("C1").Select

End Sub

Lg
Dieter
Anzeige
AW: Bestimmte Zellen farbig geht nur teilweise
22.10.2024 12:18:32
Onur
Du kapierst es nicht: Ich werde bestimmt nicht einen auf eine Datei massgeschneiderten Code anfangen zu analysieren, wenn ich die Datei dazu (z.B. zum Testen) nicht habe.,
Ausserdem kann man ohne die Datei höchstens auf Symtaxfehler usw untersuchen, aber nicht wo der Code warum falsch läuft.
All die Blätter, die nicht den Code betreffen kannst du doch zum Hochladen löschen - Hauptsache die Datei funktioniert noch.
Anzeige
AW: Bestimmte Zellen farbig geht nur teilweise
22.10.2024 17:12:01
Dieter
Hey Onur,
Das hat mit kapieren nix zu tun, ich weiß selber das es mit der ganzen
Datei besser ginge zum nachforschen. Ich sagte aber auch das die Datei sehr komplex ist
und ich sie deswegen extra auseinander reißen müsste was nicht mal eben geht
bis Sie wieder oder so läuft zum kontrollieren für Dich. Ich verstehe Dich schon.
Aber Du verstehe mich auch bitte.
Vielleicht hat ja noch jemand eine Idee ohne Dir was zu wollen.
Du hast mir schon mehr wie einmal geholfen bei Problemen
wo ich Dir auch immer wieder dankbar für bin.
Lg
Dieter
Anzeige
AW: Bestimmte Zellen farbig geht nur teilweise
22.10.2024 17:19:04
onur
Kannst du sie mir denn wenigstens als Mail schicken, wenn ich dir eine Mailadresse poste ?
AW: Bestimmte Zellen farbig geht nur teilweise
24.10.2024 12:37:51
Dieter
Hey Onur,
Danke für Dein Angebot, wir versuchen es das letzte mal so.
Ich habe mir mal die Arbeit gemacht alles rauszunehmen
was nicht dazu gehört und denke jetzt kannst Du damit was anfangen.
https://www.herber.de/bbs/user/173133.xlsm
In der UF die untere Combobox da siehst Du den unterschied zu den anderen,
und da ist irgendwo der Fehler.
Lg
Dieter

Anzeige
AW: Bestimmte Zellen farbig geht nur teilweise
24.10.2024 12:50:57
Eifeljoi 5
Hallo

Solchen Kalender könnte man auch ganz ohne VBA machen mit PQ.
Warum VBA?
AW: Bestimmte Zellen farbig geht nur teilweise
26.10.2024 12:13:09
Dieter
Hallo Onur,
Danke für die Überarbeitung des Codes.
So wie er ist läuft er, aber es sind keine Leerzeichen zwischen den Namen.
Über den Formeln habe ich Leerzeichen drin, aber wenn ich das zwischen der letzten Formel
mache ist das selbe wie vorher. Die gesamten Spalten werden farbig.
Alt 
          .FormulaR1C1Local = "=WENNFEHLER(SVERWEIS(ZS(-2);Feiertag;2;FALSCH);"""")&""""&WENNFEHLER(SVERWEIS(ZS(-2);Geburtstag;2;FALSCH);"""")&""""&WENNFEHLER(SVERWEIS(ZS(-2);Alter;4;FALSCH);"""")"

Neu 
          .FormulaR1C1Local = "=WENNFEHLER(SVERWEIS(ZS(-2);Feiertag;2;FALSCH);"""")&"" ""&WENNFEHLER(SVERWEIS(ZS(-2);Geburtstag;2;FALSCH);"""")&"" ""&WENNFEHLER(SVERWEIS(ZS(-2);Alter;4;FALSCH);"""")"

Könntest Du da noch mal drüber schauen bitte.
Hier ist Deine geänderte Datei, mit meiner geänderter Formel für Leerzeichen zwischen den Namen.
https://www.herber.de/bbs/user/173168.xlsm
Lg
Dieter
Anzeige
AW: Bestimmte Zellen farbig geht nur teilweise
26.10.2024 12:22:48
Onur
Ich habe die Leerzeichen weggemacht, damit es endlich funktioniert.
"keine Leerzeichen zwischen den Namen" ? Zwischen welchen Namen denn? Wozu Leerzeichen statt ""?
AW: Bestimmte Zellen farbig geht nur teilweise
29.10.2024 12:14:16
Dieter
Hey Onur,
Ich weiß nicht genau was Du meinst,
Mit den Leerzeilen wollte ich es schöner machen.
Es sieht ja jetzt so aus, Neujahrheidy70J bei Deinem Code und meiner Formel.
Wenn jetzt über die Formel statt &"" ""& bei Alter so &""""& schreibe
Kommt im Kalender Neujahr Heidy70J raus bei Deinem Code.
Gerne würde ich aber das es so Neujahr Heidy 70J aussieht.
Außerdem ist mir aufgefallen, in meiner Organalen Tabelle,
würde der alte Code auch laufen wenn ich das &"" ""& in &""""& ändere in meiner Formel.
Aber dabei käme das selbe raus wie oben
und nicht wie ich es gerne hätte.
Wenn das alles zu kompliziert ist, dann lassen wir es dabei wie es ist
und ich würde mir dann vielleicht was anderes dazu einfallen lassen bis es mir gefällt.
Du hast ja auch noch andere Dinge zu erledigen wie sich nur mit meinem Fall zu beschäftigen.
Aber wie immer bin ich Dir dankbar der Hilfe.
Lg aus dem Ruhrpott
Dieter
Anzeige
AW: Bestimmte Zellen farbig geht nur teilweise
29.10.2024 16:32:02
Onur
Ich habe mal deinen Codeversuch neu geschrieben. Analysiere ihn und lerne mal etwas daraus (z.B. was "Excel gut, VBA gut" wirklich bedeutet :)

https://www.herber.de/bbs/user/173232.xlsm

AW: Bestimmte Zellen farbig geht nur teilweise
29.10.2024 16:36:36
Onur
Bitte letzte Zeile innerhalb der Sub auf
Application.ScreenUpdating = true
korrigieren.
Anzeige
AW: Bestimmte Zellen farbig geht nur teilweise
02.11.2024 14:03:19
Dieter
Hallo Onur,
Da hast Du dir doch die Arbeit und Mühe gemacht um mir zu helfen.
Was soll ich sagen, vielen vielen Dank Deiner Arbeit und Mühe.
ich muss mich erst einmal da durch fuchsen weil da ja überall Änderungen sind.
Vom Code, Bedingte Formatierung usw.
Ich verstehe nur nicht ganz Deine Aussage Zitat:
lerne mal etwas daraus (z.B. was "Excel gut, VBA gut" wirklich bedeutet :)
Ich habe gedacht, mit meinem Wissen, wäre die Aussage für das Forum gut.
Ich werde beim Nächsten mal herabstufen wenn ich einen neuen Beitrag eröffne.
Bis ich dahin komme wo Du stehst mit dem Wissen, vergehen noch paar Jahre,
und ich glaube von der Zeit her schaffe ich das sowieso nicht.
Aber gut jetzt,
Vielen vielen Dank nochmal Deiner Hilfe.
Ich baue jetzt erst mal die Tabelle wieder zusammen mit Deinen Änderungen.
Lg aus dem Pott
Dieter
Anzeige
AW: Bestimmte Zellen farbig geht nur teilweise
24.10.2024 16:43:24
Dieter
Hallo Eifeljoi 5,
Ja das könnte ich mir vorstellen, aber der Kalender ist nur sehr abgespeckt, wegen dem Fehler der farbigen Zellen.
In dem Kalender werden zb. auch Müll Abfuhr-Termine mit Pics der Tonnen eingesetzt, ein Putzplan, Doppelklick Optionen,
Zellen-Bearbeitung über Zelldropdown, ein Schichtplan wird intrigiert,
bestimmte Druckoptionen und noch einiges mehr gemacht,
deswegen habe ich am Anfang auch geschrieben das dieser Kalender Sehr komplex ist.
Ich habe aus vielen einzelnen Tabellen einen großen gemacht damit es für mich einfacher ist.
und es kann immer noch was dazu kommen.
Und zuletzt mit PQ kenne ich mich absolut überhaut nicht aus.
Aber trotzdem danke.
MfG.
Dieter
Anzeige
;

Forumthreads zu verwandten Themen

Zellen farbig markieren
chrisss

Hallo,
ist es eigentlich bei Excel 2007 nun möglich, dass bei einer Wenn-Funktion eine Zelle farbig ausgefüllt wird. Beispiel: Wenn in Tabelle 1 in A1 ein U steht, soll die Zelle A1 in Tabelle 2 rot ausgefüllt werden.
Ich hatte die Frage schonmal gepostet und die Antwort erhalten, dass...
21.08.2008 13:20:00
Thread-ID: 1003455
8 Beiträge
Anzeige
Text in Zelle suchen und markieren
Heiko

Hi, Excelianer,
kenne mich mit der Suche nach Strings nicht gut aus...
Ich habe mit Excel einen Kalender (händisch) erstellt mit dem Datum jeweils eines Monats in Spalte A (Text in Zelle: "01.10.2008", durch Formatierung angezeigt: "Mittwoch, 01. Oktober 2008"). Die Tabellenblätter heiß...
30.10.2008 08:21:00
Thread-ID: 1020459
5 Beiträge
Formel wenn dann zellvergleich Text
Karel

Hallo Forum,
wie kann ich Zellwert C mit Zellwert E vergleichen ausgaben in Zelle A
wenn C und D Leer dsnn A auch Leer
Tabelle1

 ABCDE2Ausgabe Textwert Textwert3Offen Bezahlt Offen4Bezahlt Bezahlt Bezahlt5Offen Bezahlt  6Of...
28.11.2008 20:04:52
Thread-ID: 1028782
5 Beiträge
Zahl einer Zelle in den Wenn-Text
die_nathan

Schönen Nachmittag,
Ist es möglich innerhalb eines Textes die Zahl einer Zelle einzufügen:
falsches Beispiel:
=wenn(A1="Ja!";"Die Gebühr von"A2"Euro ist noch zu zahlen!;"Die Gebühr wurde bereitsbezahlt."
Liebe Grüße
11.12.2008 15:35:07
Thread-ID: 1032078
6 Beiträge
trotz INDIREKT verknüpfte zellen farbig markieren
merlin

Hallo,
gibt es eine Möglichkeit trotz der Verwendung von INDIREKT die verknüpften Zellen markieren zu lassen?
https://www.herber.de/bbs/user/60118.xls
Viele Grüße, vielen Dank.
09.03.2009 11:14:37
Thread-ID: 1058088
3 Beiträge
Wenn o dann Text in A1 rot
Heinz A. Wankmüller
Hallo Jörg,dafür verwendest am besten die Bedingte Formatierung.
Setze den Cursor in die Zelle A1 und rufe Format/Bedingte Formatierung auf. Wähle anstatt Zellwert ist den Eintrag Formel ist und gib die Formel =$A$12="o" ein. Danach definierst du noch das gewünschte Format mit roter, vielleicht...
16.04.2002 17:25:23
Thread-ID: 113808
2 Beiträge
Wenn in D3 = X, Dann Text aus C3 -VBA
Wolfgang

Hallo,
über einen UF -mit entspr. OptionButton- wird in Spalte D ein X gesetzt. Wie kann ich erreichen, dass bei entsprechendem X der Text aus Spalte C in Zelle A 48 übernommen wird?
D3 = X, also C3 Text in A48 + ggfs. D5 = X, also Text C5 usw. - Der Bereich erstreckt sich dabei von D3...
07.03.2010 14:43:48
Thread-ID: 1144123
9 Beiträge
Bestimmten Inhalt in Zellen markieren
Andre

Hallo!!
Ich brauche ein Makro oder eine Formel, die mir alle Zellen mit dem Inhalt BF 01 grau hinterlegt.
In den Zellen steht allerdings vor dem BF 01 noch ein Name, der allerdings immer anders ist.
Gruß Andre
18.07.2010 21:48:50
Thread-ID: 1167659
4 Beiträge
Wenn zelle AW3, dann Farbe und Text.
Friedrich

Guten Abend liebe Excel-Spezis,
ich brauche in VBA folgende Lösung:
In der Zelle AW3 erscheinen über eine Formel drei Aussagen SH, H und E
Bei SH sollte die Zelle A7 Rot werden und eine Text "Sofortiger Handlungsbedarf" in Fett erscheinen.
Danke für eure Hilfe
Gruß Friedrich...
30.08.2010 18:23:16
Thread-ID: 1174841
2 Beiträge
Wenn Farbe dann ...
Denis

Hi Leute
Brauche Euren Experten Rat. Wie geht das:
Wenn D1 gelb ausgefuellt, dann fulle A1 auch gelb aus.
Noch besser waere:
Wenn D1 gelb ausgefuellt, dann fuelle A1 auch gelb aus UND kopiere die ganze Zeile in das Tab "Summary" (beginnend in A2).
Danke Euch sehr sehr! :)
16.11.2010 18:17:44
Thread-ID: 1187188
10 Beiträge
Text splitten wenn Zelle mehr als 265 Zeichen
bernie

Hallo Profis,
in einer Zelle habe ich mehr Text (mehr als 265 Zeichen) als ich über die Datenbankfunktion suchen kann.
Kann mir jemand einen Tipp geben, wie nach dem Einfügen eines langen Textes dieser so gesplittet wird, daß z.B. dann in B1 Text bis 265 Zeichen, in C1 der weitere Tex...
17.11.2010 13:03:03
Thread-ID: 1187321
10 Beiträge
textbox farbe wenn wert in verzeichnis vorhanden
Achim

Hallo ecxel freunde
wer kann mal schauen und korrigieren
If Dir("I:\AM33\PK22 Weiterbildung\01_Weiterbildung Allgemein und nach BKrFQG\01_Datenbanken und Teilnahmebescheinigung\BKrFQG\Kopie Führerscheine\" & UserForm1.Frame1.TextBox1) "" Then
TextBox84.BackColor = RGB(0, 255, 0...
14.02.2011 14:56:11
Thread-ID: 1200719
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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