ich weiss, zu diesem Thema gibt es schon sehr viele Beiträge. Ich habe eine Datei, in der die User, viele verschiedene Daten eintragen müssen (in Summe ca 110 pro Datensatz). Diese Datei wird zum Hochladen der Daten in eine Datenbank verwendet, und füllt manche der 110 Datenfeldern per macro aus dem Intranet. Per Bedingter Formatierung, bekommt der User fehlende, oder fehlerhafte Datensätze mit roter Hintergrundfarbe angezeigt. Ein Macro verhindert weitere Schritte, wenn eine der bedingten Formatierung zutrifft. Das entspechende Macro hatte ich seinerzeit im Internet gefunden und geringfügig modifiziert.
Unter 2003 lief das einwandfrei, mit 2007 bekomme ich aber nur noch "Schwachsinn" angezeigt.
Sub FormCond()
Dim iFormula As String, iColorA As String
For u = 1 To 111
On Error Resume Next
S01.Cells(z, u).Activate
With S01.Cells(z, u).FormatConditions(1)
iFormula = .Formula1
End With
If iFormula "" Then
On Error GoTo 0
S01.Cells(z, 112).FormulaLocal = iFormula
If S01.Cells(z, 112).Value = True Then
S01.Cells(z, 113).Value = 1
Exit For
End If
End If
noform: Err.Clear
iFormula = ""
Next u
If S01.Cells(z, 113).Value = 1 Then
Application.ScreenUpdating = True
MsgBox ("Some Mandatory values in row " & z & " are not yet maintained")
End If
S01.Columns("DH:DI").Clear
S01.Range("DH1").Value = "Cond-check Formula"
S01.Range("Di1").Value = "Cond-check Result"
S01.Columns("DH:DI").Hidden = True
End Sub
z ist dabei die aktuelle Zeile die im vorherigen makro bestimmt wird, S01 ist das aktuelle Tabelleblatt.Mir ist dabei aufgefallen, dass sich die iFormula in den verschiedenen Zeilen in 2007 nicht mehr ändert. Steht bspw in der bedingten Formatierung in einer Zelle in der Zeile 3: =if(A3 >1...m dann stand unter 2004 in der Zeile 4 entspechend: =if(A4 > 1..... Jetzt steht in der iFormula in der Zeile 4 weiterhin der Eintrag aus der Zeile 3. seltsam oder?
Jemand eine Idee, wie ich das Lösen kann? Die Bedingungen sind in jeder Spalte anders, ich möchte deshalb die Bedingungen nur ungern in VBA nachbauen. Ach ja, ich vergass fast zu sagen, die User arbeiten zum Grossteil noch mit 2003.
Danke für Eure Hilfe
Gruss
Fettertiger