Ich habe Spalte A1 und in Spalte B1 einen Wert stehen.
Wie kann ich beide überprüfen lassen und wenn der Wert
ungleich ist einen Kommentar "Wert ungleich" in A1 über
VBA automatisch einfügen lassen ?
Gruss
Günter
Ich habe Spalte A1 und in Spalte B1 einen Wert stehen.
Wie kann ich beide überprüfen lassen und wenn der Wert
ungleich ist einen Kommentar "Wert ungleich" in A1 über
VBA automatisch einfügen lassen ?
Gruss
Günter
dieses Makro gehört in das entsprechende Tabellenblatt-Modul.
Wenn in Zelle "A1" oder "B1" eine Änderung vorgenommen wird, erfolgt eine Überprüfung, ob beide Werte gleich sind. Bei Ungleichheit wird in Zelle "A1" ein Kommentar eingefügt.
Viel Erfolg wünscht
WernerB.
leider schreibst du nicht, wann die Überprüfung stattfinden soll. Als Makro könnte das so aussehen:
Gruß
Peter
so geht's ...
Option ExplicitSub Kommentar_hinzufügen()
Dim letzteZeile&, aktZeile&
'letzte Zeile in Spalte A bestimmen
letzteZeile = Cells(Rows.Count, 1).End(xlUp).Row
'Geschwindigkeitsoptimierung einschalten
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
For aktZeile = 1 To letzteZeile
If Cells(aktZeile, 1) <> Cells(aktZeile, 2) Then
With Cells(aktZeile, 1)
.AddComment
.Comment.Text Text:="Wert ungleich!"
End With
End If
Next aktZeile'Geschwindigkeitsoptimierung einschalten
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = TrueEnd Sub
Ciao MikeS
Ja, genau - sollte als Makro laufen.
Vielen Dank und noch einen schönen Tag.
Günter