Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
712to716
712to716
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Shapes an Zellen ausrichten

Forumthread: Shapes an Zellen ausrichten

Shapes an Zellen ausrichten
06.01.2006 11:06:51
PeterP
Hallo Excel-Gemeinde,
kann ich Shapes (Formular-Kombifelder, nicht VBA!) per VBA an Zellen positionieren?
Also z.B. ein Kombifeld namens C3 per VBA zur Zelle C3 (linke obere Ecke Feld an linke obere Ecke Zelle) bewegen? Wenn ja - wie?
Gruß&Dank
Peter
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Shapes an Zellen ausrichten
06.01.2006 12:22:24
Uduuh
Hallo,
sowohl Shapes als auch Zellen haben eine Top- und eine Left-Eigenschaft.
Gruß aus’m Pott
Udo

AW: Shapes an Zellen ausrichten
06.01.2006 12:56:21
PeterP
Uff - sorry für meine dämliche Frage :-O ... aber auf die Idee , daß eine Zelle im Sheet auch sowas hat, bin ich einfach nicht gekommen ... tsts :).
Danke
Peter
Anzeige
;

Forumthreads zu verwandten Themen

Textfeld ändern und in Zelle schreiben
Sergej

Hallo ich habe mehrer Textfelder, diesen ein Makro hinterlegt:
Dabei soll bei Eingabe der neue String in die bestimmte Zelle und in das Textfeld gechreiben werden, ich komme mit der Syntax nicth ganz klar, ich möchte in der ZEILE
ActiveSheet.Shapes.Range(Array("TextBox 5")).Select, stat...
23.04.2013 13:48:00
Thread-ID: 1310019
2 Beiträge
VBA: bei verlassen Textbox 5, berechnen Textbox6
Bernd

Hallo zusammen,
bei folgendem Problem komme ich nicht weiter.
Userform Textbox5 enthält Geburtstag. In TextBox6 sollen die Tage bis zum nächsten Geb. berechnet werden. Am Geb. direkt soll "Happy Birthday" in TextBox6 stehen.
Habe eine Formel, die in der Tabelle bereits diese Ergebni...
06.08.2013 15:18:19
Thread-ID: 1325930
8 Beiträge
Text in Combobox vertikal zentrieren
{Boris}
Hi Leute,
ist es möglich, den Text in einer Combobox vertikal zu zentrieren?
Also analog der Zellausrichtung für "Vertikal" - Zentriert.
Oder muss man das immer aus Comboboxhöhe und Schriftgröße "zusammenbasteln"?
Danke und
Grüße {Boris}
09.02.2004 15:56:46
Thread-ID: 379155
3 Beiträge
Userform an zelle ausrichten
Torsten

Hallo,
ich öchte dass wenn ich in Spalte A in eine Zelle klicke (Worksheet Selection Change), dass dann eine Userform sich öffnet und diese sich unten rechts an der Zelle positioniert.
Vielen Dank,
Torsten
13.10.2004 11:40:18
Thread-ID: 499736
2 Beiträge
UserForm an Zelle ausrichten
markus

Hallo,
ich suche eine Möglichkeit, eine Userform an einer x-beliebigen Zelle in einer Tabelle auszurichten. Damit möchte ich bewirken, dass die UF immer an der gleichen Stelle erscheint, egal welche Größe / Position das Fenster der Datei gerade hat. Ist das möglich?
Danke für Eure Hilfe...
05.03.2005 03:24:12
Thread-ID: 581015
2 Beiträge
Userform an Zelle ausrichten
SteffenS

Hallo und guten Abend,
ich brauche bei einem für schwierigem Problem Eure Hilfe!
Ich habe eine Userform die ich über eine Funktionstaste aufrufe.
Rufe ich die Userform auf, so soll diese unterhalb der aktive Zelle positioniert werden.
Mit anderen Worten ich möchte eine Userform...
05.04.2005 21:47:28
Thread-ID: 594665
2 Beiträge
Textfeld bei anklicken einer Zelle
igel

Ich möchte in einzelne Zellen einer Tabelle längere Texte schreiben. Aber die Spaltenbreite bzw -höhe nicht verändern. Gibt es eine Möglichkeit, dass sich beim Anklicken einer Zelle ein Textfeld öffnet, das dann den Text beinhaltet? Das ganze soll allerdings ohne Makro realisiert werden. Kann m...
19.07.2006 08:39:33
Thread-ID: 783459
2 Beiträge
Userform an Zellen ausrichten
Daniel

Hallo
ich hätte zwei Fragen zum Thema Positionierung einer Userform auf dem Bildschirm.
1. Problem: ich möchte erreichen, daß beim Start der UF die linke obere Ecke innerhalb der Zelle K3 liegt unabhängig von Fenstergrößen, Scrollpositionen, Bildschirmauflösungen, Spaltenbreiten usw.
06.09.2006 23:09:10
Thread-ID: 799372
7 Beiträge
Anzeige
860to864: Steuerelemente per VBA an Zelle ausrichten
Eckart

