2 Spalten vergleichen und mit wenn dann

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Public Sub aaa() Dim rngBereich As Range Dim rngZelle As Range Dim loLetzte As Long With Worksheets("Tabelle1") 'anpassen loLetzte = .Cells(.Rows.Count, 1).End(xlUp).Row 'letzte belegte in Spalte A Set rngBereich = .Range(.Cells(1, 1), .Cells(loLetzte, 1)) For Each rngZelle In rngBereich If CDate(rngZelle.Value)

Public Sub aaa() Dim rngBereich As Range Dim rngZelle As Range Dim loLetzte As Long With Worksheets("Tabelle1") 'anpassen loLetzte = .Cells(.Rows.Count, 10).End(xlUp).Row 'letzte belegte in Spalte J Set rngBereich = .Range(.Cells(2, 10), .Cells(loLetzte, 10)) For Each rngZelle In rngBereich If CDate(rngZelle.Value) > CDate(rngZelle.Offset(, 3).Value) Then rngZelle.Offset(, 3).Value = rngZelle.Value End If Next rngZelle End With End Sub

Public Sub aaa() Dim rngBereich As Range Dim rngZelle As Range Dim loLetzte As Long With Worksheets("Tabelle1") 'anpassen loLetzte = .Cells(.Rows.Count, 10).End(xlUp).Row 'letzte belegte in Spalte J Set rngBereich = .Range(.Cells(2, 10), .Cells(loLetzte, 10)) For Each rngZelle In rngBereich If CDate(rngZelle.Value) > CDate(rngZelle.Offset(, 3).Value) _ Or rngZelle.Offset(, 3) = "" Then rngZelle.Offset(, 3).Value = rngZelle.Value End If Next rngZelle End With End Sub

Hallo Ralph,
ein kleiner Tip am Rande:
Das ganze gestaltet sich ziemlich zäh, da alles immer nur tröpfchenweise kommt.
Erst ging es um Spalte A und B, das Makro dafür bekommst du nicht umgesetzt weil es sich tatsächlich um die Spalten J und M handelt - warum hast du das nicht gleich geschrieben?
Dann sollen auch leere Zellen in Spalte M entsprechend berücksichtigt werden. Auch dafür bekommst du das Makro, allerdings stellt sich jetzt heraus, dass die Zellen in Spalte M mitnichten leer sind, weil nämlich Formeln drin stehen.
Deshalb am besten so beschreiben, wie es tatsächlich ist. Noch besser eine Musterdatei hochladen.
Versuch:

Public Sub aaa()
Dim rngBereich As Range
Dim rngZelle As Range
Dim loLetzte As Long
With Worksheets("Tabelle1") 'anpassen
loLetzte = .Cells(.Rows.Count, 10).End(xlUp).Row 'letzte belegte in Spalte J
Set rngBereich = .Range(.Cells(2, 10), .Cells(loLetzte, 10))
For Each rngZelle In rngBereich
If rngZelle.Offset(, 3).Value = "" Then
rngZelle.Offset(, 3).Value = CDate(rngZelle.Value)
ElseIf IsDate(rngZelle.Offset(, 3).Value) Then
If CDate(rngZelle.Value) > CDate(rngZelle.Offset(, 3).Value) Then
rngZelle.Offset(, 3).Value = rngZelle.Value
End If
End If
Next rngZelle
End With
End Sub

Gruß Werner

Public Sub aaa() Dim rngBereich As Range Dim rngZelle As Range Dim loLetzte As Long With Worksheets("Übersicht letzter Besuch") loLetzte = .Cells(.Rows.Count, 10).End(xlUp).Row Set rngBereich = .Range(.Cells(2, 10), .Cells(loLetzte, 10)) For Each rngZelle In rngBereich If rngZelle.Value "" Then If rngZelle.Offset(, 3).Value = "" Then rngZelle.Offset(, 3).Value = CDate(rngZelle.Value) ElseIf IsDate(rngZelle.Offset(, 3).Value) Then If CDate(rngZelle.Value) > CDate(rngZelle.Offset(, 3).Value) Then rngZelle.Offset(, 3).Value = rngZelle.Value End If End If End If Next rngZelle End With End Sub

Hallo Ralph,
... was ich jetzt gerade gesehen habe: Du hast auch auf VBA-Forum.de das gleiche Problem eingestellt. Crossposting wird hier im Forum vom Forenbetreiber nicht gerne gesehen und ich persönlich halte auch nichts davon. Du wirst sicher auch keine zwei Mechaniker mit der Reparatur deines Autos beauftragen. Aber da musst du auch dafür bezahlen und hier nicht. Wenn ich das vorher gesehen hätte, wäre ich wahrscheinlich gar nicht eingestiegen.
Dort hat sich auch schon jemand damit befasst, ohne dass du darauf reagiert hast. Entweder meine oder seine Arbeit ist jetzt für den Papierkorb.
Ich denke dort ist es höchste Zeit, dass du reagierst und mitteilen, dass das Problem gelöst ist.
Gruß Werner

Beliebteste Forumthreads (12 Monate)

2 Spalten vergleichen und mit wenn dann

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

324 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

2 Spalten vergleichen und mit wenn dann

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

324 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread