Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 19:22:16
Von exceltabelle in word per steuerelement temarker
16.04.2024 18:50:53
Fehlermeldung bei Code - Excel speichern mit Bez. aus Zelle
16.04.2024 17:18:01
Projektplan-Tabelle oder Gantt ohne Balken
16.04.2024 17:05:25
formatierten Text direkt in Zelle einfügen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1408to1412
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1408to1412
1408to1412
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

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

Links zu Excel-Dialogen

Frame

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige