Office: (Office 2007) Makro für wenn Zelle gefüllt dann Nachbarzelle wert eintragen

Hallo Excelspezialisten,

Ich bin auf der suche von einem Makro der beim eintragen ( B2 ) von Text, Zeichen oder Zahl in die Nachbarzelle ( B1 ) ein x setzt. Es soll auch beim löschen des B2 wertes auch den B1 Wert löschen.

Etwas in der Richtung habe ich für das Datum gefunden aber eben nur fürs Datum das brauch ich aber nicht.

Ich weis das es eininge Formeln gibt aber ich möchte beim erweitern der Liste nicht ständig die Formeln kopieren.

Ich freu mich auf eure Hilfe.

Danke im voraus

:)

 

warum nicht Formel?
=Wenn(B1"";"X";"")

 

oder schreibe eine Leerstelle in B2.

Tabelle1

	B
1	1
2	X

die bedingte Formatierung Fülleffekte, Symbole, Datenbalken
werden in dieser Tabelle nicht dargestellt

Bedingte Formatierung Haupttabelle 1
Wird angewendet auf	Nr. Bed. *Regeltyp	Operator	Formel1	Formel2	Format Schrift Füll-farbe	Unterstrichen	Schrift- farbe	Muster	Muster-farbe	Typ	Bereich
$B	01.Bed.: Formel ist		=B1<>""		Test					2	$B

Bedingte Formatierung Haupttabelle 2					oberere/unterer Bereich
Wird angewendet auf	Nr. Bed.	Format Zelle	Anhalten	Auswahl	Anzeige	Anzahl	Durchschnitt	Typ	Bereich
$B	01.Bed.	'"X";"x","x";"X";"X"	Falsch					2	$B

Die Bedingungen wurden mit Excel-Version ab 2007 ausgelesen.

Excel-Inn.de

Hajo-Excel.de

XHTML-Tabelle zur Darstellung in Foren, einschl. der neuen Funktionen ab Version 2007

Add-In-Version 25.12 einschl. 64 Bit

 

Moin,

in Zelle B1
Code:

 

Hallo, danke für die Antworten
Die Formeln funktionieren jedoch müssen sie jedes mal neu eingegben bzw. kopiert werden.

Mit der bedingten Formatierung bin ich nicht klargekommen ich verstehe auch nicht die 2 Haupttabellen.

Ich habe die datei im Anhang könnt ihr euch das bitte mal anschauen

 

Moin,

zieh in Variante1 die Zelle nach unten: Rechte untere Ecke anfassen bis ein + erscheint, Maus halten und so weit nach unten ziehen, wie's es braucht.

 

Ja das geht, aber wenn eine neue Zeile dazwichen schiebe wird ist das ganze wieder unterbrochen und ich muss kopieren ist für mich nur eine halbe Lösung.

Trotzdem danke für deine Hilfe

 

Moin,

dann wird's aufwendiger: Bereich bestimmen und in diesem Bereich Berechnung durchführen.

Möglicherweise ließe sich das Ereignis geschickter wählen.

 

Nachtrag: Nun wird erst gerechnet, wenn in der gefragten Spalte etwas geändert wurde.

 

schade ich komm nicht dazu mir das genauer anzuschauen > Fehlermeldung

Fehler beim Kompilieren: Außerhalb der Prozedur ungültig

 

Setz das "Options explicit" in Kommentar - wieso dieer Fehler auftritt, ist mir schleierhaft.

Bescheuerter Tippfehler: "Option explicit" schreibt man ohne s!

 

Hi,

auch ich lerne bis zur letzten Minute:

Das Ereignis Worksheet_change ist das richtige, und außerdem braucht's gar keine Schleife - target liefert die Info, welche Zelle angepackt wurde.

 

Prinzipiel war es richtig nur ist mir aufgefallen das es "träge" reagiert und bei einem Datensatz von 500 Zeilen geht garnichts mehr. Ich kann nicht mal was in Zellen eintragen weil er mit irgentwas arbeitet (Maus mit Ladesymbol, blauer Kreis). Ist das die Schleife die er immer wiederhohlt?

 

Hi,

da im letzten Code gar keine Schleife ist, kann's daran nicht liegen :-( Hab's gerade getestet - rennt wie ein geölter Blitz.