nochmal Doppeleinträge

Forumthread: nochmal Doppeleinträge
2 Beiträge zu diesem Forumthread
Anzeige

Forumthread: nochmal Doppeleinträge

13.02.2004 19:39:48

Andreas

Hallo Forum,
gibt es eine möglichkeit mit einem VBA-code doppeleinträge in mehreren Arbeitsblättern zu vermeiden.(immer in der selben Spalte)
gruß Andreas

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: nochmal Doppeleinträge

14.02.2004 11:38:05

Beni
AW: nochmal Doppeleinträge

15.02.2004 20:33:26

Andreas

AW: nochmal Doppeleinträge

14.02.2004 11:38:05

Beni

Hallo Andreas,
kopiere diesen Code in das Modul der aktiven Tabelle mit rechte Maustaste auf Tabellenregister, Code anzeigen.
Gruss Beni


Private Sub Worksheet_Change(ByVal Target As Range)
If Target = "" Then Exit Sub
Dim wks As Worksheet
Dim rng As Range
Dim sAddress As String, sFind As String
sFind = Target
s = Target.Column
For sh = 1 To Worksheets.Count
With Sheets(sh).Columns(s)
Set rng = .Cells.Find(What:=sFind, LookIn:=xlValues, LookAt:=xlWhole)
If Not rng Is Nothing Then
If Not Target.Address = rng.Address Then _
MsgBox "Tabelle" & sh & " " & rng.Address _
(RowAbsolute:=False, ColumnAbsolute:=False)
End If
End With
Next sh
End Sub