Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
628to632
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
628to632
628to632
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Spalten vergleichen und ersetzen

Spalten vergleichen und ersetzen
30.06.2005 13:10:39
Wolfgang
Hallo zusammen,
Ich muss zwei Spalten vergleichen und ggf. ersetzen.
In der Spalte P stehen durchgehend Datumswerte.
In der Spalte BJ stehen auch datumswerte aber nicht durchgehend.
Wenn in Spalte P das Datum kleiner als das Datum aus Spalte BJ ist soll das Datum in spalte BJ mit dem Datum aus Spalte P überschrieben werden.
Ich brauche es IN VBA.
Gruß
Wolfgang

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Spalten vergleichen und ersetzen
30.06.2005 13:28:50
IngGi
Hallo Wolfgang,
was meinst du genau mit "in Spalte BJ stehen Datumswerte nicht durchgehend"? Ich hab das mal so interpretiert, dass da auch Leerzellen mittendrin auftauchen können und habe eine entsprechende Prüfung mit eingebaut. In diesen Fällen wird momentan nichts kopiert.

Sub Vergleich()
Dim rng As Range
For Each rng In ThisWorkbook.Sheets(1).Range("P1:P" & _
ThisWorkbook.Sheets(1).Range("P65536").End(xlUp).Row)
If IsNumeric(rng.Offset(0, 46)) = True Then
If rng < rng.Offset(0, 46) Then
rng.Offset(0, 46) = rng
End If
End If
Next rng
End Sub

Gruß Ingolf
Anzeige

307 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige