Fehler im Makro!?
Sebastian
ich habe ein großes Problem. Wenn ich das unten aufgeführte Makro vom Worksheets (Test) starte geht alles bestens.
Wenn ich das unten aufgeführte Makro vom Worksheet (Haupt) starte, bekomme ich eine fehlermeldung (Typen unverträglich)
Was mache ich falsch!?
Vielen Dank für Hilfe
Sub Bildlauf1()
Dim rngCurrent As Range
Dim lngZeilen As Long
Set rngCurrent = Selection
lngZeilen = IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows.Count) - _
_
2
Worksheets("Test").Shapes("Bildlaufleiste 1").Select
With Selection
.Min = 0
.Max = Worksheets("Test").Range("K12").Value
.SmallChange = 1
.LargeChange = 10
.Display3DShading = True
End With
rngCurrent.Select
Set rngCurrent = Nothing
End Sub
Anzeige