Aktive... löschen
16.10.2006 10:29:30
Walter
ich habe dieses Makro um eine Zeile zu löschen:
z = ActiveCell().Row
If ActiveSheet.Range(Cells(z, 1), Cells(z, 8)).Select Then
Antwort = MsgBox("Zeile wirklich Löschen ?", vbYesNo)
If Antwort = vbNo Then
Worksheets("Muster").Activate
Else:
ActiveSheet.Shapes("Kontrollkästchen").Select <<<<<<<<!!!
' Selection.Delete
' Selection.Delete
End If
End If
End Sub
Das löschen klappt, jedoch ist immer in der Spalte "A" ein
ActiveSheet.Shapes,
ich möchte das als erstes dann löschen, jede Zeile hat ja ein eigenes
Shapes("Kontrollkästchen")
Wie geht das ?
gruß WALTER