Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Länge des Rechteckes berechnen

Länge des Rechteckes berechnen
23.02.2015 11:56:40
Gregor
Hallo zusammen
Ich habe eine Excel-Tabelle mit Spaltenbreite 1.00 (12 Pixel).
Mit der Funktion "Einfügen, Formen" habe ich ein Rechteck mit Text erstellt (Text = "10 Meter"). Bei der Länge des Rechtecks entpsricht eine Spalte einem Meter (Beispiel 10 Spalten = 10 Meter).
Nun möchte ich, dass bei jeder nanuellen Veränderung der Rechteckgrösse (Anzahl Spalten) der Text dh. die Meterzahl aufgrund der Anzahl Spalten aktualisiert wird. Wie kann ich das lösen. Evt. mit einem Makro im Hintergrund.
Vielen Dank und freundliche Grüsse
Gregor

Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Länge des Rechteckes berechnen
23.02.2015 13:09:58
Daniel
Hi
wenns dir reicht, dass du die aktuelle Meterzahl bei Klick auf das Rechteck bekommst, dann so:
1. folgenden Code in ein allgemeines Modul:
Sub xxx()
Dim Spalte1 As Long
Dim Spalte2 As Long
With ActiveSheet.Shapes(Application.Caller)
Spalte1 = .TopLeftCell.Column
Spalte2 = .BottomRightCell.Column
.TextFrame2.TextRange.Characters.Text = Spalte2 - Spalte1 + 1 & " Meter"
End With
End Sub
2. über das Kontextmenü "Makro zuweisen" dieses Makro dann der Form zuweisen.
du kannst dieses Makro für jedes betroffene Rechteck verwenden.
bei nicht ganz ausgefüllten Spalten wird "aufgerundet", dh das Ergebnis kann um bis zu 1,99 m zu klein sein, wenn die Ecken nicht mit den Zellecken übereinstimmen und leicht in die nächste Zelle hineinragen.
Gruß Daniel

Anzeige
AW: Länge des Rechteckes berechnen
23.02.2015 13:15:35
Daniel
wenn du die Breite genauer haben willst, dann so:
Sub xxx()
Dim Breite As Double
With ActiveSheet.Shapes(Application.Caller)
Breite = .Width / Cells(1, 1).Width
.TextFrame2.TextRange.Characters.Text = Format(Breite, "0.0") & " Meter"
End With
End Sub
allerdings müssen dann alle Spalten genau gleich breit sein.
Gruß Daniel

Anzeige
AW: Länge des Rechteckes berechnen
23.02.2015 15:22:06
Gregor
Hallo Daniel
Einfach super, vielen Dank.
Gruss Gregor
;

Forumthreads zu verwandten Themen

Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

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