Doppel vorkommen in einer Zeile
15.10.2005 06:02:37
Tamer
Hab da ein Problem uns sitze schon sehr lange finde leider keine Lösung :(
Ich hab eine Tabelle mit Beschriftung Wochentage (Spalte) und Uhrzeit (Zeile) erstellt. In jeder Zeile stehen Namen nur darf in einer Zeile der Namen nicht doppelt vorkommen es soll daher bei der Eingabe eine Fehlermeldung ausgegeben werden z.B. (Name exestiert bereits). In der nächsten Zeile darf er schon vorkommen, es geht mir darum dass keine gleichen Namen in einer Zeile auftreten.
Folgendes Makro verwende ich aber es tut noch nicht ganz was ich will :)
Sub Suchen()
Dim Bereich As Range
Dim S As String
Sheets("Tabelle1").Activate
If ActiveCell.Value > 0 Then
S = ActiveCell.Formula
Range("A1").Select
Set Bereich = Sheets("Tabelle1").Columns(1).Find(S, LookAT:=xlWhole)
If Bereich Is Nothing Then
Exit Sub
Else
Bereich.Select
MsgBox "ACHTUNG " & S & " ist schon in eingeteilt!!"
End If
End If
End Sub
Bitte um Hilfe!
Und Danke im voraus!
Anzeige