Makro funktioniert nur im Editor
01.07.2014 13:25:18
Andreas
Hallo liebes Excel Forum...
... Leider bin ich im VBA zu schwach um mein Problem selber zu lösen.
Ich schraube schon seit ca. 1 Woche an einem Makro herum, welches wenn ich es aus dem VBA _
Editor starte funktioniert. aber wenn ich es per:
If Range("I4").Value = "0" Then Call SAVE_R1
starte funktioniert es nicht.
Hier das Makro:
Sub SAVE_R1()
' SAVE_R1 Makro
Range("L5:M5").Select
Selection.Copy
Range("Q9").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("M3").Select
Selection.Copy
Range("P9").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Call FÜNFHUNDERTEINS_1_PLAYER1WIN
End Sub
und Hier das Makro im Makro:
Sub FÜNFHUNDERTEINS_1_PLAYER1WIN()
' FÜNFHUNDERTEINS_1_PLAYER1WIN Makro
Range("K7:K39,L7:L39").Select
Selection.ClearContents
Range("K5").Value = Range("K5").Value + 1 / 2
Range("K7").Select
End Sub
Also wenn ich es aus dem VBA Editor starte funktioniert es wie gewünscht.
Wenn ich es mit
If Range("I4").Value = "0" Then Call SAVE_R1
auslöse funktioniert es nicht und der Bereich
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
soll gedebuggt werden.
Ich habe keine Ahnung was ich tun soll.
Achso wenn ich das Makro mit einem Button Starte funktioniert es auch.
Ich hoffe mir kann jemand helfen.
Im vorraus vielen Dank fürs Interesse
Gruß
Andreas