Dropdownmenü verschwindet bei Ausführung eines Mak

Bild

Betrifft: Dropdownmenü verschwindet bei Ausführung eines Mak
von: Jonny
Geschrieben am: 14.02.2005 16:14:07
Wenn ich dieses Makro ausführe, dann verschwindet in einer anderen Spalte mehrere Dropdown-menues?! ich weiss nicht warum?!


Sub löschen ()
On Error Resume Next
Dim z As Integer
 For z = 1 To ActiveSheet.Shapes.Count
        If ActiveSheet.Shapes(z).TopLeftCell.Column = 20 Then 
        Rows(ActiveSheet.Shapes(z).TopLeftCell.Row).Delete
        ActiveSheet.Shapes(z).Delete
        End If
 Next z
End Sub

PS: Ich hab auch die Gültigkeitsprüfung überprüft ...alles stimmt..mit den Voreinstellungen überein.?!
Bild

Betrifft: AW: Dropdownmenü verschwindet bei Ausführung eines Mak
von: ransi
Geschrieben am: 14.02.2005 16:39:26
hallo jonny
mal auf Verdacht:
du löscht die ganze zeile mit
"Rows(ActiveSheet.Shapes(z).TopLeftCell.Row).Delete"
wenn das dropdown in so einer zeile liegt, ist es eben mit weg.
versuch mal so:

Sub löschen()
On Error Resume Next
Dim z As Integer
 For z = ActiveSheet.Shapes.Count To 0 Step -1
        If ActiveSheet.Shapes(z).TopLeftCell.Column = 20 Then
        Cells(ActiveSheet.Shapes(z).TopLeftCell.Row, 20).Delete shift:=xlUp
        ActiveSheet.Shapes(z).Delete
        End If
 Next z
End Sub

ransi
Bild

Betrifft: AW: Dropdownmenü verschwindet bei Ausführung eines
von: Jonny
Geschrieben am: 15.02.2005 09:50:50
Hi ransi,
ich habe den Code von dir ausprobiert, aber es löscht trotzdem die Dropdown mit weg!?
For z = ActiveSheet.Shapes.Count To 0 Step -1 'ist effektiver als meine zeile...danke..
Bild

Betrifft: AW: Dropdownmenü verschwindet bei Ausführung eines Mak
von: ransi
Geschrieben am: 15.02.2005 18:25:07
hallo jonny
kannst du mal eine beispieldatei hochladen?
ransi
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Master Blatt"