AW: Textbox & VBA
27.10.2007 08:58:00
Mathias
Guten morgen,
gestern hat mir Matthias hier dieses schöne Makro hinterlassen:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range, z As Range
Set rng = Intersect(Target, Range("H1"))
If Not rng Is Nothing Then
If rng.Value "" Then
Set z = Range("A4:A6000").Find(What:=rng.Value, LookAt:=xlWhole)
If z Is Nothing Then
MsgBox "nicht gefunden!"
Else
z.Select
End If
End If
End If
End Sub
das funktioniert wirklich super, mir ist nur aufgefallen, das einige Nummern im Bereich in Spalte A bei mir doppelt
vorhanden sind, deshalb muss ich meine Frage noch erweitern, könnt Ihr mir nochmal helfen?
Bevor dieses Makro ausgeführt wird, währe es schön, wenn eine Abfrage im Bereich A4:A6000 durchgeführt werden könnte und im Falle eines doppelten eintrages kommt eine Meldung z.B.
Diese Nummer ist mehrfach vorhanden, in Zeile 6, in Zeile 521 und in Zeile 4109 die erste Zeile wird jetzt
selektiert.
Danach wird dann das Makro von Matthias ausgeführt.
vielen Dank
Mathias