zählen mit excel

Computer: Software & Programmierung Office Software
1

Hallo Ihr Experten !

Ich benötige mal Eure Hilfe.

Folgendes Problem:

Ich möchte nur die Zahlen 1/2/3 in ein bestimmtes Feld in einer Tabelle eingeben. Danach auf einen Button klicken und die jewilige Zahl wird übernommen.

Es soll so sein, das wenn eine der Zahlen in den letzten 8 eigegebenen Werten nicht vorhanden war, eine Meldung angezeigt wird.

Beispiel: es werden viele Zahlen eingegeben, aber die 2 kam in den letzten 8 Zahlen nicht vor, dann soll eine kleine Meldung in der Exceltabelle erscheinen.

Ich habe mir schon einen Wolf deswegen probiert und es nicht hinbekommen.

Ich wäre Euch sehr dankbar…

LG Thomas

2

Hi Thomas,

Ich möchte nur die Zahlen 1/2/3 in ein bestimmtes Feld in
einer Tabelle eingeben. Danach auf einen Button klicken und
die jewilige Zahl wird übernommen.

wieso auf einen Button, reicht Enter nicht?
Was genau bedeutet „übernommen“?

Es soll so sein, das wenn eine er Zahlen in den letzten 8
eigegebenen Werten nicht vorhanden war, eine Meldung angezeigt
wird.

Beispiel: es werden viele Zahlen eingegeben, aber die 2 kam in
den letzten 8 Zahlen nicht vor, dann soll eine kleine Meldung
in der Exceltabelle erscheinen.

Ich habe mir schon einen Wolf deswegen probiert und es nicht
hinbekommen.

Dein Problem zu lösen trau ich mir schon zu, also keine Panik, aber ich kam bei meinem Vba-Code-Ansatz noch nicht dzu mich um das 8mal usw. zu kümmern.

Ich blieb hängen bei der Eingabekontrolle, daß nur 1,2,3 eingegeben werden darf, an sich eine Sache die gar nicht deine Problematik ist, aber meine wurde, weil ich wissen will warum da was klemmt.

Wen es interriesiert,

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address „$A$1“ Then Exit Sub
Application.EnableEvents = False
If Target = 1 Or Target = 2 Or Target = 3 Then Range(„A2“) = Range(„A2“) + Target
Target.Select
Application.EnableEvents = True
End Sub

das klappt wie erwartet, alle Eingeben in A1 die 1,2,3 sind werden in A2 „übernommen“ also aufaddiert.
Problem ist, wenn ich über Daten–Gültigkeit nur die Werte 1,2,3 zulasse, wird in A2 falsch gezählt.

@Thomas, das mußt du nicht verstehen, ist an sich an einen anderen Thomas hier als Anfrage gerichtet ob er da was weiß *hoff*

Wie auch immer, sag mal genauer was du mit „übernehmen“ meinst, dann müßte ich das hinkriegen mit einem anderen Ansatz.

Gruß
Reinhard

Ich wäre Euch sehr dankbar…

LG Thomas

3

Hallo Reinhard,

danke für Deine Rückantwort.

Hmm, übernehmen war wohl das falsche Wort.

Beispiel:
Also ich bekomme die Zahl 3 und die möchte ich der Tabelle „sagen“.

Die Eingabe wird also von mir gemacht und das Programm vergleicht

nun, wieviel mal die Zahl „2“ und „1“ schon nicht mehr gekommen ist.

Tritt der Fall ein, das eine der Zahlen schon während der letzten

8mal Zahleneingeben nicht mehr gekommen ist, sollte eine Meldung

erscheinen, in der die Zahl herausgworfen wird, die also in den

letzten 8 Eingaben nicht mehr eingegeben worden ist.

Ich hoffe das meine Beschreibung nun besser war.

Danke im Voraus und liebe Grüßen
Thomas

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

4

Tritt der Fall ein, das eine der Zahlen schon während der
letzten
8mal Zahleneingeben nicht mehr gekommen ist, sollte eine
Meldung

Hi Thomas,

probiers mal so, die Eingaben in A1 werden überpüft.

Rechtsklick unten auf den Blattnamen, „Code anzeigen“, Code reinkopieren, Editor schließen.

Private Sub Worksheet\_Change(ByVal Target As Range)
Dim N As Byte
Static Merker As String
If Target.Address "$A$1" Then Exit Sub
Merker = Merker & CStr(Target)
If Len(Merker) 


Gruß
Reinhard
5

Wow RESPEKT !!!

Treffer - Versenkt !

Du hast es wirklich drauf.

Sehr gut, das reicht absolut aus, danke sehr.
Gruß Thomas

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]