VBA Code Hilfe
amintire
kann mir jemand helfen den Code anzupassen?
Ich möchte das als erstes das Bild verschoben wird und dann runtergescrollt.
Ohne Bild funktioniert es, aber beim Ausblenden der Zeilen bleibt das Bild und es stört,
kann irgendwie nicht ausgeblendet werden.
Vielen Dank.
Sub liste_ein()
ActiveSheet.Shapes("Picture 127").Select
Selection.Cut
Sheets("Bilder").Select
Range("A24").Select
ActiveSheet.Paste
Sheets("Mitglieder").Select
On Error GoTo ende
Application.ScreenUpdating = False
Range("a35").Select
Worksheets("Mitglieder").Unprotect
Rows("1").EntireRow.Hidden = True
Rows("4:97").EntireRow.Hidden = True
Worksheets("Mitglieder").Protect
ende:
Exit Sub
End Sub
Lieben Gruß Amina
Anzeige