Office: (Office 2013) Code über 2 Zeilen

Hallo,

ich möchte folgenden VBA Code einfügen:

Code:

If Target = Application.Round(Range("T24")*Range("S24")/Range("U24") ,2) And Range ("V23") = Application.Round(Range("T23")*Range("S23")/Range("U23") ,2) And Range ("V22") = Application.Round(Range("T22")*Range("S22")/Range("U22") ,2) And Range ("V21") = Application.Round(Range("T21")*Range("S21")/Range("U21") ,2) And Range ("V20")= Application.Round(Range("T20")*Range("S20")/Range("U20") ,2) And Range ("V19") = Application.Round(Range("T19")*Range("S19")/Range("U19") ,2) And Range("V18") = Application.Round(Range("T18")*Range("S18")/Range("U18") ,2) And Range("V17") = Application.Round(Range("T17")*Range("S17")/Range("U17") ,2)  And Range("V16")= Application.Round(Range("T16")*Range("S16")/Range("U16") ,2) And Range ("V15") = Application.Round(Range("T15")*Range("S15")/Range("U15") ,2) And Range("V12") =Application.Round(Range("T12")*Range("S12")/Range("U12") ,2) And Range("V13") =Application.Round(Range("T13")*Range("S13")/Range("U13") ,2) And Range("V14") =Application.Round(Range("T14")*Range("S14")/Range("U14") ,2) And Range("AA11") = 13 Then

Leider passt der nicht in eine Zeile. Daher würde ich ihn gerne an der Stelle

Code:

And Range("V13") 

auf die zweite Zeile schieben. Aber irgendwie bekomme ich das nicht so hin, dass es funktioniert. Habe es mit & _ probiert, dass klappt aber nicht.

Weiß jemand einen Rat?

Danke.

 

Ich schreib den Code besser noch einmal so, damit man es besser lesen kann:

If Target = Application.Round(Range(“T24”)*Range(“S24”)/Range(“U24”) ,2) And Range (“V23”) = Application.Round(Range(“T23”)*Range(“S23”)/Range(“U23”) ,2) And Range (“V22”) = Application.Round(Range(“T22”)*Range(“S22”)/Range(“U22”) ,2) And Range (“V21”) = Application.Round(Range(“T21”)*Range(“S21”)/Range(“U21”) ,2) And Range (“V20”)= Application.Round(Range(“T20”)*Range(“S20”)/Range(“U20”) ,2) And Range (“V19”) = Application.Round(Range(“T19”)*Range(“S19”)/Range(“U19”) ,2) And Range(“V18”) = Application.Round(Range(“T18”)*Range(“S18”)/Range(“U18”) ,2) And Range(“V17”) = Application.Round(Range(“T17”)*Range(“S17”)/Range(“U17”) ,2) And Range(“V16”)= Application.Round(Range(“T16”)*Range(“S16”)/Range(“U16”) ,2) And Range (“V15”) = Application.Round(Range(“T15”)*Range(“S15”)/Range(“U15”) ,2) And Range("V12") =Application.Round(Range(“T12”)*Range(“S12”)/Range(“U12”) ,2) And Range("V13") =Application.Round(Range(“T13”)*Range(“S13”)/Range(“U13”) ,2) And Range("V14") =Application.Round(Range(“T14”)*Range(“S14”)/Range(“U14”) ,2) And Range("AA11") = 13 Then

 

Mal so als Nebenfrage, kann es sein, dass Codes so lang sind, dass sie Excel beim Speichern in die Knie zwingen?

 

Hallo

du hast die maximale Anzahl Zeichen in einer Zeile Code überschritten

schau mal ob es so geht

Code:

Sub test()
If Target = Application.Round(Range(“T24”) * Range(“S24”) / Range(“U24”), 2) _
    And Range(“V23”) = Application.Round(Range(“T23”) * Range(“S23”) / Range(“U23”), 2) _
    And Range(“V22”) = Application.Round(Range(“T22”) * Range(“S22”) / Range(“U22”), 2) _
    And Range(“V21”) = Application.Round(Range(“T21”) * Range(“S21”) / Range(“U21”), 2) _
    And Range(“V20”) = Application.Round(Range(“T20”) * Range(“S20”) / Range(“U20”), 2) _
    And Range(“V19”) = Application.Round(Range(“T19”) * Range(“S19”) / Range(“U19”), 2) _
    And Range(“V18”) = Application.Round(Range(“T18”) * Range(“S18”) / Range(“U18”), 2) _
    And Range(“V17”) = Application.Round(Range(“T17”) * Range(“S17”) / Range(“U17”), 2) _
    And Range(“V16”) = Application.Round(Range(“T16”) * Range(“S16”) / Range(“U16”), 2) _
    And Range(“V15”) = Application.Round(Range(“T15”) * Range(“S15”) / Range(“U15”), 2) _
    And Range("V12") = Application.Round(Range(“T12”) * Range(“S12”) / Range(“U12”), 2) _
    And Range("V13") = Application.Round(Range(“T13”) * Range(“S13”) / Range(“U13”), 2) _
    And Range("V14") = Application.Round(Range(“T14”) * Range(“S14”) / Range(“U14”), 2) _
    And Range("AA11") = 13 Then
