Excel VBA Lösung gesucht

Re(9): Excel VBA Lösung gesucht

Thunder — Thu, 03 Sep 2015 10:52:44 GMT

wenn ich in pension bin

da würd ich mir für den arbeitsplatz keinen haxen mehr ausreissen

sie sich bis dahin nicht darum gekümmert haben

kommt mir bekannt vor. bis tag x, ab dem der kollege nimmer in der firma ist passiert mal garnichts und beim letzten händedruck bzw einen tag danach gehts los

Re(8): Excel VBA Lösung gesucht

soul — Thu, 03 Sep 2015 10:34:18 GMT

die listen sind ja eigentlich fertig. muss gar nichts groß mehr ändern. wollte es nur für meine nachfolger einmal etwas einfacher machen. kann mir aber egal sein. wenn ich in pension bin, sollen die sich damit herumraufen, wenn sie sich bis dahin nicht darum gekümmert haben

Re(7): Excel VBA Lösung gesucht

Thunder — Thu, 03 Sep 2015 05:54:15 GMT

dann lasse ich es so

ich würd dranbleiben, wenn du die zeit hast, vielleicht sparst dir am ende doch zeit gegenüber ewig weiter händisch herumändern.

was du vorhast, ist programmiertechnisch nicht kompliziert, aber es braucht eben ein paar zeilen und ifs/cases, damit excel weiß, welche formatierung du wann erwartest.

Re(6): Excel VBA Lösung gesucht

soul — Wed, 02 Sep 2015 15:24:11 GMT

jepp, viel handarbeit. hat sich eben entwickelt. dann lasse ich es so und arbeite weiter mit bedingten formatierungen.

danke nochmals.

Re(5): Excel VBA Lösung gesucht

Thunder — Wed, 02 Sep 2015 14:13:14 GMT

puh, tabelle aus der pm schaut so richtig nach massiver handarbeit aus. ich nehm auch an, dass nicht alle hintergründe standardmäßg blau sind und somit hast schon wieder mindestens zwei fälle abzudecken, für die du die entsprechende logik einbauen musst.
-> wenn F gelöscht, dann nimm entweder blau (weil...) oder grün (weil...).

mögliche lösung: du speicherst die "standard wenn zelle leer"-farben in einer zweiten, deckungsgleichen tabelle (tabelle, in der nur zellen wie in der ersten eingefärbt sind ohne text) und wenn dann F in tabelle1!G5 gelöscht wird holst dir eben die jeweiligen farben aus tabellestandardwennleer!G5 (.interior....)

Re(4): Excel VBA Lösung gesucht

soul — Wed, 02 Sep 2015 13:12:23 GMT

zellhintergrund ist blau - nun wird ein F eingegeben. somit wird nun der hintergrund rot. wenn ich nun das F wieder lösche wird der hintergrund weiß. sollte aber wieder blau werden.
selbiges passiert natürlich auch mit der schriftfarbe.

Re(3): Excel VBA Lösung gesucht

Thunder — Wed, 02 Sep 2015 10:34:35 GMT

hört sich sehr abenteuerlich an, was du machen willst. so praktisch programmieren ist, so sehr wirds ein bummerang. der code wird stur abgearbeitet und jeden sonderfall musst dem kistl beibringen, selbst die einfachsten dinge, die für menschen unter "na is eh logisch" rennen. ich helf dir gern, so gut es geht, aber dazu musst auch eine konkrete frage und eine konkrete anforderung haben. nichtmal der beste programmierer (und davon bin ich lichtjahre entfernt) kann wissen, was bei

wenn nichts gefunden wird sollte die ursprüngliche formatierung wieder entstehen

tatsächlich passieren soll.

Re(2): Excel VBA Lösung gesucht

soul — Wed, 02 Sep 2015 10:06:07 GMT

in der praxis ergibt sich ein neues problem. es werden nun auch alle anderen zellen formatiert:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)

kein Buchstabe, keine Hintergrundfarbe
    Case Else
        With cell
            .Font.ColorIndex = 0 '
            .Interior.ColorIndex = xlNone
        End With

geht also nicht. wenn nichts gefunden wird sollte die ursprüngliche formatierung wieder entstehen.
bisher habe ich alles mit einer bedingten formatierung gemacht, was bei vielen blättern mühsam ist.

Re(6): Excel VBA Lösung gesucht

soul — Tue, 01 Sep 2015 07:39:07 GMT

hatte ich gemacht, funkte aber nicht. habs nochmal in einer neuen mappe getestet, einwandfrei

Re(5): Excel VBA Lösung gesucht

Thing — Tue, 01 Sep 2015 07:33:12 GMT

Dann einfach das gleiche stattdessen in der Funktion "Workbook_SheetChange" im Ast "Diese Arbeitsmappe" verwenden:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

Re(4): Excel VBA Lösung gesucht

soul — Tue, 01 Sep 2015 07:25:43 GMT

noch eine bitte: wie schaut das dann aus, wenn ich es für die ganze mappe verwenden will?

Re(3): Excel VBA Lösung gesucht

Thunder — Tue, 01 Sep 2015 07:06:47 GMT

so solls sein

Re(2): Excel VBA Lösung gesucht

soul — Tue, 01 Sep 2015 06:57:24 GMT

besten dank wieder einmal. das war die lösung

Re: Excel VBA Lösung gesucht

Thunder — Tue, 01 Sep 2015 06:26:44 GMT

wenn ich das richtig verstannden hab willst du nach jeder werteänderung einer zelle eine bedingte formatierung per vba realisieren.
das erste wäre mal Select Case Target.Valu -> Select Case Target.Value
ein hinweis zwischendurch: mit dem dauernden ausführen vom makro nach änderung eines zellenwertes hast keine "rückgängig"-funktionalität in excel, also vorsicht.

da es sonst immer zu konflikten kommt.

in welchem fall gibts konflikte? eigentlich nur, wenn du mit autoausfüllen arbeitest. das ist mit dem hier behoben:


Private Sub Worksheet_Change(ByVal Target As Excel.Range)

Dim cell As Range

Debug.Print Target.Cells.Count

For Each cell In Target.Cells
    Select Case cell.Value
        'bei Buchstabe "F" Schriftfarbe rot
    Case "F"
        With cell
            .Font.ColorIndex = 3
            .Interior.ColorIndex = 22
        End With
        'kein Buchstabe, keine Hintergrundfarbe
    Case Else
        With cell
            .Font.ColorIndex = 0 'anmerkung: bei solchen dingen würd ich die reihenfolge immer gleich lassen, also zuerst schrift- und dann zellenfarbe, sonst wirds anstregend und du machst dir selbst das leben schwer
            .Interior.ColorIndex = xlNone
        End With
    End Select
Next cell

End Sub

Re: Excel VBA Lösung gesucht

Paulas_Papa — Mon, 31 Aug 2015 20:06:56 GMT

http://www.office-loesung.de/ftopic218545_0_0_asc.php

Mfg lukas

Excel VBA Lösung gesucht

soul — Mon, 31 Aug 2015 16:25:48 GMT

statt bedingter formatierung möchte ich es damit machen:
verkürzte form, dazwischen sind noch etliche andere formatierungen:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'Wenn mehr als eine Zelle markiert wurde dann Makro beenden
If Target.Cells.Count > 1 Then Exit Sub
Select Case Target.Valu
'bei Buchstabe "F" Schriftfarbe rot
Case "F"
Target.Font.ColorIndex = 3
Target.Interior.ColorIndex = 22

'kein Buchstabe, keine Hintergrundfarbe
Case Else
Target.Interior.ColorIndex = xlNone
Target.Font.ColorIndex = 0

End Select
End Sub

so siehts jetzt aus. makro beenden deßhalb, da es sonst immer zu konflikten kommt.
wenn ich jetz das F mit zb 1 einzeln überschreibe funktioniert alles.
gibts eine lösung mehrere felder zu markieren und etwas einzufügen ohne beendigung des scripts?