Wertvorgabe in Zelle ?

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi Gerhard,
Das ist kein Programmcode sondern ich habe die Funktion Gültigkeit über das
Menü DATEN-Menüpunkt GÜLTIGKEIT hierfür genutzt.
In der Hilfe von Excel ist das ausführlich beschrieben!
Beschränken der Zelleingaben auf Daten aus einer Liste
Geben Sie in demselben Tabellenblatt die Liste der gültigen Einträge in eine einzelne Spalte oder eine einzelne Zeile ein. Die Liste darf keine leeren Zellen enthalten.
Markieren Sie die Zellen, für die Sie Einschränkungen festlegen möchten.
Klicken Sie im Menü Daten auf Gültigkeit und dann auf die Registerkarte Einstellungen.
Klicken Sie im Feld Zulassen auf Liste.
Geben Sie im Feld Quelle einen Bezug zu der Liste mit den gültigen Daten ein.
Wenn Sie beim Klicken auf eine Zelle mit Gültigkeitseinschränkungen Daten aus der Liste mit den Einträgen auswählen möchten, stellen Sie sicher, dass das Kontrollkästchen Zellendropdown aktiviert ist.
Um festzulegen, dass der Eintrag ungültig ist, wenn die Zellen mit den Einschränkungen oder die Zellen, die die Liste der gültigen Daten enthalten, leer sind, deaktivieren Sie das Kontrollkästchen Leerzeichen ignorieren.
Um Meldungen anzuzeigen, die zur Eingabe von Einträgen auffordern, ungültige Einträge erläutern bzw. deren Eingabe verhindern, geben Sie in den Registerkarten Eingabemeldung und Fehlermeldung die entsprechenden Meldungsarten an.
Wie wird's gemacht?
Wenn keine Meldungen angezeigt werden sollen, deaktivieren Sie in der Registerkarte Eingabemeldung das Kontrollkästchen Eingabemeldung anzeigen wenn Zelle ausgewählt wird, und deaktivieren Sie in der Registerkarte
Schau mal in meiner Beispielmappe bei den entsprechenden Zelle in das angegebene Menü und Du kannst meine Eingaben sehen.
Viel Erfolg!
Fritz

Private Sub Worksheet_Change(ByVal Target as Range) If Target.value ungleich "s" or Target.value ungleich "r" or Target.value ungleich "w" then Target.value = empty MsgBox "Sie dürfen nur die Werte s, r oder w eintragen!" End if End Sub

Hallo Werner!
Leider habe ich noch nicht die Zeit gefunden mein Problem von gestern ganz zu lösen.
Habe aber Deinen Vorschlag etwas geändert mit eingebaut und funktioniert SUPER!
Selection.AutoFilter Field:=11, Criteria1:=""
laR = Cells(Rows.Count, 11).End(xlUp).Row
Range("2:" & laR).SpecialCells(xlCellTypeVisible).Select
lngZaehlen = Selection.Count
Was ich aber nicht schaffe ist, dass ich nur die Zellen der Spalte 11(K) zähle
Wenn ich diese Auswahl zähle dann erhalte ich den Wert vom allen Zellen jeder Spalte also 256 pro Zeile.
Habe Anfang Mai eine 2Tage VBA Kurs am WIFI belegt aber leider stehe ich trotzdem bei sehr vielen Problemen an.
Besten Dank und ein Schönes Wochenende wünscht Dir
Gerhard

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Wertvorgabe in Zelle ?

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread