Spalte prüfen

Forumthread: Spalte prüfen

Spalte prüfen

30.05.2006 12:16:45

orhun

Hallo
Ich habe frage an Exel-Profis,
ich möchte an eine Spalte(D1:D30) wert eingeben z.b. 65 und gleich prüfen ob in diesen spalten meehrere 65 drin ist. Wenn mehr wie 4 eintrag von 65 drin ist dann soll 5 te eintrag verhindern oder eine meldung dass nicht geht.
Danke voraus!!
mfg

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Spalte prüfen

30.05.2006 12:24:12

Mag
AW: Spalte prüfen

30.05.2006 13:04:05

Erich
AW: Spalte prüfen

31.05.2006 00:03:23

orhun
AW: Spalte prüfen

31.05.2006 09:38:53

Erich
AW: Spalte prüfen

31.05.2006 12:06:10

orhun

AW: Spalte prüfen

30.05.2006 12:24:12

Mag

Hi,
=WENN(ZÄHLENWENN(D1:D30;65)=5;"Fehler";"OK")
Gruss

AW: Spalte prüfen

30.05.2006 13:04:05

Erich

Hallo Orhun,
oder mit einer Ereignisprozedur (gehört in der Code der Tabelle -
Alt+F11, dann Doppelklick links auf die Tabelle):

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect([D1:D30], Target) Is Nothing Then Exit Sub
If WorksheetFunction.CountIf([D1:D30], Target) > 4 Then
Application.EnableEvents = False
Target.ClearContents
Target.Select
Application.EnableEvents = True
MsgBox Target & " gibts schon 4 mal"
End If
End Sub

Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

AW: Spalte prüfen

31.05.2006 00:03:23

orhun

Hallo erich,
Danke! Es funktioniert super! Ich habe noch bitte von dir. Ich verdende diese code für eine liste mit Mitarbeiter anwesende. Das heist wenn eine Mitarbeiter an arbeit kommt dann trage ich an zelle zb. D1 "x" ein dann ist anwesend aber wenn Mitarbeiter frei ist dann trage ich an zelle zb."55" oder "10" oder "1" ein. Je nach welche art der Mitarbeiter frei ist. Jetzt meine wunsch: ich will das man nur an zellen bis max 5 mal zahl:"55 oder "10" oder "1" eingetragen werden können. wenn mehr als 5 eintragen, dann soll das verhindert werden.
mfg
Orhun

AW: Spalte prüfen

31.05.2006 09:38:53

Erich

Hallo Orhun,
das ginge z. B. so:

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim arrT(), ii, intSum As Integer, strT As String
arrT = Array(1, 10, 55)
If Intersect([D1:D30], Target) Is Nothing Then Exit Sub
For ii = 0 To UBound(arrT)
intSum = intSum + WorksheetFunction.CountIf([D1:D30], arrT(ii))
strT = strT & " " & arrT(ii)
Next ii
If intSum > 4 Then
Application.EnableEvents = False
Target.ClearContents
Target.Select
Application.EnableEvents = True
MsgBox "Es gibt schon vier Einträge" & strT
End If
End Sub

Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

AW: Spalte prüfen

31.05.2006 12:06:10

orhun

Hallo Erich,
Danke nochmal! es fuktioniert super!
Schöne Tag noch!
mfg
Orhun

Beliebteste Forumthreads (12 Monate)

Forumthread: Spalte prüfen

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

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread