Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: 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
Anzeige

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
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige