Bilder nach aufheben des Filters im falschen feld
13.09.2013 08:15:18
Gajdos
Jetzt meine Frage. gibt es eine Möglichkeit das man die Sortierung nur via Makro aufheben kann. denn wenn ich es nicht via Makro aufhebe dann sind die Bilder wieder im wir-war.
Hier der Makro Text zum die Bilder Fixieren:
Public Sub Bilder_Fixieren()
Dim n As Long
' Errors...
On Error Resume Next
' Bilder in Tabelle 1...
With ThisWorkbook.Worksheets(1)
' Schleife...
For n = 1 To .Shapes.Count
' Bilder...
If Not CBool(.Shapes(n).Type msoPicture) Then
' Eigenschaft setzen...
.Shapes(n).Placement = xlMoveAndSize
' Position...
.Shapes(n).Top = .Shapes(n).TopLeftCell.Top
.Shapes(n).Left = .Shapes(n).TopLeftCell.Left
End If
Next n
End With
End Sub
und hier das Makro das die Bilder wieder zurück setzt und den Filter aufhebt:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Shapes("Picture 1")
.Left = 10
.Top = 20
End With
End Sub
Sub Filter_löschen()
' Filter_löschen Makro
' alte gesetzten Filter löschen
' Tastenkombination: Strg+l
ActiveSheet.Range("$A$6:$L$184").AutoFilter Field:=1
ActiveSheet.Range("$A$6:$L$184").AutoFilter Field:=2
ActiveSheet.Range("$A$6:$L$184").AutoFilter Field:=3
ActiveSheet.Range("$A$6:$L$184").AutoFilter Field:=4
ActiveSheet.Range("$A$6:$L$184").AutoFilter Field:=5
ActiveSheet.Range("$A$6:$L$184").AutoFilter Field:=6
ActiveSheet.Range("$A$6:$L$184").AutoFilter Field:=7
ActiveSheet.Range("$A$6:$L$184").AutoFilter Field:=8
ActiveSheet.Range("$A$6:$L$184").AutoFilter Field:=9
ActiveSheet.Range("$A$6:$L$184").AutoFilter Field:=10
ActiveSheet.Range("$A$6:$L$184").AutoFilter Field:=11
ActiveSheet.Range("$A$6:$L$184").AutoFilter Field:=12
End Sub
Danke für die Hilfe.