aber nur wenn das wert negativ ist.
gruss
franco
mit der Funktion "Bedingte Formatierung" funktioniert es erstaunlicherweise nicht - irgendwie ist das wohl vergessen worden. Man muss ein kleines Makro benutzen:
Dieses Makro geht in dem Sheet "Mappe1" alle Werte von 1-100 durch und prüft, ob die Zahl negativ ist.
Cells hat das Format: Cells(Zeile,Spalte)
Ich hab das Programm ausprobiert, es läuft einwandfrei...
Sub Durchstreichen()
Dim i, inhalt
Sheets("Mappe1").Select
For i = 1 To 100
inhalt = Sheets("Mappe1").Cells(i, 1)
If inhalt < 0 And inhalt <> "" Then
Sheets("Fehlerprotokoll").Cells(i, 1).Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
With Selection.Borders(xlDiagonalUp)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
End If
Next i
End Sub
entschuldige meine Einmischung - geht es um die Eingabe negativer Zahlen oder um berechnete negative Zahlen.
Gruß
Peter
es braucht kein neuer Beitrag eröffnet werden. Es ist sinnlos einen neuen Beitrag zu schreiben, wenn nicht alle Fragen beantwortet werden. Es ist schon positiv das wenigtens eine Frage Beantwortet wurde. Jetzt ist klar das Du nicht das Zeichen sondern die Linie von Zelle Formatieren, Rahmen meinst. Der Zellbereich ist immer noch offen. Da mußt Du Dir dann wohl die Lösung von Tobias anpassen.
Gruß Hajo
berechnete positive zahlen sind normal formartiert.
gruss
franco
mal ganz dumm gefragt: warum muss es der diagonale Rahmen zur Kennzeichenung sein? Mit der bedingten Formatierung - beispielsweise Musterfarbe grau - ließe sich die Kennzeichnung ohne Verrenkungen realisieren.
Naja, ein Codebeispiel zum Anpassen hast Du.
Gruß
Peter