Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
14.05.2012 12:10:54 |
Igelchen |
|
|
|
14.05.2012 18:40:55 |
Brumms |
|
|
|
14.05.2012 23:41:39 |
Gast97260 |
|
|
|
15.05.2012 11:04:05 |
Igelchen |
|
|
|
16.05.2012 19:19:08 |
Brumms |
|
|
Warnmeldung nach zweiter Änderung einer Zelle |
17.05.2012 16:55:32 |
Till |
|
|
Von:
Till |
Datum:
17.05.2012 16:55:32 |
Views:
1912 |
Rating:
|
Antwort:
|
Thema:
Warnmeldung nach zweiter Änderung einer Zelle |
Hi,
du kannst auch einfach eine Gültigkeitsprüfung hinzufügen, dürfte bei großen Datenmengen etwas langsam sein. Bei kleinen Datenmengen aber bestens funktionieren:
Sub EintragenUndSperren()
Dim rng As Range, x As Range, Val&
Set rng = Range("A1:C10")
For Each x In rng
Val = (Val + 1) + (Rnd * 1000)
x = Val
With x.Validation
.Delete
.Add Type:=xlValidateWholeNumber, AlertStyle:=xlValidAlertStop, _
Operator:=xlEqual, Formula1:=Val
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = "Eingabemeldung Titel"
.ErrorTitle = "Fehlermeldung Titel..."
.InputMessage = "Eine Eingabemeldung"
.ErrorMessage = "Eine Fehlermeldung..."
.ShowInput = True
.ShowError = True
End With
Next
End Sub
Gruß
Till
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
14.05.2012 12:10:54 |
Igelchen |
|
|
|
14.05.2012 18:40:55 |
Brumms |
|
|
|
14.05.2012 23:41:39 |
Gast97260 |
|
|
|
15.05.2012 11:04:05 |
Igelchen |
|
|
|
16.05.2012 19:19:08 |
Brumms |
|
|
Warnmeldung nach zweiter Änderung einer Zelle |
17.05.2012 16:55:32 |
Till |
|
|