Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 08:41:49
VBA: Probleme mit pdftk zum Zusammenfügen
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
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1700to1704
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
1700to1704
1700to1704
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Gruppierung von Formen in einer Schleife

Gruppierung von Formen in einer Schleife
03.07.2019 15:09:15
Formen
Hallo alle zusammen,
Ich habe folgenden Code von Daniel bekommen
x = Inputbox("Name")
for each shpe in activesheet.Shapes
if shpe.Name like x & "|*" then shpe.delete
Next
Statt die ganzen Shapes zu löschen, möchte ich sie nun gruppieren.
Das Problem ist, dass die Prozedur hintereinander die Shapes raussucht.
Kann man die rausgesuchten Shapes in einen Array packen, damit ich es gruppieren kann?
Beste Grüße
Leon

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Gruppierung von Formen in einer Schleife
03.07.2019 16:10:55
Formen
Lieber Luschi,
ich habe mir den Link angeguckt und einen Makro erstellt:
Sub AuslesenUndKopierenDerForm()
Dim Druck As String
Dim finden As Range
Dim shpe As Shape
Dim ZahlNr As Integer
Dim myArray As Variant
Dim Zähler As Integer
On Error GoTo KeinMa
'Es wird in U1 der Wert ausgelesen (generiert wird der Wert in UserFormDrucken).
'Dann wird der Wert oder das Wort in Spalte "Maßnahme" in Tabelle2 gesucht.
Druck = Worksheets(3).Range("U1").Value
Set finden = Range("Tabelle2[Maßnahme]").Find(what:=Druck)
ZahlNr = finden.Offset(0, -4).Value
Zähler = 0
For Each shpe In Worksheets(2).Shapes
If shpe.name Like "*| Nr. " & ZahlNr Or shpe.name Like "Zeit " & ZahlNr Then shpe.Select
Zähler = Zähler + 1
ReDim Preserve myArray(1 To Zähler)
Next
Exit Sub
KeinMa:
MsgBox "Maßnahme konnte nicht gefunden werden!", vbInformation, "Information"
End Sub
Leider gibt es einen Error und die Prozedur springt direct zur KeinMa.
Liebe Grüße
Leon
Anzeige
dann lass doch mal ...
03.07.2019 16:16:51
Rudi
On Error Goto .. weg. Dann siehst du, wo es hakt.
Außerdem redimensionierst du nur das Array und wiest ihm keine Werte zu.
Und gruppieren tust du auch nix.
Meine Variante: 
Sub aaa()
Dim s As Shape, i, x As Object, n
Set x = CreateObject("scripting.dictionary")
n = InputBox("Name:")
For Each s In ActiveSheet.Shapes
i = i + 1
If s.Name Like n & "|*" Then
x(i) = 0
End If
Next
If x.Count > 1 Then
ActiveSheet.Shapes.Range(x.keys).Group
End If
End Sub

Gruß
Rudi
AW: dann lass doch mal ...
03.07.2019 16:29:58
Leon.DerProf
Lieber Rudi,
also.. uff. Ist das ein Code.
Es übersteigt ganz klar meine Kenntnisse.
Kannst du daher bitte noch einsetzen:
- Ein Wert in A1 wird ausgelesen und dieser Wert steht für ZahlNr
- Statt mit einer InputBox soll mit der ZahlNr in folgender Kombination ein Shape gesucht warden:
"Zeit " & ZahlNr
Das ware echt super :)
Liebe Grüße
Leon
Anzeige
AW: dann lass doch mal ...
03.07.2019 16:33:40
Leon.DerProf
Lieber Rudi,
nevermind!
Ich versuche es mal alleine.
Ich finde schon raus, was du da gezaubert hast und versuche selbst, das hinzukriegen.
Möchte das Ganze ja lernen :)
Beste Grüße
Leon
AW: dann lass doch mal ...
03.07.2019 16:33:45
Rudi 

ZahlNr = Range("a1")
If s.Name Like "Zeit " &ZahlNr Then

?
AW: dann lass doch mal ...
03.07.2019 17:16:03
Leon.DerProf
Lieber Rudi,
ich muss dich doch noch mal nach deiner Hilfe fragen.
Ich habe es geschafft mehr oder weniger deinen Code zu verstehen und habe ihn ein wenig an meine Datei angepasst.
Nun wollte ich die neu entstandene Gruppierung in ein anderes Tabellenblatt kopieren und im Anschluss entgruppieren.
Zum Entgruppieren würde ich den ersten Makro auf folgendem Link anwenden, falls das Sinn macht:
https://docs.microsoft.com/de-de/office/vba/api/excel.shape.ungroup
Das Kopieren der Gruppe, ich habe dafür bereits im Internet gesucht, mein Kopf ist aber echt am Rauchen langsam. Ich sitze seit 6.30 Uhr am Computer.
Beste Grüße
Leon
Anzeige
AW: dann lass doch mal ...
03.07.2019 17:53:26
Leon.DerProf
Schon erledigt.
Ich habe einfach rumprobiert und es hat irgendwann geklappt.
Dennoch danke :)
Liebe Grüße
Leon
AW: dann lass doch mal ...
05.07.2019 07:17:11
Luschi
Hallo Leon, 

