Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.10.2025 22:02:44
Warum NV bei meiner Rang Formel?
23.10.2025 20:59:30
Buchstaben aus Zelle auftrennen
23.10.2025 18:34:00
Summation/Aggregation von Stücklistenmengen
23.10.2025 14:37:20
Ampel in Excel macht nicht das was sie soll
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1832to1836
1832to1836
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro stoppt selbsttätig

Forumthread: Makro stoppt selbsttätig

Makro stoppt selbsttätig
24.05.2021 17:24:01
reiner
Hallo Leute,
https://www.herber.de/bbs/user/146341.xlsb
mit dem Beispielcode wird der Alternativtext der Grafikdateien (Flaggen in Spalte "C" und Spal-te "H") ausgelesen und in die Spalte "D" bzw. Spalte "I") eingefügt.
Eigentlich soll das Makro alle Grafikdateien in Spalte "C" und danach Spalte "H" auslesen. Das funktioniert auch grundsätzlich, aber nach 2 oder 3 ausgelesenen Texten wird der Code abgebro-chen.
Ich weiß nicht warum und hoffe dass jemand hier im Forum eine Idee hat woran der abrupte Makroabbruch liegen könnte.
vielen Dank schon einmal für evtl. Rückmeldungen
reiner
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro stoppt selbsttätig
24.05.2021 18:00:59
ralf_b 

Sub NamenErmitteln()
Dim objShp As Shape
With ThisWorkbook.Worksheets("Tabelle1")
For Each objShp In ActiveSheet.Shapes
If objShp.Type = msoPicture Then
Select Case objShp.TopLeftCell.Column
Case 3, 8: objShp.TopLeftCell.Offset(, 1).Value = Trim(objShp.AlternativeText)
End Select
End If
Next objShp
End With
End Sub

Anzeige
AW: Makro stoppt selbsttätig
24.05.2021 18:15:09
reiner
das ist gut, das ist richtig gut
danke dir
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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