Tabellenblätter durchsuchen und Msg Box
R
ich habe eine Excel Datei welche mehrere Tabellenblätter enthält. Ich kopiere jetzt Werte aus dem jeweiligen Tabellenblatt und füge diese in einem Übersichts Tabellenblatt mit einem Makro wieder ein.
Jetzt würde ich gerne mein Makro so erweitern, das das Tabellenblatt Übersicht keine doppelten Werte enthält. D.h. ich müsste überprüfen, ob der neue Wert den ich einfügen möchte schon in der Übersicht Tabelle existiert und dann eine Message Box ausgegeben wird wo drin steht Wert wurde schon übernommen. Habt Ihr da eine Idee wie ich das umsetzen kann ?
Gruß
Mein bisheriges Makro
Sub Makro1()
' Makro1 Makro
' Tastenkombination: Strg+l
Range("A1").Select
Selection.Copy
Sheets("Tabelle3").Select
Dim i As Integer
i = 1
Do While Range("A" & i) ""
i = i + 1
Loop
Range("A" & i) = Range("A1")
Range("A1").Select
ActiveSheet.Paste Link:=True
End Sub
Anzeige