Ich habe einfach rumprobiert und es hat irgendwann geklappt.
Hilfeforen sollten keine Einbahnstraße sein - warum zeigst Du uns nicht, was wan wie geklappt hat?
fragt sich Luschi
aus klein-Paris

300 Forumthreads zu ähnlichen Themen

Aus Schleife wenn Zelle einen Rahmen hat???
TOM

Guten Morgen zusammen
Ich habs probiert aber irgendwie habe ich noch einen Denkfehler oder was auch immer......grrrrrrr!?
Möchte gerne eine Do Schlaufe die durchläuft bis die Aktive Zelle unten einen Rahmen hat.
Do While ActiveCell.Borders(xlEdgeBottom).LineStyle = xlContinuous
...
27.08.2008 11:12:00
Thread-ID: 1005013
3 Beiträge
Anzeige
Schleife um ein Makro bauen
Matthias

Hallo zusammen,
ich habe folgendes Makro, das per vlookup auf ein zweites Tabellenblatt greift:
Sub importSortKey() Range("A2").select ActiveCell.FormulaR1C1 = _ "=IF(RC[1]="""","""",VLOOKUP(RC[1],Sortierschlüssel!C:C[1],2))" End Sub
Zur Formel: RC[1] = Zelle B2;
Ich würde d...
01.10.2008 11:26:00
Thread-ID: 1013562
7 Beiträge
Variable in Forschleife
Jens

Hallo Ihr,
ich habe folgendes Problem:
Ich habe 9 Variablen definiert und diese sind mit Werten belegt. Jetzt möchte ich diese innerhalb einer Schleife einzelnen Zellen zuweisen. Geht das?
Beispiel für 3 Variablen:
Dim var1 As Integer
Dim var2 As Integer
Dim var3 As Inte...
08.10.2008 13:49:00
Thread-ID: 1015052
5 Beiträge
Anzeige
Makro - einfache VBA Schleife für Excel
pc-doc@k-u-p.de

Hallo VBA MAkro Profis,
programmiere fast nie in VBA mehr Web js, php/mysql,
und brauche eine einfache VBA Schleife für Excel:
Ich möchte in mehreren Registerblättern einer Arbeitsmappe in der
Spalte D Zeile für Zeile checken ob
ein Wert in der Zelle steht
und wenn...
20.10.2008 11:51:00
Thread-ID: 1017619
8 Beiträge
Schleife in Formel
Jochen

Hallo,
kann ich mit einer Formel eine Schleife laufen lassen?
Meine Tabelle sieht etwa so aus:
Pos. Stückzahl
1 10
2 15
3
4 2
5 3
6
7
8 10
9 11
10
11
12 12
Meinergeb...
11.11.2008 14:25:00
Thread-ID: 1023549
9 Beiträge
VBA Code: wenn B1 <> blank, dann I in A1 schreiben
maxx_1985

Hi mit'nander
Braeuchte einen kleine Code dafuer:
wenn B1 blank, dann schreibe ein I in A1.
kann mir vielleicht jemand helfen? :-)
vielen vielen dank
denis
18.11.2008 16:27:16
Thread-ID: 1025694
5 Beiträge
Gesamtwert in Zell über Multiplikationsschleife...
Jessi

Hallo zusammen,
habe wieder mal eine Frage:
Ich habe eine Tabelle in der Spalte X und Y, ab der Zeile 5 Werte multipliziert werden und die Zeilen
5 bis einschließlich 88 und anschließend ab Zeile 160 bis einschließlich die Zeile 182 aufsummiert werden. Wie bekomme ich das am geschic...
10.12.2008 14:51:00
Thread-ID: 1031705
4 Beiträge
Mittelwerte bilden in Schleifen
WMüller

Hallo zusammen,
ich habe das Archiv durchgesehen, konnte jedoch leider keine passende Lösung für mein Problem finden. Da ich ein Anfänger im Umgang mit VBA bin, würde ich mich über ein Feedback sehr freuen. Ich denke, dass Problem ist eigentlich nicht zu schwierig, ich habe "lediglich" Prob...
14.01.2009 15:01:21
Thread-ID: 1039672
6 Beiträge
Anzeige

Links zu Excel-Dialogen

UserForm InputBox

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
2
1
6
4
2
7
8
4
3
5
11
8
2
8
2
4
3
8
11
4
2
4
2
7
2