Hallo Kuwer,
anhand sende Ich dir eine kleine Beispieldatei, die mein Problem vielleicht etwas genauer erklärt.
Ich freue mich auf deine Antwort
Viele Grüße
McArthur1
[
attachment=10338]
Hallo Arthur,
das ginge z.B. so:
' **************************************************************
' Modul: Modul1 Typ = Allgemeines Modul
' **************************************************************
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Public Sub MeinDrehfeldUp()
With ActiveSheet
.Shapes(Application.Caller).Line.ForeColor.RGB = RGB(146, 208, 80)
Application.ScreenUpdating = True
Sleep 333 'Pause in Millisekunden
.Range("P13").MergeArea.Cells(1).Value = .Range("P13").MergeArea.Cells(1).Value + 1
.Shapes(Application.Caller).Line.ForeColor.RGB = RGB(0, 0, 0)
End With
End Sub
Gruß Uwe
Hallo Kuwer,
Vielen Dank für deine Hilfe.
Jetzt klappt es genauso wie Ich es mir vorgestellt hatte.
Viele Grüße
McArthur1