Herbers Excel-Forum - das Archiv

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