2 Spalten vergleichen und mit wenn dann

Ralph · 2017-01-14T20:51:54+00:00

Hallo Zusammen Leider kenne ich mich mit VBA noch zu wenig aus und wende mich darum an euch. Ich habe folgende Aufgabe: Spalte A mit Spalte B vergleichen. Bei beiden stehen Datums drin. Wenn das Datum in Spalte A Jünger ist als in Spalte B, dann wird das Datum aus der Spalte A in Spalte B geschrieben. Umgekehrt bleibt es so wie es ist. Besten Dank für eure Hilfe.

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

Hallo Ralph,
versuchs mal damit:

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

Mit der Datei, die du mir hier hochgeladen hast, lässt sich nicht richtig testen. Ich gehe mal davon aus, dass die Eitragungen auf dem Blatt "Übersicht letzter Besuch" in den Zellen A2 und A3 normalerweise eindeutige Bezeichnungen sind und bei der hochgeladenen Datei der Anonymisierung zum Opfer gefallen sind. Deine SVERWEIS-Formel funktioniert nämlich nur, wenn die Suchbegriffe aus A2 und A3 im Blatt "Hauptdaten" in Spalte B nicht mehrfach vorkommen. Aber das solltest du bei Excel gut ja wissen.
Gruß Werner

2 Spalten vergleichen und mit wenn dann

Forumthread: 2 Spalten vergleichen und mit wenn dann

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

2 Spalten vergleichen und mit wenn dann

Forumthread: 2 Spalten vergleichen und mit wenn dann

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

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread