Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 18:41:19
vba Zeilen duplizieren ab aktiver Zeile bis letzte Zeile
25.04.2024 18:22:55
Zeilen mit bestimmtem Datum in andere Mappe übertragen
25.04.2024 18:14:45
VBA - Excell - Kopie und "Diebstahl" Schützen
25.04.2024 17:49:39
Bedingte Formatierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
768to772
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
768to772
768to772
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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
Anzeige
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
Anzeige
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
Anzeige
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)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige