Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema RefEdit
BildScreenshot zu RefEdit RefEdit-Seite mit Beispielarbeitsmappe aufrufen

Alle Autoformen in einem def. Bereich selektieren? | Herbers Excel-Forum


Betrifft: Alle Autoformen in einem def. Bereich selektieren? von: Christoph
Geschrieben am: 27.10.2008 10:29:40

Hallo zusammen.

Ich habe folgendes Problem: In einer Tabelle habe ich, ausserhalb des Druckbereiches, zwei Klammern eingefügt, die dann bei Bedarf mit copy & paste an den richtigen Stellen eingefügt werden.

Da das Ganze dynamisch ist, würde ich jetzt gerne alle kopierten Klammern per Makro löschen, bevor neue erstellt werden. Alle Klammern befinden sich in der selben Spalte - wie kann ich die denn nun per Makro selektieren?

Hier der Code (Auszug):


'Löschen der alten Klammern
      'Set Kla = Range("AB7:AB119")
      'For Each Shape In Kla
      'Selection.Clear...


'Eintragen der Schichten, Wochentage und Klammern
        For i = 0 To Schichten - 1
            ActiveSheet.Cells(startzeile + i, startspalte) = Aktualdat
            ActiveSheet.Cells(startzeile + i, startspalte + 1) = i + 1
            ActiveSheet.Cells(startzeile + i, startspalte + 30) = Tag
            
                If Tag = "SO" And i = 0 Then
                    ActiveSheet.Shapes("Klammer2").Select
                    Selection.Copy
                    ActiveSheet.Cells(startzeile + i, startspalte + 27).Select
                    ActiveSheet.Paste
                ElseIf Tag = "SA" And i = 0 Then
                    ActiveSheet.Shapes("Klammer2").Select
                    Selection.Copy
                    ActiveSheet.Cells(startzeile + i, startspalte + 27).Select
                    ActiveSheet.Paste
                ElseIf Tag = "WT" And i = 0 Then
                    ActiveSheet.Shapes("Klammer1").Select
                    Selection.Copy
                    ActiveSheet.Cells(startzeile + i, startspalte + 27).Select
                    ActiveSheet.Paste
                Else
                    GoTo Ende
                End If
Ende:
        Next i



Den oberen Teil bekomme ich einfach nicht zum laufen - wäre schön, wenn mir da jemand helfen könnte!

Gruß

  

Betrifft: AW: Alle Autoformen in einem def. Bereich selektieren? von: Beverly
Geschrieben am: 27.10.2008 10:53:45

Hi Christoph,

eine Möglichkeit (Shapes in Spalte D)

Sub shapes_loeschen()
    Dim shShape As Shape
    ReDim arrShapes(0)
    For Each shShape In ActiveSheet.Shapes
        If shShape.TopLeftCell.Column >= Cells(1, 4).Column And shShape.TopLeftCell.Column <=  _
Cells(1, 5).Column Then shShape.Delete
    Next shShape
End Sub


Es werden alle Shapes gelöscht, deren linke obere Ecke sich in Spalte D befindet.


GrußformelBeverly's Excel - Inn


  

Betrifft: AW: Alle Autoformen in einem def. Bereich selektie von: Christoph
Geschrieben am: 28.10.2008 16:05:00

Hallo Beverly.

Bin leider jetzt erst dazu gekommen es auszutesten und - es funktioniert ganz hervorragend!

Danke nochmal für die schnelle Hilfe!

Gruß


Beiträge aus den Excel-Beispielen zum Thema "Alle Autoformen in einem def. Bereich selektieren?"