Office: automatisch ein X in die Zelle setzen

Hallo!

Rechtsklicke den Tabellenreiter des entsprechenden Blatts und wähle "Code anzeigen".
Kopiere den Code ins Codefenster rechts oben.

 

so und nun möchte ich noch gern, dass ich das auf jedes eingerahmte kästchen anwenden kann. hab ´n excel-dokument erzeugt, bei dem ich auf der linken und rechten seite kästchen anklicken möchte, aber auf der rechtenseite geht gar nix und links nur jedes zweite kästchen und nur bis zur zeile 10.
sehr seltsam...

 

Hallo!

überhaupt nicht seltsam, denn das war ja die Vorgabe beim ursprünglichen Problem:

Wenn es auf alle Zellen angewendet werden soll, dann lass die If-Abfrage weg:

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  Cancel = True
  Select Case Target
    Case Is = "": Target = "x"
    Case Is = "x": Target = ""
    Case Else: Cancel = False
  End Select
End Sub

(oder je nachdem, welchen Code du dir ausgesucht hast.)

 

Hätte den Code gerne so, dass ich entweder in der Zeile "D" oder in der Zeile "E" ein X setzen kann. In beiden Zeilen ist es nicht möglich gleichzeitig ein X zu setzen.

Sitze schon seit einer Stunde dran und komme nicht weiter. Hoffe es kann mir jemand helfen. :-(

 

Du hast den Parameter "Target", der die Eigenschaften "Row" und "Column" hat. Mit einer passenden IF-Abfrage läßt sich der Bereich einschränken, in dem die Aktion ausgeführt wird. Also z.B. etwas in der Art:

Code:

if (target.column=4) or (target.column=5) then
  [aktion]
endif

Doch, möglich schon... ;-) Aber Du meinst: Nicht erlaubt? (Ich gehe übrigens mal davon aus, daß Du eigentlich "Spalten" meinst, oder?) Ok, dann ist es also bei "[aktion]" eine Abfrage, ob in der jeweils anderen Spalte bereits ein "X" gesetzt ist. Frage ist nur, was soll passieren, wenn dort eins steht? Zwei Möglichkeiten:
a) Nichts - eben weil in der anderen Spalte schon ein "X" steht
b) Das "X" in der anderen Spalte wird gelöscht und in der aktuellen gesetzt

Die Aktion für b) würde also irgendwie in der Art aussehen:

Code:

y1=target.row
x1=target.column
select case x1
  case 4: x2=5
  case 5: x2=4
end select
cells(y1,x2).clearcontents
cells(y1,x1).value="X"

Jetzt wird mit jedem Doppelklick ein "X" in der Zelle gesetzt und ggf. das "X" in der anderen Zelle gelöscht.

Und jetzt noch das "Umschalten", wenn in der aktuellen bereits ein "X" steht... Dann aber auch wieder die Frage: Wenn das aktuelle "X" gelöscht wird, was passiert in der anderen Spalte? Soll es dann dort gleich wieder gesetzt werden, oder bleibt es dort auch leer? Ich gehe mal von ersterem Fall aus:

Die letzten beiden Zeilen von eben werden dann zu etwas in der Art:

Code:

s=trim$(cells(y1,x1).value)
if (s="") then
  cells(y1,x2).clearcontents
  cells(y1,x1).value="X"
 else
  cells(y1,x1).clearcontents
endif

Alles zusammen müßte es also irgendwie so aussehen:

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

  dim x1 as long
  dim x2 as long
  dim y1 as long
  dim s as string

  x1=target.column
  if (x1=4) or (x1=5) then

    select case x1
      case 4: x2=5
      case 5: x2=4
    end select
    y1=target.row
    s=trim$(cells(y1,x1).value)
    if (s="") then
      cells(y1,x2).clearcontents
      cells(y1,x1).value="X"
     else
      cells(y1,x1).clearcontents
      'cells(y1,x2).value="X"
    endif

  endif

End Sub

Und wenn das "X" beim Löschen doch in der jeweils anderen Spalte gleich wieder gesetzt werden soll, nimm einfach das Kommentar-Zeichen ' aus der Zeile vor dem "endif" wieder raus.

ungetested, aber ich bin erstmal ganz zuversichtlich... ;-)

Gruß, Michael

 

Klasse, das funktioniert genau so wie ich es mir vorgestellt habe. Vielen Dank!

Nur noch eine Frage: Aus optischen Gründen würde ich gerne zwei Zellen verbinden und dann in dieser gemeinsamen Zelle ein X setzen. Allerdings bekomme ich hier eine Fehlermeldung.

 

schatzi wird jetzt bestimmt etwas im Grundtenor "verbundene Zellen sind böse" schreiben wollen, und das nicht ganz zu unrecht.

Aber letztendlich kann eine verbundene Zelle über die Adresse "links oben" angesprochen werden. target.column bzw. .row sollten auch die linke obere Zell-Adresse zurückliefern, meine ich.

Wenn Du also die Zellen B5 und C5 verbunden hast, dann sollte die Gesamt-Zelle trotzdem weiter über B5 angesprochen werden können. Im VBA wäre das dann cells(5,2).

Wo genau tritt denn die Fehlermeldung auf? Klick im Fehlermeldungs-Fenster einfach auf "Debuggen" und sag die Zeile, die dann gelb eingefärbt ist.

Gruß, Michael

 

Hoffe das hilft dir weiter. Habe nicht B5 mit C5 verbunden, sondern D9 mit D10 zum Beispiel. ;-)

Code:

Cells(y1, x2).ClearContents

 

Ich habe den Verdacht, daß x2 in dem Moment einen ungültigen Wert hat.

In dem "select case ..." wird ja abgeprüft, ob der Doppelklick in Spalte (x1) 4 oder 5 passiert, um denn die "Gegen"-Spalte in x2 zu setzen.

Normalerweise(!) dürfte in x1 nur der Wert 4 oder 5 stehen, weil die äußerste IF-Abfrage einen Durchlauf in den inneren Bereich bei allen anderen Werten verhindert.

Code:

  if (x1=4) or (x1=5) then 

    select case x1 
      case 4: x2=5 
      case 5: x2=4 
    end select 

    [...]

  endif

Hast Du an der IF- oder der CASE-Geschichte etwas an den Werten 4 bzw. 5 geändert? Wenn ja, vielleicht nur an einer, nicht aber an beiden Zeilen?

Gruß, Michael

 

Sorry das ich mich jetzt erst wieder melde. Aber war das Wochenende nicht da.

Nein ich habe nichts geändert. Habe es komplett von dir übernommen. :-(

 

Ok, ich habe es mal nachgestellt. Wenn du D9:D10 verbindest, gibt es eine Fehlermeldung, ja. Das ClearContents geht nicht bei verbundenen Zellen, war mir bislang gar nicht aufgefallen.

Ändere das

Code:

clearcontents

in den 2 Zeilen ab in

Code:

value=""

die Zellen sind dann zwar nicht wirklich "leer", sondern haben einen leeren String als Inhalt. Das dürfte für Deine Belange aber keinen Unterschied machen.

Beachte aber, wenn Du z.B. D9:D10 verbunden hast, daß Du zwingend auch E9:E10 verbunden haben mußt. Sonst hättest Du 2 "X" in Spalte E, die zu einem "X" in Spalte D gehören.

Gruß, Michael

 

Klappt wunderbar! Vielen Dank für die Hilfe. Super Forum hier.