Hallo zusammen,
wie ermittelt man die Koordinaten der oberen linken Ecke der aktuell ausgewählten Zelle, um daran ein Steuerelement auszurichten, das in einer Tabelle platziert ist?
Für schnelle Hilfe bedanke mich im Voraus.
Gruß
Eckart
05.04.2007 17:12:00
Thread-ID: 860627
3 Beiträge
Textfeld horizontal mittig ausrichten
Timm
Hallo nochmal,
wie richte ich einen Text in einem Textfeld horizonal mittig ausrichten?
Vertikal funktioniert es ja unter Eigenschaften:
TextAlign = 2 - fmTextAlignCenter
Gruß
Timm
16.02.2023 14:44:39
Thread-ID: 1920543
10 Beiträge
Textbox 1 bis Textbox 320 bedingte Formatierung mit VBA
Achim H.
Hallo Excel HelferInnen,

in meiner UserformTermine habe ich von TextBox2 bis Textboxen 367. Aus Zellen in der Tabelle Listen werden diese Boxen mit den Wochentag zb. Mo, oder Di, oder Mi usw. gefüllt. Über ein Makro wird eine Bedingte Formatierung. Sa gleich Blau und So gleich Rot angezeigt...
25.03.2024 10:08:26
Thread-ID: 1971211
4 Beiträge
Inhalt einer Zelle in anderer Zelle als Formel
Elias

Guten Morgen,
ich bin auf der Suche nach einer Lösung für folgenden Sachverhalt.
In einer Tabelle wird aus dem Inhalt verschiedener Zellen über Verketten eine Zeichenfolge gebildet, die in einer anderen Tabelle als Formel herhalten soll.
(Kurzes) Beispiel, das Original ist furchtbar...
11.01.2009 06:01:22
Thread-ID: 1038572
6 Beiträge
Anzeige
Anzeige

Infobox / Tutorial

Shapes an Zellen ausrichten in Excel

Schritt-für-Schritt-Anleitung

  1. Öffne dein Excel-Dokument und stelle sicher, dass sich das Shape (z.B. ein Kombifeld) auf dem Arbeitsblatt befindet.

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

  3. Füge ein neues Modul hinzu: Klicke mit der rechten Maustaste auf „VBAProject (dein Arbeitsblattname)“, wähle „Einfügen“ und dann „Modul“.

  4. Gib den folgenden Code ein:

    Sub ShapeAnZelleAusrichten()
    Dim shp As Shape
    Set shp = ActiveSheet.Shapes("Kombifeld") 'Ersetze "Kombifeld" durch den Namen deines Shapes
    With shp
        .Top = ActiveSheet.Range("C3").Top
        .Left = ActiveSheet.Range("C3").Left
    End With
End Sub

  5. Führe das Makro aus: Drücke F5 oder gehe zu „Run“ > „Run Sub/UserForm“.

  6. Überprüfe das Ergebnis: Dein Shape sollte nun an der gewünschten Zelle positioniert sein.

Häufige Fehler und Lösungen

  • Shape wird nicht gefunden: Stelle sicher, dass der Name des Shapes korrekt ist. Du kannst den Namen in den Eigenschaften des Shapes überprüfen.
  • Shape wird nicht an der richtigen Stelle platziert: Überprüfe, ob die Zelle, auf die du zugreifst (z.B. C3), korrekt eingegeben wurde.
  • VBA-Code wird nicht ausgeführt: Stelle sicher, dass Makros in deinem Excel-Dokument aktiviert sind.

Alternative Methoden

Wenn du nicht mit VBA arbeiten möchtest, kannst du Shapes auch manuell ausrichten:

  1. Klicke auf das Shape.
  2. Ziehen und an die gewünschte Zelle positionieren: Achte darauf, dass die linke obere Ecke des Shapes mit der linken oberen Ecke der Zelle übereinstimmt.
  3. Verwende die Ausrichtungsoptionen: Gehe zu „Format“ > „Ausrichten“, um das Shape präzise auszurichten.

Praktische Beispiele

  • Beispiel 1: Wenn du ein Kombifeld in Zelle D5 platzieren möchtest, ändere die Zeile im Code zu:

    .Top = ActiveSheet.Range("D5").Top
.Left = ActiveSheet.Range("D5").Left

  • Beispiel 2: Um mehrere Shapes gleichzeitig auszurichten, kannst du eine Schleife verwenden, um durch eine Liste von Shapes zu iterieren.

Tipps für Profis

  • Nutze die Group Methode: Wenn du mehrere Shapes zusammenfassen möchtest, um sie gemeinsam zu bewegen.
  • Verwende With-Anweisungen: Dies macht deinen Code sauberer und effizienter.
  • Dokumentiere deinen Code: Füge Kommentare hinzu, um spätere Änderungen zu erleichtern.

FAQ: Häufige Fragen

1. Kann ich Shapes auch ohne VBA an Zellen ausrichten? Ja, du kannst Shapes manuell ziehen oder die Ausrichtungsoptionen in der Menüleiste verwenden.

2. Funktioniert dieser VBA-Code in allen Excel-Versionen? Der Code sollte in den meisten modernen Excel-Versionen funktionieren, jedoch können sich einige Menüs und Funktionen unterscheiden. Vergewissere dich, dass du eine Version verwendest, die VBA unterstützt.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige