Zelle markieren

Question

Hallo Excelfreaks
Ist es möglich , zur besseren Erkennung mit einer Tastenkombination
die Spalte C und Zeile 5 zu markieren und den Schnittpunkt Zelle C5
automatisch zu vergrössern
dies ist nur ein beispiel
MfG

Answer 1

Du kannst eine einzelne Zelle nicht vergrößern.
Zelle markieren

Gruß Hajo

Answer 2

Hallo Hajo
mit dem Code komme ich leider nicht zurecht , ich bin nur
Excelanwender
Aber mit Strg und mausklick auf eine Zeile und eine Spalte erhalte ich
ein Fadenkreuz und diese Zelle sollte dann farblich erscheinen
kannst du mir da weiterhelfen
MfG

Answer 3

Hallo Hambi,

Hier 'ne kleine Einführung:

[*]Ansicht --> Makros (unten anklicken) --> Makro aufzeichnen
in das Feld neben Ctrl+ einen beliebigen Buchstaben eintragen (z.B. "g")
[*]Speichern in "Diese Arbeitsmappe" bzw. wenn du das Makro auch in anderen Excel-Dateien verwenden möchstest, wähle "Persönliche Arbeitsmappe"
[*]Nach Klick auf OK bist du im Aufzeichnungsmodus
[*]Klicke nun auf Zelle C5
[*]Hinterlege hier eine Hintergrundfarbe deiner Wahl.
[*]Jetzt wieder Ansicht --> Makros (unten anklicken) --> Aufzeichnung beenden
[*]Mit Strg + G startest du das Makro und Zelle C5 wird automatisch angewählt und farbig markiert.

Wenn du statt Zelle C5 lieber die Aktuelle Celle farbig markieren möchtest starte den VB-Editor (Alt+F11)
Ersetzte in Modul1 Range(C5).Select durch ActiveCell.Select

Gruß Mr. K.

Answer 4

Um dein Fadenkreuz zu erhalten brauchst du folgenden Code

Set a = ActiveCell
Union(Rows(ActiveCell.Row), Columns(ActiveCell.Column)).Select
a.Activate

Wähle dazu z.B. im VB-Editor Tabelle1, dann links oben Worksheet und rechts oben BeforeDoubleClick.
Füge den Code dort ein
Immer wenn du auf eine bestimmte Zelle doppelklickst wird das wie gewünscht markiert.

Gruß Mr. K.

Answer 5

Jetzt wirds komliziert!

Wenn du das in all deinen Excel-Dateien so verwenden willst musst du das Makro nur einmalig in deiner Personl.xls hinterlegen.
-Zeichne ein beliebiges Makro in die Persönliche Arbeitsmappe auf, um die Personl.xlsx zu erstellen.
-Wechsel zum Editor (Alt+F11) und wähle Einfügen --> Klassenmodul
-Benenne es links unten in EventClassModule um

-Gib in dieses Modul den folgenden Code ein:

Public WithEvents App As Application

Private Sub App_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)

Union(Rows(Target.Row), Columns(Target.Column)).Select
Target.Activate


End Sub

-Wähle nun "DieseArbeitsmappe" direkt unter "Personl.xls" und gib dort diesen Code ein:

Dim X As New EventClassModule

Private Sub Workbook_Open()


Set X.App = Application

End Sub

Ab jetzt sollte in jeder Arbeitsmappe bei Doppelclick auf eine beliebige Zelle das Fadenkreuz erscheinen!

Answer 6

Ab jetzt sollte in jeder Arbeitsmappe bei Doppelclick auf eine beliebige Zelle das Fadenkreuz erscheinen!

Das setzt natürlich einen Neustart von Excel voraus.

Ich hoffe ich konnte dir helfen
Viele Grüße Mr. K.