End Sub

MfG Tom

 

Hi,

du musst den Cursor direkt links vor das "A" bei jedem And setzen, jeweils einen Unterschrich _ einfügen und dann Enter drücken.
Das ganz Prinzip funktioniert vor jedem VBA-Befehl, also auch z.B. vor Range. Es gibt ein paar Ausnahmen wo das nicht möglich ist, aber da macht dich der Debugger schon darauf aufmerksam, indem er dann die Zeile in Rot schreibt.

Bis später,
Karin

 

Ok, ich habe jetzt mal den Code komplett eingegegeben und zwar so:

Code:

If Target.Cells(1).Address(False, False) = "V24" Then
        If Target = Application.Round(Range(“T24”) * Range(“S24”) / Range(“U24”), 2) _
        And Range(“V23”) = Application.Round(Range(“T23”) * Range(“S23”) / Range(“U23”), 2) _
        And Range(“V22”) = Application.Round(Range(“T22”) * Range(“S22”) / Range(“U22”), 2) _
        And Range(“V21”) = Application.Round(Range(“T21”) * Range(“S21”) / Range(“U21”), 2) _
        And Range(“V20”) = Application.Round(Range(“T20”) * Range(“S20”) / Range(“U20”), 2) _
        And Range(“V19”) = Application.Round(Range(“T19”) * Range(“S19”) / Range(“U19”), 2) _
        And Range(“V18”) = Application.Round(Range(“T18”) * Range(“S18”) / Range(“U18”), 2) _
        And Range(“V17”) = Application.Round(Range(“T17”) * Range(“S17”) / Range(“U17”), 2) _
        And Range(“V16”) = Application.Round(Range(“T16”) * Range(“S16”) / Range(“U16”), 2) _
        And Range(“V15”) = Application.Round(Range(“T15”) * Range(“S15”) / Range(“U15”), 2) _
        And Range("V12") = Application.Round(Range(“T12”) * Range(“S12”) / Range(“U12”), 2) _
        And Range("V13") = Application.Round(Range(“T13”) * Range(“S13”) / Range(“U13”), 2) _
        And Range("V14") = Application.Round(Range(“T14”) * Range(“S14”) / Range(“U14”), 2) _
        And Range("AA11") = 13 Then
            ActiveSheet.Unprotect ("123")
            Range("V25").Locked = False
            Range("V25").Select
            ActiveSheet.Protect ("123")
        End If
    End If

Da bekomme ich dann den Fehler: Laufzeitfehler 1004 Die Methode 'Range' für das Objekt '_Worksheet" ist fehlgeschlagen. Und die Zeilen von "If Target = bis = 13 Then" werden gelb hinterlegt?

 

Ok ich hab die kursiven Anführungsstriche durch gerade ersetzt, jetzt scheint es komischerweise zu funktionieren.

 

Hallo

was passiert denn wenn du vor jedes .Round erst noch ein .WorkSheetFunction schreibst?

sollte dann so aussehen

Application.WorksheetFunction.Round(

MfG Tom

 

Hallo,

siehe #7 & danke für die Hilfe.

 

Hallo,

das könnte man auch einfacher haben:

Code:

if intersect(Target,Range("V24")) is nothing or Target.count>1 then exit sub
For loA=14 to 24
If Range("V" & loa)=Application.Round(Range("T" & loa) * Range("S" & loa) / Range("U2" & loa), 2) then lob=lob+1
next
If lob=11 and Range("AA11")=13 then
ActiveSheet.Unprotect ("123")
            Range("V25").Locked = False
            Range("V25").Select
            ActiveSheet.Protect ("123")
end if

Ich frage mich, wie man die komischen Gänsefüßchen hinkriegt, die Du da produziert hast!