Makro funktioniert nur im Editor

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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Sub SAVE_R1() ' SAVE_R1 Makro Range("L5:M5").Copy Range("Q9").PasteSpecial Paste:=xlPasteValues Range("M3").Copy Range("P9").PasteSpecial Paste:=xlPasteValues Application.CutCopyMode = False Call FÜNFHUNDERTEINS_1_PLAYER1WIN End Sub Sub FÜNFHUNDERTEINS_1_PLAYER1WIN() ' FÜNFHUNDERTEINS_1_PLAYER1WIN Makro Range("K7:K39,L7:L39").ClearContents Range("K5").Value = Range("K5").Value + 1 / 2 End Sub

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Then Exit Sub 'Nur eine Zelle darf geaendert werden If Not Intersect(Range("K7:L39"), Target) Is Nothing Then 'Wenn geaenderte Zelle im Bereich Select Case Target.Column 'Fallauswahl Spaltennummer der geaenderten Zelle Case 11 'Spalte K If Target.Row < 39 Then 'wenn Zeilennummer < 39 dann Cells(Target.Row, 11).Offset(2, 0).Select 'ausgehend von geaenderter Zelle 2 Zellen runter Else 'sonst Cells(7, 12).Select 'SpalteL Zeile7 End If Case 12 'Spalte L If Target.Row < 39 Then Cells(Target.Row, 12).Offset(2, 0).Select 'ausgehend von geaenderter Zelle 2 Zellen _ runter Else Cells(7, 11).select 'SpalteK Zeile7 End If End Select Select Case Target.Value 'Fallauswahl Zelleintrag Case 999: FÜNFHUNDERTEINS_1_RESET 'wenn 999 dann Makro ausfuehren Case 990: FHE4 Case 991: FHE3 Case 992: FHE2 Case 993: FHE1 Case 994: HI4 Case 995: HI3 Case 996: HI2 Case 997: HI1 Case 998: TRAINER End Select If Range("I4").Value = 0 Then SAVE_R1 'wenn I4 = Null dann Makro ausfuehren End If End Sub

Sub SAVE_R1() ' SAVE_R1 Makro Application.EnableEvents = False Range("Q9").Value = Range("L5").Value Range("P9").Value = Range("M3").Value Application.EnableEvents = True Call FÜNFHUNDERTEINS_1_PLAYER1WIN End Sub

Beliebteste Forumthreads (12 Monate)

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread