Alle Autoformen in einem def. Bereich selektieren?
27.10.2008 10:29:00
Christoph
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ß
Anzeige