Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
252to256
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
252to256
252to256
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Wertevergleich von Zellen mit

Wertevergleich von Zellen mit
08.05.2003 11:25:28
Georges
hallo Excelprofis
Ich vergleiche in einer Arbeitsmappe mit mehreren Tabellen
ständig die ankommenden Werte(via DDE-LINK in Zellen eingespiesen) von zwei bestimmten Spalten.Ist der Wert der ersten Zelle in der ersten Spalte höher als der Wert in der Zelle der zweiten Spalte, dann sollte dieser Wert in der Zelle der zweiten Spalte übernommen werden und zusätzlich in einer folgenden Spalte die Zeit und das Datum der Aenderung niedergeschrieben werden.
Diese Abfrage findet in jeder Tabelle gleichzeitig statt und über mehrer Zellen in den gleichen zwei Spalten.
Ich habe in eurem super Forum bereits einen VBA-Code gefunden und an meine Bedürfnisse angepasst, leider funktioniert er nicht. Ich wäre dankbar für einen Hinweis.

Private Sub Worksheet_Calculate()
Dim iRow As Variant, iRowL As Variant
iRowL = Range(Worksheets(17).Cells(Rows.Count, 1)).End(xlUp).Row
For iRow = 1 To iRowL
If Range(Worksheets(17).Cells(iRow, 1)) > Range(Worksheets(17).Cells(iRow, 2)) Then
Range(Worksheets(17).Cells(iRow, 3)).Value = Now
End If
Next iRow
End Sub




2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Wertevergleich von Zellen mit
08.05.2003 12:37:33
Holger Levetzow

kompliziert beschrieben, aber ich versuche es mal mit einer kleinen Änderung:

Private Sub Worksheet_Calculate()
Dim iRow As Variant, iRowL As Variant
iRowL = Range(Worksheets(17).Cells(Rows.Count, 1)).End(xlUp).Row
For iRow = 1 To iRowL
If Range(Worksheets(17).Cells(iRow, 1)) > Range(Worksheets(17).Cells(iRow, 2)) Then
Range(Worksheets(17).Cells(iRow, 2))=Range(Worksheets(17).Cells(iRow, 1))
Range(Worksheets(17).Cells(iRow, 3)).Value = Now
End If
Next iRow
End Sub


Re: Wertevergleich von Zellen
08.05.2003 17:41:27
Georges

Besten Dank für den Tipp Holger

Eine kleine Anpassung musste ich noch machen am VBA-CODE
Ich hatte probleme beim Kompilieren mit dem Rang-Objekt
hier der neue Code:

Private Sub Worksheet_Calculate()
Dim iRow As Variant, iRowL As Variant
iRowL = Cells(Rows.Count, 1).End(xlUp).Row
For iRow = 1 To iRowL
If Cells(iRow, 1) > Cells(iRow, 2) Then
Cells(iRow, 2) = Cells(iRow, 1)
Cells(iRow, 3).Value = Now
End If
Next iRow
End Sub



Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige