Office: (Office 2007) Markierte Zellen mit einem Wert füllen

Hallo MOF-Community,

ich versuche eben einen Urlaubskalender für unsere Leute zu erstellen und da wäre es ganz praktisch, wenn man einen Zellenbereich markieren könnte und z.B. mit der Tasteneingabe "u" jede Zelle des markierten Bereichs mit "u" zu belegen.

Wie funktioniert sowas? bzw. wie geht man hierfür vor?

Danke und Gruß

Andi

:)

 

Hallo Andi,

das funktioniert ganz einfach wenn Du bei der Eingabe Strg+ u drückst. Also die entsprechenden Zellen markieren und dann die gewünschte Eingabe mit Strg "unterstützen" *Smilie

cu
myfake

 

Hallo Andi,

du kannst folgenden Code verwenden
Code:

Und diesem Im Makro-Bereich die Taste Strg+U zuweisen. Ansonsten wenn es nur die Taste U sein soll, dann schau mal hier vorbei Makro Taste zuordnen

 

\@myfake erstmal danke für den gutgemeinten Tipp!
Das weisst du und das weiss auch ich, dass das mit Strg+u hinhaut.
Leider wissen das aber die meisten anderen nicht, daher muss ne Codegesteuerte Geschichte her. *wink.gif*


@Sebastian
Danke für den Tipp! Das ist genau das was ich gesucht habe.
Hatte ständig mit Selektion.Cells ... versucht was hinzubekommen. Jetzt weiss ich warums nicht hingehaut hat. *Smilie

Beiden nochmal ein dickes Danke!
Und allen anderen noch einen schönen Arbeitstag!

Gruß
Andi

 

Hi @ All,

geht auchh ohne Schleife:

Selection.Value = "u"

 

Hallo Andi,

nur ein kleiner Hinweis - falls Du Deine Anmeldung vervollständigen willst (im Moment fehlt noch Deine Bestätigung), kannst Du Dir ja mal diesen Thread anschauen: Bestätigungsmail. *Smilie

[Edit]
Ahh - schon gesehen. Es hat geklappt *Smilie
[/Edit]

cu
myfake

 

So jetzt hab ich noch ein Problem.
Ich benutze folgende Funktion um die Zellen farbig zu markieren. Also eine erweiterte Bedingte Formatierung per VBA.

Jetzt dauert es allerdings ewig (ca. 3-5 Sec) bis der Cursor wieder reagiert, wenn ich hier folgende Zeile einfüge.
Es funktioniert zwar, aber gibt es hier ne Möglichkeit das etwas performanter hinzubekommen. Zudem werkelt er auch beim entfernen von Zeichen so lange rum.

Code:

Code:

@myfake
Stimmt ich hab die eMail-Adresse aktualisiert.
Ist jetzt wieder vervollständigt.

Gruß
Andi

 

Moin, Andi,

dann setz bitte einmal zum Verständnis dessen, was dort abläuft, einen Haltepunkt bei der ersten Anweisung im Code (Set RaBereich =...) und arbeite mit F8 im Einzelschrittmodus, damit Du ein Gefühl für Deinen angegebenen Bereich bekommst... *wink.gif* Und dann sag nochmal, dass es zu lange dauert (aber nur, wenn Du alle Zellen wie angegeben abgeklappert hast!).

 

Hallo Jinx,

kann es sein, dass es an dem Worksheet_Change liegt, weil sich natürlich jedesmal wenn er das hier durchläuft Selection.Cells = Selection.Cells(1)
macht er ja wieder einen Worksheet_Change.
Und durchläuft wieder den ganzen Summs. Wie stell ichs denn an, dass er beim Worksheet_Change die Zeile Selection.Cells = Selection.Cells(1) durchläuft aber nicht jedesmal wieder nen Worksheet_Change aktiviert.

Oder liege ich mit meiner Vermutung total daneben?

 

Hallo Andi,

die Ereignisse vor der Codezeile abschalten und danach wieder einschalten:

Code:

Gruß Ingolf

 

Hallo Ingo,

vielen Dank für den Hinweis.

Der hat mich weitergebracht und ich konnte das ganze damit etwas beschleunigen. Gracias! *Smilie