Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: (Application.Caller).Selection.Text an Variable üb

(Application.Caller).Selection.Text an Variable üb
18.12.2007 21:22:00
Klaus
Guten Abend Forum,
Mit
ActiveSheet.Shapes(Application.Caller).Select
Worksheets("FD").Range("KEH").Value = Selection.Text
überschreibe ich Range("KEH") mit dem aktiven Shapes-Text.
Ich möchte nun aber zuvor prüfen, ob in Range("KEH") bereits der gleiche Text steht (dann Exit Sub).
Wie kann ich den Selection.Text an eine String-Variable übergeben, die ich dann
Range("KEH").Value vergleichen kann?
Danke für Antworten
Klaus

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: (Application.Caller).Selection.Text an Variable üb
18.12.2007 21:26:00
Gerd
Hi,
wozu solls gut sein, ist doch egal ob der Text schon da steht oder nicht.
mfg Gerd

AW: (Application.Caller).Selection.Text an Variable üb
18.12.2007 21:31:00
Klaus
?
Was hälst Du z.B. von folgender Vorstellung:
Wenn der Wert nicht gleich ist wird ein 40 sekündiges Makro gestartet, sonst nicht.
Wahrscheinlich gibt es noch 340 andere Gründe wo es Sinn macht ...
Klaus

Anzeige
AW: (Application.Caller).Selection.Text an Variable üb
18.12.2007 21:46:05
Gerd
Hi,
ok, hast Recht.
Dim V as string
ActiveSheet.Shapes(Application.Caller).Select
V = Selection.Text
Wobei Select nicht nötig ist und Exit Sub in der strukturierten Programmierung ebenfalls
nicht nötig und sogar verpönt ist, eben, weil nicht nötig.
mfg Gerd

Anzeige
Danke
18.12.2007 22:04:00
Klaus
Hallo Gerd,
V = Selection.Text war die Idee,
ich hatte immer mit Application.Caller experimentiert ...
Danke für Deine Hilfe
Klaus
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
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