Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
416to420
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
416to420
416to420
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Text von AutoForm in Makro verwenden

Text von AutoForm in Makro verwenden
AutoForm
Hi Guys!
Ich will folgendes Machen:
Ich habe abgerundete Rechtecke mit Zahlen im Textfeld der abgerundeten Rechtecke. Da ich für alle abg. Rechtecke eigentlich den gleichen Makro verwende außer den Zahlen, möchte ich das Textfeld aus dem angeklickten abg. Rechteck auslesen und verwenden. Wie das unten aufgeführte Beispiel zeigt.
-------------------------------------------------------
Beispiel:
a = "Textfeld des abg. Rechtecks"
Cells(a, 1).Value +1
-------------------------------------------------------
Ich wäre sehr dankbar wenn ihr mir danken würdet.
Euer Yao

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Text von AutoForm in Makro verwenden
25.04.2004 07:54:22
AutoForm
Hallo Yao!
Das geht z.B. so.
Option Explicit

Sub meinMakro()
Dim shp As Shape
Dim lngRow As long
Set shp = ActiveSheet.Shapes(Application.Caller)
lngRow = shp.TextFrame.Characters.Text
Cells(lngRow, 1).Value = Cells(lngRow, 1).Value + 1
End Sub

Gruß Sepp
Anzeige

304 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige