Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
908to912
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
908to912
908to912
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Caption und Textinhalte auslesen

Caption und Textinhalte auslesen
19.09.2007 16:22:57
Günter
Hallo Zusammen,
ich möchte alle captions von vorhanden CommandBottons meiner Arbeitsmappe sowie die Textinhalte von allen vorhanden Steuerelementen auslesen (d.h. in eine Mappe schreiben).
Gibt es die Möglichkeit dies über eine Schleife zu machen ohne jedes Einzelne aufzurufen?
Wäre toll, wenn einer von euch eine Idee hätte, wie ich dies anstellen kann.
Danke im Voraus Günter

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Caption und Textinhalte auslesen
19.09.2007 17:57:17
Beverly
Hi Günter,
welche Steuerelemente verwendest du - Formular-Symbolleiste oder Steuerelement-Toolbox?
________________________________________

AW: Caption und Textinhalte auslesen
19.09.2007 17:59:00
Fred
Hi,
wo werden die verwendet, Tabelle, Userform?
Falls Tabelle, welche, Formular oder Steuerelemente Toolbox?
mfg Fred

AW: Caption und Textinhalte auslesen
19.09.2007 18:11:07
Günter
Hallo Karin, Hallo Fred,
ich verwende Textfelder (mit Makros belegt) und Steuerelemente aus Toolbox in einer Tabelle.
Ich hoffe Ihr könnt mir helfen.
Gruß Günter

AW: Caption und Textinhalte auslesen
19.09.2007 18:26:00
Horst
Hi,
ziemlich komplexe Sache, denke, das wird sich keiner antun, dir eine
Komplettlösung zu servieren.(ev. Sepp Ehrensberger?)
Tipp, zerleg dein Problem in einzelne Schritte und stell dazu gezielt Fragen.
mfg Horst

Anzeige
AW: Caption und Textinhalte auslesen
19.09.2007 18:30:51
Beverly
Hi Günter,
es wäre gut, wenn du die Arbeitsmappe hochladen würdest, dann muss nicht erst ein Beispiel erstellt werden, welches dann nicht mit dem Original übereinstimmt und möglicherweise nicht alle Bedingungen berücksichtigen kann.
________________________________________

AW: Caption und Textinhalte auslesen
19.09.2007 19:49:53
Günter
Hallo Karin,
ich habe Dir hier ein Beispiel (ohne Makros und Werte) hochgeladen.
https://www.herber.de/bbs/user/46186.xls
Folgendes zur Erläuterung:
- mein Ziel ist es die sichtbaren Texte aus Schalter, CmdButtons und sonstigen Objekte auszulesen (in der Summe ca 80 Stück).
- das Auslesen sollte in einer separaten Mappe (ähnlich wie in sheet Texte) erfolgen
- ich möchte dann diese Text in andere Sprachen übersetzen
- die Übersetzung mit den zugehörigen Adressen (Elementbezeichnungen) werde ich dann in einer Sprachdatei hinterlegen
- der User kann dann über ein Auswahlfeld in seine Sprache umschalten und alle Element werden aus der Sprachdatei übersetzt
- die ganzen Kommentare und Hinweise bzw. ErrorMessages aus bedingten Formatierungen habe ich bereits ausgelesen und zugewiesen
Wäre toll, wenn Du mir helfen könntest.
Gruß Günter

Anzeige
AW: Caption und Textinhalte auslesen
19.09.2007 22:23:44
Beverly
Hi Günter,
mit diesem Code kannst du die Namen und Texte der in deiner Tabelle "Schalter" enthaltenen Steuerelemente aus der Steuerelement-Toolbox, die die Eigenschaft Caption besitzen, auslesen und in Tabelle "Texte" untereinander auflisten

Sub auslesen()
Dim ooElement As OLEObject
Dim inZeile As Integer
inZeile = 2
For Each ooElement In Worksheets("Schalter").OLEObjects
ooElement.Select
Worksheets("Texte").Cells(inZeile, 1) = ooElement.Name
Worksheets("Texte").Cells(inZeile, 2) = ooElement.Object.Caption
inZeile = inZeile + 1
Next ooElement
End Sub


Bis später,
Karin

Anzeige
Danke - Klappt prima
20.09.2007 07:29:00
Günter
Hallo Karin,
Danke für Deine Lösung Sie klappt prima.
Hast Du vielleicht auch noch eine Idee wie ich die restlichen 'Schalter', die nicht aus der Steuerelemente-Toolbox kommen, auslesen kann?
Danke im Voraus Günter

AW: Danke - Klappt prima
20.09.2007 09:37:00
Beverly
Hi Günter,
es wäre schon schön gewesen, wenn du gleich geschrieben hättest, dass du alle Steuerelemente und nicht die der Steuerelement-Toolbox auslesen möchtest. Dann wäre ich von Anfang an anders an die Aufgabe gegangen. Du hattest doch explizit darauf hingewiesen, dass es sich nur um diese Art von Elementen handelt. Auch ich schüttle mir solche Dinge nicht nur mal so nebenbei aus dem Ärmel, sondern muss Zeit zum Testen aufwenden. Da hätte ich inzwischen schon die Frage eines anderen Usres beantworten können.

Sub auslesen_alle_elemente()
Dim inZeile As Integer
Dim shShape As Shape
inZeile = 2
For Each shShape In Worksheets("Schalter").Shapes
Worksheets("Texte").Cells(inZeile, 1) = shShape.DrawingObject.Name
On Error Resume Next
Worksheets("Texte").Cells(inZeile, 2) = shShape.DrawingObject.Object.Caption
Worksheets("Texte").Cells(inZeile, 2) = shShape.DrawingObject.Text
inZeile = inZeile + 1
Next shShape
End Sub


Bis später,
Karin

Anzeige
Nochmals Danke
20.09.2007 18:52:18
Günter
Hallo Karin,
Deine Routine funktioniert tadellos.
Bitte entschuldige, dass ich mein Problem für Dich nicht so klar dargestellt habe.
Ich bin davon ausgegangen, dass mit meiner hochgeladenen Datei und der zugehörigen Beschreibung alles klar.
Ich möchte mich für Deine Hilfe und Mühe nochmals bedanken.
Alles Gute Günter

301 Forumthreads zu ähnlichen Themen

Stundenwert zwischen zwei Tagen
Huber

Hallo,
folgendes Problem.
Möchte den Stundenwert zwischen zwei Tagen (ohne Datum) wissen.
Beispiel: Zelle A1: Samstag 06:00 Zelle B1: Sonntag 12:00 C1: 30
Danke im voraus...
22.08.2008 08:11:00
Thread-ID: 1003710
13 Beiträge
Anzeige
Formel Textteilstring dynamisch extrahieren
Horst_H

Hallo,
seit Stunden probiere ich bislang leider ergebnislos eine Formel zu erstellen:
Quelle:
"S2001W.rar;http://www.netload.in/dateigTTIDfQowZ/S2001W.rar.htm;93.32
MB;0;12.02.2009"
Ergebnis soll sein der string zwischen dem 1. und dem 2. Semikolon, weil die Testlänge unters...
19.02.2009 13:50:00
Thread-ID: 1052127
6 Beiträge
Text mit Zahl in neue Zelle auslesen
Lemmi

Hallo zusammen,
ich habe einen Text ais einer Datenbank den ich Teilweise auslesen möchte.
z. B. Text
A) in A1 : Büro ABC Hamburg 1256 zu Hause
B) in A2 : Büro Berlin 12345 in Straße XXX
Nun möchte ich das Wort Hamburg in B1 auslesen! soweit hat man mir bereits vor...
16.09.2009 21:47:50
Thread-ID: 1103375
17 Beiträge
Anzeige
Textboxinhalt aus anderer Exceldatei auslesen
Urmila

Hallo alle,
zwar weiß ich wie man in einer Zelle den Inhalt aus y-beliebigen Excel Datei eingeben kann, doch ich suche die Möglichkeit, den Inhalt von Zelle B1-B10 in den Textboxen TextBox1-TextBox10 anzeigen zu lassen. Die Datei, worin die Werte stehen, ist C:/Test/Versuch.xls.
Danke u...
05.10.2009 09:17:20
Thread-ID: 1107205
4 Beiträge
noch mal: Werte zwischen zwei Zahlen zählen
Bernd

Guten Morgen zusammen,
mein Problem vom Freitag ist leider noch nicht ganz gelöst :-((
Die Hilfe von "WF" hat mich schon ein ganzes Stück weitergebracht, aber leider hat die Formel ein Problem mit der Berechnung von negativen Werten
'=SUMMENPRODUKT(('Grunddaten berechnet'!$R7:$R4000...
30.11.2009 08:57:22
Thread-ID: 1120929
6 Beiträge
Text zwischen zwei Zeichen
Uwe

Guten Abend an Alle,
gibt es eine Formel um ein Wort unterschiedlicher Länge zwischen zwei eindeutigen Zeichen zu extrahieren?
z.b.
Applause
oder
Gran Move
benötigt würde nur das Wort Applause und Gran Move
Vorab schon mal Dank für die Hilfe!
Gruß Uwe
08.01.2010 18:53:49
Thread-ID: 1128368
6 Beiträge
Auslesen einer Textbox in einer Userform | Herbers Excel-Forum
Bernd Cramer
Hallo,
ich benutze in einer Userform eine mehrzeiliege Textbox.
Diese soll Zeile für Zeile per VBA Ausgelesen werden und in ein Excel-Blatt eingetragen werden.
Vor einiger Zeit hatte mir ein anderer Forum teilnehmer folgenden Tip gegeben.
With tbgrund1
.SetFocus
tbz = 0 'Di...
27.01.2010 17:04:25
Thread-ID: 1133524
4 Beiträge
Tage zwischen zwei Datümern auswerten
Reinhard

Hallo Wissende,
in A ist der Starttermin, in C der Endtermin. Beide Spalten benutzerdefiniert so formatiert: TTT, TT.MM.JJJJ
Es können da ja 0-X Tage dazwischenliegen, diese Zahl der dazwischenliegenden Tage möchte ich ermitteln.
Mit Datediff-1 erhalte ich diese Zahl. Diese will ich...
05.03.2010 17:05:03
Thread-ID: 1143798
13 Beiträge
Anzeige

Links zu Excel-Dialogen

UserForm

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
12
5
5
16
2
3
5
5
3
12
8
4
1
2
7
3
2
6
7
1
2
7
13
13
1