Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.10.2025 21:57:06
Diagrammpunkte in unterschiedlichen Farben je nach Wert
19.10.2025 18:21:56
Prüfen, ob Bild geladen wurde
19.10.2025 15:24:14
VBA -Drucken nur, wenn ich mit bestimmtem WLAN verbunden bin
19.10.2025 10:48:58
Zufällige Uhrzeit
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
1140to1144
1140to1144
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Grafiken innerhalb einer Marierung auswählen

Forumthread: Grafiken innerhalb einer Marierung auswählen

Grafiken innerhalb einer Marierung auswählen
Markus
Hallo zusammen,
Ich habe folgendes Problem. Ich habe ein Tabellenblatt, in dem mehrere Grafiken enthalten sind.
Ich brauche jetzt eine Möglichkeit alle Grafiken innerhalb einer Markierung zu selektieren, um sie gleichzeitig zu verschieben. Alle restlichen Grafiken sollen nicht markiert werden.
Hat irgend jemand eine Idee, wie ich das mit vba lösen könnte?
Danke im vorraus
Markus
Anzeige

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

Betreff
Benutzer
Anzeige
AW: Grafiken innerhalb einer Marierung auswählen
24.02.2010 11:26:10
Mike
Hey Markus,
händisch könntest Du es so bewerkstelligen, dass Du die gewünschten
Grafiken mit gedrückter Shift/Umschalttaste markierst.
Bei VBA könntest Du ja versuchen, sie mit dem Namen anzusprechen.
Gruss
Mike
Mehrere Grafiken selektieren.
24.02.2010 11:34:01
Renee
Hi Markus,
Was verstehst du unter einer Markierung? Wie entsteht diese Markierung ? VBA, Benutzeraktion ?
Willst du Code oder Vorgehensweise ?
GreetZ Renée
Anzeige
AW: Mehrere Grafiken selektieren.
24.02.2010 11:44:21
Markus
Hallo Renee,
Ich möchte mit der Maus einen Zellenbereich markieren, und dann alle Grafiken wieder per Maus verschieben. Mein Problem ist, dass ich nur die Grafiken in diesem Bereich selektieren möchte, und dass ich die Namen und die Anzahl der Grafiken nicht kenne. Das einzelne Markieren mit der Maus ist sehr umständlich, da es sich um viele (bis ca 100) Grafiken handeln kann.
Ich hoffe die Erklärung war jetzt besser :)
lg
Markus
Anzeige
AW: Mehrere Grafiken mit Maus selektieren.
24.02.2010 12:20:45
Renee
Hallo Markus,
In der Startsymbolleiste - Bearbeiten - Suchen und Auswählen - Objekte Markieren
...und dann ein Rechteck um die gewünschten Symbole ziehen.
GreetZ Renée
AW: Mehrere Grafiken mit Maus selektieren.
24.02.2010 13:07:08
Markus
Hallo Renee,
Danke !!! funkt super!
lg
Markus
AW: Mehrere Grafiken selektieren.
24.02.2010 13:07:18
Uwe
Hallo Markus,
per VBA z.B. so: 

Sub ShapesMarkieren()
Dim oShape As Shape
Dim oshapes() As Variant
Dim i As Integer
If TypeName(Selection) = "Range" Then
For Each oShape In ActiveSheet.Shapes
If Not Application.Intersect(Selection, oShape.TopLeftCell) Is Nothing Then
i = i + 1
ReDim Preserve oshapes(1 To i)
oshapes(i) = oShape.Name
End If
Next oShape
If i > 0 Then ActiveSheet.Shapes.Range(oshapes).Select
End If
End Sub
Gruß Uwe
Anzeige
;
Anzeige
Anzeige

Infobox / Tutorial

Grafiken innerhalb einer Markierung auswählen

Schritt-für-Schritt-Anleitung

  1. Zellenbereich markieren: Halte die linke Maustaste gedrückt und ziehe über den gewünschten Zellenbereich, um ihn zu markieren.
  2. Objekte auswählen: Gehe zur Menüleiste und wähle „Start“ > „Bearbeiten“ > „Suchen und Auswählen“ > „Objekte markieren“.
  3. Grafiken verschieben: Nachdem alle Grafiken innerhalb der Markierung ausgewählt sind, kannst Du diese einfach mit der Maus an die gewünschte Position ziehen.

Häufige Fehler und Lösungen

  • Fehler beim Auswählen: Wenn nicht alle gewünschten Grafiken ausgewählt werden, stelle sicher, dass Du die richtige Methode zum Markieren der Objekte verwendest. Überprüfe auch, ob die Grafiken innerhalb des markierten Bereichs liegen.

  • VBA-Skript funktioniert nicht: Wenn das VBA-Skript nicht funktioniert, überprüfe, ob der Code korrekt eingegeben wurde und dass Du dich im richtigen Arbeitsblatt befindest. Achte darauf, dass das Arbeitsblatt aktiv ist.

Sub ShapesMarkieren()
    Dim oShape As Shape
    Dim oshapes() As Variant
    Dim i As Integer
    If TypeName(Selection) = "Range" Then
        For Each oShape In ActiveSheet.Shapes
            If Not Application.Intersect(Selection, oShape.TopLeftCell) Is Nothing Then
                i = i + 1
                ReDim Preserve oshapes(1 To i)
                oshapes(i) = oShape.Name
            End If
        Next oShape
        If i > 0 Then ActiveSheet.Shapes.Range(oshapes).Select
    End If
End Sub

Alternative Methoden

  • Tastenkombinationen: Du kannst die „Strg“ + „A“ Tastenkombination verwenden, um alle Objekte auf dem Arbeitsblatt auszuwählen. Danach kannst Du die unerwünschten Objekte abwählen.

  • Objekte Filter: Nutze die Funktion „Suchen und Auswählen“, um spezifische Objekte wie „alle Bilder in Excel markieren“ oder „alle Formen markieren“ auszuwählen.

Praktische Beispiele

  1. Markiere alle Grafiken: Wenn Du alle Grafiken in einem Arbeitsblatt markieren möchtest, gehe auf „Start“ > „Suchen und Auswählen“ > „Objekte markieren“.

  2. VBA zur Auswahl von Textfeldern: Wenn Du alle Textfelder markieren möchtest, passe den VBA-Code entsprechend an:

Sub TextfelderMarkieren()
    Dim oShape As Shape
    Dim i As Integer
    For Each oShape In ActiveSheet.Shapes
        If oShape.Type = msoTextBox Then
            i = i + 1
            oShape.Select Replace:=False
        End If
    Next oShape
End Sub

Tipps für Profis

  • Gruppierung von Grafiken: Wenn Du häufig mehrere Grafiken markierst, kannst Du diese gruppieren, um sie einfacher zu verwalten. Klicke mit der rechten Maustaste auf die markierten Grafiken und wähle „Gruppieren“.

  • Effiziente Nutzung von VBA: Nutze VBA-Skripte, um wiederkehrende Aufgaben zu automatisieren. So kannst Du schnell alle gewünschten Objekte auswählen oder entfernen.

FAQ: Häufige Fragen

1. Wie kann ich mehrere Grafiken auf einmal markieren?
Du kannst mehrere Grafiken markieren, indem Du die „Shift“-Taste gedrückt hältst und die gewünschten Grafiken mit der Maus auswählst.

2. Gibt es eine Möglichkeit, alle Bilder in Excel zu entfernen?
Ja, Du kannst alle Bilder auswählen und dann löschen, indem Du die „Entf“-Taste drückst. Alternativ kannst Du ein VBA-Skript verwenden, um alle Bilder auf einmal zu entfernen.

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