Supportnet / Forum / Tabellenkalkulation

Hallo von UJockel Ich suche ein Makro für EXEL. (Makieren) Ich hatte schon eine formel aber dise hatte ich mir zerschossen..:--(( Öffnen Blattschutz, Blattschutz aufheben und nach eingabe des Passworts öffnen Suchfenste. Im Suchfenster die freie eingabe von Werten z.b. 06.2004 oder andere werte. Nun diese suchanfrage mit Enter bestätigen. Nun soll das Makro alle felder in denen diser wert erscheint farbig darstellen und das von anfang bis ende des Arbeitsblattes, farbe rot. Nicht die schrift in dem feld sondern das ganze feld in dem dieser wert gefunden wurde mit rot makieren und das von anfang bis ende von diesem Arbeitsblatt in dem ich das Makro gfeöffnet habe. Ich danke schon mal MFG UJOCKEL Eine Antwort verfassen hier

kann man so ein #Makro nicht aufzeichnen?

Extras => Makro => Aufzeichnen

Viel Erfolg
MasterOfHardness

Mann kann es aufzeichnen,ich habe es auch schon etliche male probiert.
Ich bekomme immer nur einen schritt aufgezeichnet von anfang an bis ende.Es fehlen mir aber die befehle für das makro um alle einträge auf einmal auf disem Arbeitsblatt zu suchen und zu makieren.

MfG
Ujockel

Hallo Ujockel,

ja,ich weiss: du suchst eine VBA-Lösung. Da ich kein VBA kann, könnte ich dir nur eine kleine Alternative anbieten, die aber genau das macht, was du erreichen willst.
Trage bei A1 folgende bedingte Formetierung ein:

Formel ist
=A1=$A$1
Dann noch das gewünschte Format angeben und fertig.

Die Zelle A1 dient jetzt zur EINgabe der gesuchten Werte, die dann automatisch in der ganzen Tabelle entsprechend gekennzeichnet werden.

Das erste A1 muss relativ sein, damit du dieses Formatr dann mit dem Formatpinsel auf alle Zellen kopieren kannst.

CU
want2cu

Hallo,

Du kannst das Suchen in eine Schleife einbinden, so dass das Ganze dann z.B. 100 mal durchlaufen wird.
Im Beispiel wird die Suche nach der Zahl 17 100 mal durchgeführt und die Zellen alle rot gefärbt.

...
Dim n%
For n = 1 To 100
    
    Cells.Find(What:="17", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) _
        .Activate
    With Selection.Interior
        .ColorIndex = 3
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
    End With
    
n = n + 1
Next n

...

Gruß
Günter

Ja das ist ja das problem es sollen nicht die zahlen rot gfärbt werden sondern die Zahl bleibt schwarz und das feld wird rot.

Es ist eine prüfliste nach datum und die ist so groß das alle gesuchten einträge z.b. 06.2005 sofort ins auge fallen.

Gruß UJockel

hallo UJockel,

die folgenden Codezeilen sollten dein Problem lösen:

Sub TestFarbe()
Dim Suchwert
Suchwert = InputBox("Suchwert ?")
With ActiveSheet.Range("a1:h500")
    Set c = .Find(Suchwert, LookIn:=xlValues)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
            c.Interior.ColorIndex = 3
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
End With

End Sub

lediglich den ungefähren Zellbereich mußt du angeben.
(Zahlenfarbe bleibt ... Zellhintergund wird rot)

@Günther
man kann einer Selection keine Parameter zuweisen, wenn man vorher nichts selektiert ;)

Greetings ;-)

Hi Coolpix,

in meinem Beispiel wird die gefundene Zelle aktiviert. Das entspricht in diesem Fall einer Selection!


Gruß
Günter

hi Günter,

habe deinen Code über eine Tabelle mit Zufallszahlen laufen lassen und er brachte zunächst ne Fehlermeldung:
"Objekt oder With-Block Variable nicht festgelegt"

da dachte ich zunächst das hat was mit der Selection zu tun...
es ist in meinem Fall aber das:
"LookIn:=xlFormulas" im Find-String

bei mir funzt es nur mit
"LookIn:=xlValues"

natürlich wird dan auch die gefundene Zelle selektiert !!

Greetings ;-)

Hallo Ujockel,

das mit der bedingten Formatierung hat dir wohl nicht gefallen ? War das zu einfach?
<Schnüff> ;-(

CU
want2cu

Ne das ist nicht zu einfach ich muß ein makro so einbringen welches so funktioniert das auch ältere Kolegen es einfach ausführen können.


Makro ausfüren, Passwort für Blatschutz eingeben,Blatschutz wird ausgeschaltet.automatisches Öffnen Suchfenster,im Suchfenster Wert eingeben, alle werte die auf dem Arbeitsblatt übereinstimmen dort das feld rot und die schrifft schwarz makieren.
Danaoch arbeitsblatt wieder scützen.

Das bekomme ich meinen Kolegen noch Beigebracht aber mehr auch nicht,sonst zerschießen mir die Jungs noch die ganze Arbeitsmappe.

Ich Danke euch noch mal für die ganze mühe.

Grruß UJockel

Hallo UJockel,

nochmal ich ;-)))

Wenn du für deine Kollegen eine Arbeitsmappe in der von mir beschriebenen Weise mit der bedingten Formatierung präparierst und eine Eingabezelle vorgibst, in der dann das Datum reinkommt, dann brauchst du bei meiner LÖsung für die Anzeige gar kein Makro. Und wenn die Leute offensichtlich in der Mappe gar nicht so viel machen dürfen, warum sperrst du dann nicht einfach alle Zellen bis auf die eine EIngabezelle? Das hätte m.E. denselben Effekt wie deine Vorgehensweise. Und du kämst bei dieser Lösung mit dem Blattschutz ganz ohen Makro aus, was m.E. noch einfacher wäre.

Die bedingte Formatierung kann ja genau die Werte anzeigen, die deinen Vorgaben entsprechen (genauer Tag oder auch Monat). Mit der bedingten Formatierung kannst du das ja über "Formel ist" ganz nach deinen Vorstellungen machen.

CU
want2cu

In den feldern wo das datum drinnen steht ist kein Blattschutz dise felder sind frei zu formatiern, es sind Datums felder und Namens felder.
Auf diesem Arbeitsblatt sind ander felder wie, Bauteilnummern und Standorte die nicht verändert werden dürfen.
Ist der Blattschutz aktiv kann aber kein feld auf dem gasamten Blatt Farbig Formatiert werden.

Gruß
Ujockel

Hallo Ujockel,

ich verstehe jetz nicht so ganz, weshalb meine Lösung bei dir nicht klappen sollte.

Wenn ich deine erste Anfrage richtig verstanden habe, ging es doch darum, dass dein Tabelle mit Blattschutz versehen war, per Makro geöffnet und der User in einem Suchfenster EINEN Wert eingeben kann. Alle in der Tabelle vorkommenden identischen Wert sollen dann automatisch mit farbigem Hintergrund beosnders gekennzeichnet werden. Dann ist das Blatt wieder geschützt.

Bei meinerm Lösungsansatz ist die gesamte Tabelle bis auf EINE EINZIGE EINGABEZELLE geschützt, so dass der Anwedner nur in dieser Zelle seinen SUchwert eintragen kann. (das ist m.E., dasselbe wie bei dir)
Und die bedingte Formatierung funzt sehr wohl bei aktivem Blattschutz.

Probier es doch einfach mal aus wie beschrieben, dann merkst du selbst, dass es geht.

Ansonsten müßtes du mal genauer beschrieben, womit du bei meine Lösung nicht zurecht kommst. Das läßt sich mit SIcherheit recht einfach und schnell lösen.

CU
want2cu

Hi want2cu

Ich hatte schon ein anderes Makro es hat mir alles so gemacht wie ich es haben wollte es hat mir nur die schrift in der farbe verändert und nicht die farbe im ganzen feld.
Dann habe ich drann rum gestrickt und jetzt funst es garnicht mehr.

Jetzt habe ich erst mal Urlaub.
Wenn du mir noch mal helfen kannst,auch möchtest schicke ich dir nach dem urlaub eine e-mail.

Gruß
Ujockel

• Exel im Netzwerk
• Exel Tabelle nach Access exportieren mit VBA/Makro
• Makros speichern
• Makro speichern
• Makro, Blattschutz entfernen.