Live-Forum - Die aktuellen Beiträge
Datum
Titel
13.10.2025 19:31:31
VBA Formel mit Bezug auf Überschrift anstatt Spalte
13.10.2025 15:10:17
Überlappende Zeiträume über mehrere Tabellen mit leeren Zell
13.10.2025 13:34:56
PQ Abfrage mit verschiedenen Werten ausführen + Protokoll
13.10.2025 12:24:02
Zählen in Abhängigkeit einer Jahreszahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
132to136
132to136
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

xy-Koordinaten einer Zelle

Forumthread: xy-Koordinaten einer Zelle

xy-Koordinaten einer Zelle
11.07.2002 09:00:05
Hannes
Hallo *,

ich möchte in eine genau definierte Zelle eines Excel-Sheets (z.B. B7) per Makro eine Grafik einbringen. Mit Cliparts funktioniert das ganz einfach:

ActiveSheet.Pictures.Insert( "C:\...\...\beispiel.wmf")

... trägt das Bild in die linke obere Ecke der Zelle ein. Aber wie funktioniert das mit einem Rechteck? Hier muss ich immer die xy-Koordinaten eingeben, z.B.:

ActiveSheet.Shapes.AddShape( msoShapeRectangle, 60#, 76.5, 60#, 12.75).Select

Wie bekomme ich also beispielsweise die Koordinaten der Zelle B7 heraus, ohne dass ich die Höhen und Breiten aller Zellen von A1 bis B7 addiere? Eine Funktion ...

ActiveCell.xkoord und ActiveCell.ykoord

... wäre da sehr hilfreich, die gibt es aber nicht!

Gruß Hannes

Anzeige

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: xy-Koordinaten einer Zelle
11.07.2002 09:07:05
MRR
Hallo Hannes,
meinst Du so etwas?

HTH, Matthias
Ergänzung
11.07.2002 09:08:05
MRR
natürlich sollte es schonricht variabel sein - ich vergaß...

Re: xy-Koordinaten einer Zelle
11.07.2002 09:10:10
Hans W. Herber
Hallo Hannes,

etwas zu kompliziert gedacht:

Bitte beachten: Auch hier ist Selektieren Teufelszeug.

hans

Anzeige
Re: xy-Koordinaten einer Zelle
11.07.2002 09:19:50
Hannes
Geil!

Das ist genau die Lösung. Und so einfach!

Herzlichen Dank für die schnelle Antwort!

Gruß Hannes

Re: Ergänzung
11.07.2002 09:23:57
Hannes
Hallo Matthias,

Herzlichen Dank für die Antwort, aber das war nicht ganz das, was ich wollte. Aber die Lösung von Hans W. Herber passt 100%.

Trotzdem herzlichen Dank für Deine Mühe und schnelle Antwort!

Gruß Hannes

Anzeige
etwas flexibler....
11.07.2002 09:34:22
L.Vira
Sub Rechteck()
Dim Z As Range
Set Z = Selection
ActiveSheet.Shapes.AddShape(msoShapeRectangle, Z.Left, Z.Top, Z.Width, Z.Height).Select
End Sub
Re: etwas flexibler....
11.07.2002 09:55:02
Hannes
Herzlichen Dank!

wenn ich das richtig sehe entspricht die Lösung der Lösung von Hans W. Herber.

Aber trotzdem herzlichen Dank! Ich finde es wahnsinnig, wie schnell und kompetent hier im Forum auf Problemanfragen geantwortet wird.

Meine Hochachtung!

Gruß Hannes

Anzeige
Re: etwas flexibler....
11.07.2002 10:15:12
L.Vira
Nicht ganz, denn bei meinem Code wird das Rechteck der aktuellen Selection angepasst, also wenn mehrere zellen selektiert sind, wird es über alle Zellen angepasst.
Re: etwas flexibler....
11.07.2002 10:17:40
Hannes
Stimmt!

Das ist noch das i-Tüpfelchen!

Danke, Hannes

;
Anzeige

Infobox / Tutorial

xy-Koordinaten einer Zelle

Schritt-für-Schritt-Anleitung

Um die xy-Koordinaten einer Zelle zu ermitteln und eine Grafik oder ein Rechteck in eine Excel-Zelle einzufügen, kannst Du folgende Schritte befolgen:

  1. Zelle auswählen: Wähle die Zelle aus, in der Du das Rechteck oder die Grafik platzieren möchtest (z.B. B7).

  2. VBA-Editor öffnen: Drücke ALT + F11, um den VBA-Editor zu öffnen.

  3. Modul erstellen: Klicke auf "Einfügen" > "Modul", um ein neues Modul zu erstellen.

  4. Code eingeben: Füge den folgenden Code in das Modul ein:

    Sub Rechteck()
   Dim Z As Range
   Set Z = Selection
   ActiveSheet.Shapes.AddShape(msoShapeRectangle, Z.Left, Z.Top, Z.Width, Z.Height).Select
End Sub

  5. Makro ausführen: Schließe den VBA-Editor und führe das Makro über ALT + F8 aus, wähle "Rechteck" und klicke auf "Ausführen".

Jetzt wird ein Rechteck über der ausgewählten Zelle erstellt.

Häufige Fehler und Lösungen

  • Fehler: Rechteck wird nicht an der richtigen Stelle eingefügt

    • Lösung: Stelle sicher, dass Du die richtige Zelle ausgewählt hast, bevor Du das Makro ausführst.

  • Fehler: Makro wird nicht ausgeführt

    • Lösung: Überprüfe, ob die Makros in Deinen Excel-Einstellungen aktiviert sind (Datei > Optionen > Sicherheitscenter > Einstellungen für das Sicherheitscenter > Einstellungen für Makros).

Alternative Methoden

Eine alternative Methode, um Grafiken (wie Cliparts) in eine Zelle einzufügen, wäre die Verwendung des folgenden Codes:

ActiveSheet.Pictures.Insert("C:\...\...\beispiel.wmf")

Dieser Befehl fügt eine Grafik in die linke obere Ecke der Zelle ein. Du kannst die Position manuell anpassen, wenn nötig.

Praktische Beispiele

  1. Einfügen eines Rechtecks in Zelle B7:

    • Wähle die Zelle B7 aus und führe das oben genannte Makro aus.

  2. Einfügen eines Cliparts:

    • Um ein Clipart zu lesen und in die Zelle B7 einzufügen, kannst Du folgenden Code verwenden:
    ActiveSheet.Pictures.Insert("C:\...\...\clipart1.wmf")

    Dies fügt das Clipart in die Zelle ein.

Tipps für Profis

  • Nutze relative Pfade für Cliparts, um die Übersichtlichkeit zu erhöhen, besonders wenn Du die Datei auf verschiedenen Computern verwenden möchtest.
  • Experimentiere mit der Größe und Position der Form in Deinem VBA-Code, um das gewünschte Aussehen zu erzielen.
  • Wenn Du oft mit Grafiken und Cliparts arbeitest, erstelle ein Benutzerformular, um die Auswahl zu erleichtern.

FAQ: Häufige Fragen

1. Wie kann ich die Größe des Rechtecks anpassen? Du kannst die Parameter Z.Width und Z.Height im Code ändern, um die Größe des Rechtecks anzupassen.

2. Funktioniert das Makro in jeder Excel-Version? Das Makro sollte in Excel-Versionen ab 2007 funktionieren. Achte darauf, dass Du die richtigen Sicherheits- und Makroeinstellungen hast.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige