Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1360to1364
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
1360to1364
1360to1364
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Shapes visible

Shapes visible
30.05.2014 10:16:42
stef26
Hallo nochmal,
wollte alle sichtbaren shapes gruppieren.
Leider hab ich auch da wieder Probleme mit dem VBA Format...
Dim Roll As Shape
For Each AnzRoll In ActiveSheet.Shapes
If Roll.Name Like "Roll*" And Roll.Visible = True Then
Shape.Select
Next
Selection.ShapeRange.Group.Select
Bringt "Next ohne For" als Fehlermeldung ?
Ich werde das mit dem VBA Format wohl nie auf die Reihe bekommen...
Wer ist nochmal so lieb und zeigt mir wie es richtig aussehen muss ?
Liebe Grüße
Stefan

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Shapes visible
30.05.2014 10:31:19
Hajo_Zi
Hallo Stefan,
es fehlt end if vor Next.

AW: Shapes visible
30.05.2014 10:32:16
Beverly
Hi Stefan,
wenn du deinen Code strukturiert schreibst sieht du auch dass End If fehlt, oder du schreibst es so:
Dim Roll As Shape
For Each AnzRoll In ActiveSheet.Shapes
If Roll.Name Like "Roll*" And Roll.Visible = True Then Shape.Select
Next
Selection.ShapeRange.Group.Select

AW: Shapes visible
30.05.2014 10:34:26
stef26
Dankeschön euch Beiden.
:-)
Liebe Grüße
Stefan

AW: Shapes visible
30.05.2014 11:21:09
stef26
Hallo nochmal,
das Macro bleibt leider doch stehen ?
hab mal die xls hochgeladen, vielleicht hab ich ja nen Fehler gemacht.
https://www.herber.de/bbs/user/90904.xlsm
Vielleicht könnt ihr ja nochmal einen Blick darauf werfen...
Gruß
Stefan

Anzeige
AW: Shapes visible
30.05.2014 11:35:55
Beverly
Hi Stefan,
ich hatte deinen Code nicht getestet.
Sub Rollbahnrollen()
Dim Roll As Shape
Dim arrRoll()
Dim lngZaehler As Long
For Each Roll In ActiveSheet.Shapes
If Roll.Name Like "Roll*" And Roll.Visible = True Then
ReDim Preserve arrRoll(0 To lngZaehler)
arrRoll(lngZaehler) = Roll.Name
lngZaehler = lngZaehler + 1
End If
Next
ActiveSheet.Shapes.Range(arrRoll()).Group
End Sub

AW: Shapes visible
30.05.2014 13:24:37
stef26
Besten Dank !!!!!!!!!!!!!!!!
Jetzt funktioniers super.
D A N K E
:-)
Stefan
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige