EXCEL 2003: Durch anklicken - Automatisch bestimme Zahl einfügen

[M.Fritsch69]

Hallo Jungs & Mädels,

ich bin zur Zeit dabei verschiedene Sachen bei uns in der Firma auf einen neuen Stand zu bringen.
Dadrunter fällt jetzt auch eine Liste zur Erfassung bestimmter Ereignisse.

Jetzt meine Frage:

- Gibt es eine Möglichkeit bei Excel welche die Funktion beinhaltet

- FELD ANKLICKEN
- Automatisch wird die Ziffer 1 eingefügt und nur die 1



Lieben Gruß,
Michael :18:

[Glausius]

Ja, Micha,

gibt es über VBA: "Select_Change".

[M.Fritsch69]

Ja, Micha,

gibt es über VBA: "Select_Change".

Achso ..

ich muss noch dazu sagen: Ich bin absolut KEIN Profi in Excel .. den normalen Standart bekomme ich noch hin, aber ab da bin ich überfordert :16:

[Glausius]

Micha,

nimm eine leere Tabelle, klicke mit rechts auf den Tabellenblattnamen und wähle "Code anzeigen" aus. Dann kopierst du folgenden Code in der recht Fenster und macht den VBA-Editor im Schließenkreuz oben rechts (rot) wieder zu:

Code:

Option Explicit

Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Intersect(Target, Range("B5")) Is Nothing Then Exit Sub
    Target = "1"
End Sub

Wenn du jetzt die Zelle B5 markierst, wird dort eine "1" eingetragen!

Wo und in welchen Zellen willst du denn die "1" eingetragen haben? Dazu müsste der Bereich "Range("B5")" im Code angepasst werden!

[M.Fritsch69]

Puh .. Also das hat schon mal geklappt & durch das ändern von B5 zu B23 gehts auch in dem richtigem Feld :)

Nur sind es gefühlt 1.000.000 wo es diese Codes auch geben müsste.




Z.B in B21, B23, B25, B27 ... B901    sollen beim anklicken Einsen auftauchen
in C21, C23, C25, C27 ... C901         sollen beim anklicken Zweien auftauchen
in D21, D23 ...                  D901        sollen dann Dreien
und ich E21, E23               E901        sollen dann Vieren auftauchen

und das müsste dann letztendlich bis GI21, GI23 etc. gehen


geht sowas denn ?

[Glausius]

Mann,

was soll denn das für eine Tabelle werden?
Gib mal etwas mehr Feedback, damit man das versteht und evtl. einen Algorhythmus daran erkennen kann.
Bis jetzt habe ich verstanden, dass ab den Spalten B bis G immer etwas eingetragen werden soll, allerdings nur in den ungeraden Zeilennummern und ab B=1 jeweils um eins aufsteigend bis G=6.

Im Übrigen geht zu ziemlich alles in Excel, nur mit welchem Aufwand.

Wenn ich dich richtig verstanden habe, sollte dieser Code das gewünschte tun:

Code:

Option Explicit

Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Intersect(Target, Range("B21:GI901")) Is Nothing Then Exit Sub
    If Int(Target.Row / 2) = Target.Row / 2 Then Exit Sub
    If Target.Count > 1 Then Exit Sub
    Target = Target.Column - 1
End Sub

(Wie der hinter die Tabelle kommt, hast du ja schon gelern!)

[M.Fritsch69]

Hallo,

Also es ist eine Liste in der durch eine "1" im richtigem Feld makiert wird das der jeweilige Rauchmelder in dem "Quartal 1" ausgelöst wurde.
Die "2" im richtigem Feld sagt dann halt dass der Rauchmelder im "2. Quartal" ausgelöst wurde.

Wenn du magst kann ich dir die jetzige Tabelle gerne mal per Email schicken ?!


Achso .. es geht nur bis 4 -> nicht bis 6.

[Glausius]

hatte meinen Beitrag gerade mit einem Code ergänzt!

Stelle doch mal einen kurzen Auszug der Tabelle hier ein - einige Zeilen und die Anzahl der Spalten.

[M.Fritsch69]

Hallo,

Wie soll ich denn einen Auszug posten ? Screenshot meinst du bestimmt nicht oder ?

[Glausius]

Hallo Micha,

schau mal hier: http://www.clever-excel-forum.de/thread-326.html bzw. hier: http://www.clever-excel-forum.de/thread-47.html
da wird das genau beschrieben.