OpenOffice.info

O, das sieht ja klasse aus, werde ich morgen im Büro mal testen, wie sieht der Befehl aus für blaue Umrandung?

Sub vergleich()
For i = 1 To 10
    For j = 1 To 10
        If Sheets("Tabelle1").Cells(i, j).FormulaR1C1 <> Sheets("Tabelle2").Cells(i, j).FormulaR1C1 Then
            Sheets("Tabelle2").Cells(i, j).Font.ColorIndex = 3
        End If
    Next j
Next i
End Sub

Rem Attribute VBA_ModuleType=VBAModule
Option VBASupport 1
Sub vergleich()

For i = 1 To 10
    For j = 1 To 10
        If Sheets("Tabelle1").Cells(i, j).FormulaR1C1 <> Sheets("Tabelle2").Cells(i, j).FormulaR1C1 Then
            Sheets("Tabelle2").Cells(i, j).Font.ColorIndex = 3
        End If
    Next j
Next i

End Sub

[quote]Leider kenne ich mich mit VBA nicht aus, denn ich denk da komm ich nicht drum herum. Kann mir jemand helfen?[/quote]

z.B. für jeweils Zellen A1 bis J10 in Tabelle1 und Tabelle2 [color=#FF0000](Achtung VBA)[/color]:

[code]Sub vergleich()
For i = 1 To 10
For j = 1 To 10
If Sheets("Tabelle1").Cells(i, j).FormulaR1C1 <> Sheets("Tabelle2").Cells(i, j).FormulaR1C1 Then
Sheets("Tabelle2").Cells(i, j).Font.ColorIndex = 3
End If
Next j
Next i
End Sub[/code]

Das Funktioniert in dieser Form auch in Calc, wobei Calc beim Zulassen von Makros eine EXceldatei mit obigem Code automatisch ergänzt zu:

[code]Rem Attribute VBA_ModuleType=VBAModule
Option VBASupport 1
Sub vergleich()

For i = 1 To 10
For j = 1 To 10
If Sheets("Tabelle1").Cells(i, j).FormulaR1C1 <> Sheets("Tabelle2").Cells(i, j).FormulaR1C1 Then
Sheets("Tabelle2").Cells(i, j).Font.ColorIndex = 3
End If
Next j
Next i

End Sub
[/code]

Gruß
Stephan

[quote="Spitzbart"]Leider haben wir im Büro nur Excel[/quote]Kopfschüttel :roll: Calc ist kein Excel Klon!
R

Ok das werde ich mal probieren. Leider haben wir im Büro nur Excel. Da kenne ich die Funktion nicht. Wenn ich daheim die Funktion ausführe und ein Macro dabei aufzeichnen, wird das dann bei Excel auch funktionieren?

Hi,
weißt du, dass OpenOffice eine Funktion "Änderungen aufzeichnen" hat? Du kannst sie bei geöffneter Datei über
[color=#0040FF] Bearbeiten/Änderungen/Aufzeichen[/color] einschalten.
Dann werden alle geänderten Felder farbig umrandet und der Änderungszeitpunkt sowie der USER hinterlegt.
Siehe Beispiel anbei.
Dazu kannst Du dich weiter über die vielfältigen Möglichkeiten der Verfolgung von Änderungen in der Hilfe (F1), Suchtext [color=#0040FF]Änderungen[/color], informieren.
Gruß R

Hallo, ich suche auch einen Abgleich. Ich habe 2 Tabellen in unterschiedlichen Datein. Dies sind Exporte aus einer Datenbank. Jede Woche wird ein Export gemacht und zum Kunden geschickt. Ich habe also Tabelle 1 schicke die zum Kunden und bekomm sie als Tabelle 2 zurück. Bisher füge ich nun 1 und 2 in eine Datei und lass sie über eine bedingte Formatierung vergleichen, sodass in Tabelle 2 die Änderungen mit roter Schrift formatiert wird. Es ist aber nötig, dass die Formatierung statisch ist, damit ich Tabelle 1 wieder löschen kann. Leider kenne ich mich mit VBA nicht aus, denn ich denk da komm ich nicht drum herum. Kann mir jemand helfen?