VBA script funzt nicht
31.08.2003 16:49:29
Gerhard
kann mir jemand helfen ?
Ich habe mühevoll eine Tabelle erstellt, nun wollte ich dies gute stück ein wenig verbessern, leider komme ich an folgender stelle nicht richtig weiter ich möchte verhindern, dass ein wert doppelt eingegeben werden kann
Beispiel: in G13 gebe ich den text "VM" ein, dadurch wird ein wert aus E13, der bereits vorhanden ist nach as13 übernommen. wenn in diesem bereich as13:as252 ein wert steht, sollte eine messagebox (VBA) erscheinen "dieser Wert ist bereits vorhanden", bei schließen dieser box soll eintrag aus G13 (text) entfernt werden.
die gleiche formatierung benötige ich für ap13:ap252 aq13:aq252 ar13:ar252
folgendes Script habe ich bekommen leider funzt es in meiner Tabelle nicht
Private Sub Worksheet_Change(ByVal Target As Range)
If Target = "" Then Exit Sub
With [as13:as252]
Wert = Target
Set C = .Find(Wert, LookIn:=xlValues, LookAt:=xlWhole)
If Not C Is Nothing Then
MsgBox "dieser Wert ist bereits vorhanden"
Target = ""
End If
End With
With [ap13:ap252 ]
Wert = Target
Set C = .Find(Wert, LookIn:=xlValues, LookAt:=xlWhole)
If Not C Is Nothing Then
MsgBox "dieser Wert ist bereits vorhanden"
Target = ""
End If
End With
With [aq13:aq252]
Wert = Target
Set C = .Find(Wert, LookIn:=xlValues, LookAt:=xlWhole)
If Not C Is Nothing Then
MsgBox "dieser Wert ist bereits vorhanden"
Target = ""
End If
End With
With [ar13:ar252]
Wert = Target
Set C = .Find(Wert, LookIn:=xlValues, LookAt:=xlWhole)
If Not C Is Nothing Then
MsgBox "dieser Wert ist bereits vorhanden"
Target = ""
End If
End With
End Sub
ich bin dankbar für jede hilfe!
mfg
Gerhard