Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
300to304
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
300to304
300to304
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Doppeleingabe verhindern

Doppeleingabe verhindern
31.08.2003 14:12:14
Gerhard
hallo Spezialisten
Ich habe mühevoll eine Tabelle erstellt in der reichlich berechnungen ablaufen,
nun wollte ich dies gute stück ein wenig verbessern, doch 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 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 entfernt werden.
die gleiche formatierung benötige ich für ap13:ap252 aq13:aq252 ar13:ar252

ich bin dankbar für jede hilfe!
mfg
Gerhard

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Doppeleingabe verhindern
31.08.2003 15:01:13
Beni
Hallo Gergard,
kopiere diesen Code in das Tabellenmodul.
Gruss Beni


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

Anzeige
AW: Doppeleingabe verhindern
31.08.2003 15:43:05
Gerhard
DANKE !
ich werd es gleich probieren
Hi Berni AW: Doppeleingabe verhindern
31.08.2003 16:03:38
Gerhard
Sorry es funzt leider nicht
habe den code in die Tabelle (vba-editor) kopiert = geht nicht
habe den code in ein Modul der Tabelle (vba-editor) kopiert = geht nicht
habe den code in die Arbeitsmappe (vba-editor) kopiert = geht nicht
Schade
gruß Gerhard
Hi Berni AW: Doppeleingabe verhindern
31.08.2003 17:42:51
Beni
Hallo Gerhard,
ich habe es getestet und bei mir funktionier es,
es muss im Tabellenmodul sein und die Makros müssen aktiviert sein.
Gruss Beni
AW: Doppeleingabe verhindern
31.08.2003 22:12:58
th.heinrich
hallo Gerhard,

aus der RECHERCHE, leider nicht der original thread.

kann man auch die Doppeleingabe selber verhindern:
z.B, unter Daten, Gültigkeit, benutzerdefiniert
Formel
=ZÄHLENWENN(A:A;A1)=1
nach unten kopieren.
Von Ulrich Schneider

gruss thomas
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige