Registriert seit: 17.04.2014
Version(en): MS Office 365(32)
Hallo Arthur,
ja, poste bitte eine Beispieldatei. Siehe dazu auch hier:
http://www.clever-excel-forum.de/thread-326.html
Gruß Uwe
![[-]](https://www.clever-excel-forum.de/images/collapse.png)
Folgende(r) 1 Nutzer sagt Danke an Kuwer für diesen Beitrag:1 Nutzer sagt Danke an Kuwer für diesen Beitrag 28
• McArthur1
Registriert seit: 12.03.2017
Version(en): 2016
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
Test Pizzabelag.xlsm (Größe: 28,93 KB / Downloads: 3)
Registriert seit: 17.04.2014
Version(en): MS Office 365(32)
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
Folgende(r) 1 Nutzer sagt Danke an Kuwer für diesen Beitrag:1 Nutzer sagt Danke an Kuwer für diesen Beitrag 28
• McArthur1
Registriert seit: 12.03.2017
Version(en): 2016
Hallo Kuwer,
Vielen Dank für deine Hilfe.
Jetzt klappt es genauso wie Ich es mir vorgestellt hatte.
Viele Grüße
McArthur1
