Abgleichen von Daten per VBA
09.09.2008 10:34:00
Daten
ich möchte gerne Daten von einem Tabellenblatt (Hilfstabelle) in eine anderes Tabellenblatt (Terminierung) überrtagen. Hierbei soll das Makro schauen, ob der Datensatz schon vorhanden ist.
Wenn ja, dann sollen die Spalten aktualisiert werden.
Wenn nicht, dann sollen die neuen Datensätze ab der ersten leeren Zeile eingefügt werden.
Wird ein Datensatz nicht gefunden, dann bleiben die Spalten B und C in TB Termnierung leer.
Referenz ist die Spalte A (Meldung) in TB Terminierung.
(https://www.herber.de/bbs/user/55269.xls)
Sub Abgleich()
Dim rSuche As Range, rFinde As Range, i As Long
If IIf(IsEmpty(Cells(Rows.Count, 4)), Cells(Rows.Count, 4).End(xlUp).Row, Rows.Count) > 4 Then
Set rFinde = Sheets("Terminierung").Range("A:A")
For i = 4 To IIf(IsEmpty(Cells(Rows.Count, 4)), Cells(Rows.Count, 4).End(xlUp).Row, Rows. _
Count)
Set rSuche = rFinde.Find(what:=Cells(i, 4), lookAt:=xlWhole, LookIn:=xlValues)
If Not rSuche Is Nothing Then
With Sheets("Terminierung")
.Cells(rSuche.Row, 1) = Cells(i, 8)
.Cells(rSuche.Row, 2) = Cells(i, 10)
.Cells(rSuche.Row, 3) = Cells(i, 12)
End With
Else
With Sheets("Terminierung")
.Cells(65536, 1).End(xlUp).Offset(1, 0) = Cells(i, 8)
.Cells(65536, 2).End(xlUp).Offset(1, 0) = Cells(i, 10)
.Cells(65536, 3).End(xlUp).Offset(1, 0) = Cells(i, 12)
End With
End If
Next i
End If
End Sub
Vielen Dank für Hilfe im voraus!!!
Grüße
Karen
Anzeige