hat jemand vielleicht eine idee wie man in einer tabelle nach z.B. rot markierten werten suchen kann un diese durch einen Wert,z.B. "A" ersetzen kann?
dankeschön
susan
hat jemand vielleicht eine idee wie man in einer tabelle nach z.B. rot markierten werten suchen kann un diese durch einen Wert,z.B. "A" ersetzen kann?
dankeschön
susan
Wodurch sind die Werte Rot, Bedingte Formatierung oder per Hand?? Bei bedingter Formatierung sieh es schlecht aus. Ist hierbei die bedingung für alle Zellen gleich??? und welche??
Schrift ode Hintergrund??
Gruß Hajo
nichts für ungut, aber Bedingte Formatierung auslesen ist fürchterlich kompliziert (damit befasse ich mich nicht). Darum hatte ich nach de Bedingung gefragt. Oder hat jede Zelle eine andere Bedingungfür Rot??
Gruß Hajo
ich überlege mir aml was, ich gehe davon aus das es die Schriftfarbe ist.
Gruß Hajo
nachdem ich mir ein Kopf gemacht habe. War die Frage nach Schrift oder Hintergrund sinnlos.
Option Explicit
Sub Susan2()
' erstellt von Hajo Ziplies am 23.12.02
Dim LoI As Long
Dim DoMaxWert As Double
For LoI = 1 To ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
' maximaler Wert in der aktuellen Zeile ermitteln
DoMaxWert = Application.WorksheetFunction.Max(Range("$A" & LoI & ":$J" & LoI))
Range("A" & LoI & ":$J" & LoI).Replace What:=DoMaxWert, Replacement:="A", SearchOrder:=xlByRows
Next LoI
End Sub
Code eingefügt mit: Excel Code Jeanie
Code Jeanie
Frage
Das Umsetzen nach Html klappt perfekt, auch die Ansicht in den Foren ist gegeben. Bei manchen Foren kann man aber anscheinend nicht den dargestellten Code nach VBA rückkopieren. Warum?
Antwort
Dies liegt nicht an der Code Jeanie !!! Manche Foren interpretieren anscheinend < pre > < /pre > Tags nicht richtig und erzeugen am Zeilenende einen weichen Zeilenumbruch anstatt eines harten Zeilenumbruches. Dies führt dazu, dass im VBA-Editor die Zeilen hintereinander geschrieben werden. Zum Rückkopieren in solchen Fällen: Fügen Sie den kopierten Code aus dem Forum nach Word ein, kopieren Sie ihn dort wieder und fügen Sie ihn dann im VBA - Editor ein
Gruß Hajo
vielen dank, das ist ja echt super!! ich weiß bloß nicht wie man das in excel einfügt (hab noch nie mit makros gearbeitet). muß ich in dem code noch was verändern, z.b. einstellen auf welche zeilen sich das bezieht und wie schaffe ich es, das das ganze los geht??
Gruß susan
am Code braucht nicts verändet werden.
Kopiere den Code erstmal in Word in ein normales Dokument.
Öffne Deine Datei in Excel, Strg+F11 (Vba Editor), Bild sollte zweigeteilt sein sonnst Strg+R.
Wähle im linken Fenster Deine Datei, rechte Maustaste, Einfügen, Modul, Kopiere jetzt den Code aus Word ins rechte Fenster, VBA Editor schließen, Extra, Makro, Makro wählen und ausführen. Sichere Deine Datei vorher, falls das Ergebnis nicht Deinen Wünschen entspricht.
Gruß Hajo
mein ansatz.
ist da was untergegangen??
Susan wollte in jeder Zeile den max. Wert(e) durch "A" ersetzen.
Gruß Hajo
nicht ganz, jetzt weiß ich auch, warum ich Deinen Code nicht verstanden habe. Sie wollte eine neue Tabelle in der für jede Zeile die Überschrift der Spalte mit dem Maximalwert gelistet wird.
Gruß
Peter
das könnte natürlich auch sein.
Der Beitrag ging ja über mehere Tage oder über längere Zeiträume von Beitrag zu Beitrag.
Noch ein schönes Weihnachtsfest.
Gruß Hajo
ich verstehe es so, dass Susan sich den spalten- bzw. zeilenindex der jeweilgen max-werte anzeigen lassen will.
gruss thomas
p.s. schaun mer mal was Susan meint
ich habe mich an den ersten Beitrag gehalten.
"hallo und guten abend,
hat jemand vielleicht eine idee wie man in einer tabelle nach z.B. rot markierten werten suchen kann un diese durch einen Wert,z.B. "A" ersetzen kann?
dankeschön
susan "
Noch ein schönes Weihnachtsfest.
Gruß Hajo