Meldung, wenn Wert doppelt
13.06.2005 16:41:44
Wolfgang
wenn ich den untenstehenden Code, den ich unter Recherche entdeckt habe, richtig deute, dient er dazu, Daten in ein Arbeitsblatt mit Namen "Mitglieder Aktuell" zu kopieren und eine MsgBox aufzumachen, wenn der Eintrag in Spalte C bereits vorkommt. Weiterhin soll sich Excel melden, wenn die Zeile 145 erreicht ist.
Wie wäre der Code umzustellen, wenn er sich auf jedes mögliche, also eigentlich auf das jeweils aktive Tabellenblatt (ohne fest zugewiesenen Namen) einer Arbeitsmappe beziehen soll ?
Ich wäre für eine Hilfestellung sehr dankbar.
Gruß Wolfgang Berger
Hier der Code:
Sub Stammdaten_kopieren()
Dim Loletzte As Long
Dim rng As Range
With Sheets("Mitglieder Aktuell")
Set rng = .Range("C1:C145").Find(What:=Selection, _
LookIn:=xlValues, LookAt:=xlWhole)
If Not rng Is Nothing Then
MsgBox "Eintrag schon vorhanden!", vbExclamation
Exit Sub
Else
If .Range("C145") = "" Then
Loletzte = .Range("C145").End(xlUp).Row
Selection.Copy Destination:=.Cells(Loletzte + 1, 3)
Else
MsgBox "keine Zelle mehr frei"
End If
End If
End With
Sheets("Mitglieder Aktuell").Select
End Sub