Office: Syntax Fehler nach Makro Aufnahme trotz funktionierender Wenn-Formel

Helfe beim Thema Syntax Fehler nach Makro Aufnahme trotz funktionierender Wenn-Formel in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Hallo alle zusammen, bin neu hier und hoofe nun das Ihr einen Rat habt. Ich habe eine "Wenn-Funktion" erstellt die in der Mappe auch... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von David_17285, 15. Dezember 2014.

  1. DAVID_17285
    David_17285 Neuer User

    Syntax Fehler nach Makro Aufnahme trotz funktionierender Wenn-Formel


    Hallo alle zusammen,

    bin neu hier und hoofe nun das Ihr einen Rat habt.

    Ich habe eine "Wenn-Funktion" erstellt die in der Mappe auch funktioniert. Nachdem ich es als Makro aufgezeichnet habe um diese immer anwenden zu können zeigt mir visual Basic nen Syntax Fehler. Leider bin ich mehr eine Laie was das Thema angeht und hoffe Ihr Profis hier habt nen Rat für mich.

    Hier die Formel wie sie in visual Basic angegeben ist:

    Code:
        ActiveCell.FormulaR1C1 = _
        "=IF(OR(RC[-7]=""HEINRICH, ANDREAS"",RC[-7]=""LEDER, JOACHIM"",RC[-7]=""GENSECKE, THOMAS"",RC[-7]=""LIEBERUM, MARC"",RC[-7]=""BROICH, ROLAND"",RC[-7]=""BOERRIES, GERO"",RC[-7]=""ENKE, THOMAS"",RC[-7]=""LENZ, MATTHIAS"",RC[-7]=""SEEGER, MICHAEL"",RC[-7]=""GERMER; MICHAEL""),""WENDEL, OLAF"",IF(OR(RC[-7]=""GOERKE, CHRISTIAN"",RC[-7]=""SCHWARZ, EMILIA"",RC[-7]=""KIRCHNE"& _
        "NT"",RC[-7]=""ROSS, TOBIAS"",RC[-7]=""KOCH, RUDOLF"",RC[-7]=""PIRDSZUN, RENE"",RC[-7]=""PREUSS, RAINER"",RC[-7]=""REGENER, NICO""),""BALTHASAR, DAVID"",IF(OR(RC[-7]=""ALAIMO, GIOVANNI"",RC[-7]=""ASLAN, CENGIZ"",RC[-7]=""BASKIN, ESER"",RC[-7]=""DICKERT, PETER"",RC[-7]=""LABARILE, FEDERICA"",RC[-7]=""MAERTENS, RENE"",RC[-7]=""MUELLER, ANDRE"",RC[-7]=""POLLAK, RUDOLF"""& _
        ""SCHEPP, ANDRE"",RC[-7]=""SCHMIDT, DIRK"",RC[-7]=""SCHWAMBERGER, JANA"",RC[-7]=""SPÖRL, MARC""),""BUDNY, MARIUSZ"","""")))"
    und hier nochmal als Text:

    Code:
    =WENN(ODER(H6="HEINRICH, ANDREAS";H6="LEDER, JOACHIM";H6="GENSECKE, THOMAS";H6="LIEBERUM, MARC";H6="BROICH, ROLAND";H6="BOERRIES, GERO";H6="ENKE, THOMAS";H6="LENZ, MATTHIAS";H6="SEEGER, MICHAEL";H6="GERMER; MICHAEL");"WENDEL, OLAF";WENN(ODER(H6="GOERKE, CHRISTIAN";H6="SCHWARZ, EMILIA";H6="KIRCHNER, VINCENT";H6="ROSS, TOBIAS";H6="KOCH, RUDOLF";H6="PIRDSZUN, RENE";H6="PREUSS, RAINER";H6="REGENER, NICO");"BALTHASAR, DAVID";WENN(ODER(H6="ALAIMO, GIOVANNI";H6="ASLAN, CENGIZ";H6="BASKIN, ESER";H6="DICKERT, PETER";H6="LABARILE, FEDERICA";H6="MAERTENS, RENE";H6="MUELLER, ANDRE";H6="POLLAK, RUDOLF";H6="SCHEPP, ANDRE";H6="SCHMIDT, DIRK";H6="SCHWAMBERGER, JANA";H6="SPÖRL, MARC");"BUDNY, MARIUSZ";"")))
    vielen Dank im Vorraus

    gruß David
     
    David_17285, 15. Dezember 2014
    #1
  2. EXL121150
    Exl121150 Erfahrener User
    Hallo David,

    der VBA-Makro-Code müsste lauten:
    Code:
    ActiveCell.FormulaR1C1 = _
  "=IF(OR(RC[-7]=""HEINRICH, ANDREAS"",RC[-7]=""LEDER, JOACHIM"",RC[-7]=""GENSECKE, THOMAS"",RC[-7]=""LIEBERUM, MARC"",RC[-7]=""BROICH, ROLAND"",RC[-7]=""BOERRIES, GERO"",RC[-7]=""ENKE, THOMAS"",RC[-7]=""LENZ, MATTHIAS"",RC[-7]=""SEEGER, MICHAEL"",RC[-7]=""GERMER; MICHAEL""),""WENDEL, OLAF""," & _
  " IF(OR(RC[-7]=""GOERKE, CHRISTIAN"",RC[-7]=""SCHWARZ, EMILIA"",RC[-7]=""KIRCHNER, VINCENT"",RC[-7]=""ROSS, TOBIAS"",RC[-7]=""KOCH, RUDOLF"",RC[-7]=""PIRDSZUN, RENE"",RC[-7]=""PREUSS, RAINER"",RC[-7]=""REGENER, NICO""),""BALTHASAR, DAVID""," & _
  " IF(OR(RC[-7]=""ALAIMO, GIOVANNI"",RC[-7]=""ASLAN, CENGIZ"",RC[-7]=""BASKIN, ESER"",RC[-7]=""DICKERT, PETER"",RC[-7]=""LABARILE, FEDERICA"",RC[-7]=""MAERTENS, RENE"",RC[-7]=""MUELLER, ANDRE"",RC[-7]=""POLLAK, RUDOLF"",RC[-7]=""SCHEPP, ANDRE"",RC[-7]=""SCHMIDT, DIRK"",RC[-7]=""SCHWAMBERGER, JANA"",RC[-7]=""SPÖRL, MARC""),""BUDNY, MARIUSZ"","""")))"
    Das ist allerdings eine Monsterfunktion und die Folge davon ist, dass sie extrem schwer zu warten ist, wie du bereits erfahren musstest, denn sonst hättest du dich nicht hier um Hilfe umgesehen.
    Dabei geht es offenbar nur darum, einem Namen (Zelle H6) einen von 3 Namen anhand einer Namensliste in Zelle O6 zuzuordnen.

    Dasselbe Problem ist durch folgende Formel genauso lösbar:
    Code:
    Activecell.Formula="=INDEX($H$14:$H$16,VLOOKUP(H6,$B$14:$C$43,2,FALSE))"
    Dabei befinden sich
    1) die 3 zuzuordnenden Namen im Zellbereich $H$14:$H16
    2) die Namensliste, in der der Name aus Zelle H6 gesucht wird, um einen Namen aus 1) zuzuordnen, im Zellbereich $B$14:$B$43
    3) im Zellbereich $C$14:$C$$43 (Spalte neben dem Bereich aus 2)) die Nummer des Namens aus 1), der jeweils zugeordnet werden soll.

    Dadurch können die Namen ganz einfach im Arbeitsblatt gewartet werden und sind nicht hard-coded im VBA-Makro enthalten. Die Funktion ist ferner schlank und kein unübersichtliches Formelmonster.
    Als Arbeitsblattfunktion in Zelle O6 würde sie lauten:
    =INDEX($H$14:$H$16;SVERWEIS(H6;$B$14:$C$43;2;FALSCH))
     
    Exl121150, 16. Dezember 2014
    #2
  3. Beverly
    Beverly Erfahrener User
    Hi David,

    mal als allgemeiner Hinweis und unabhängig vom Sinn und Zweck deiner konkreten Formel: du kannst eine Formel auf ohne R1C1-Schreibweise in die Zelle eintragen - du musst nur beachten, dass du jedes Anführungszeichen " innerhalb der Fomel durch 2 Anführungszeichen "" ersetzt und FormulaLocal angibst (falls die Formel nicht in englischer Schreibweise vorliegt):

    Code:
    ActiveCell.FormulaLocal = "=WENN(ODER(H6=[COLOR=#ff0000]""[/COLOR]HEINRICH, ANDREAS[COLOR=#ff0000]""[/COLOR];H6=[COLOR=#ff0000]""[/COLOR]LEDER, JOACHIM[COLOR=#ff0000]""[/COLOR];H6=[COLOR=#ff0000]""[/COLOR]GENSECKE, THOMAS[COLOR=#ff0000]""[/COLOR];H6=[COLOR=#ff0000]""[/COLOR]LIEBERUM, MARC[COLOR=#ff0000]""[/COLOR];H6=[COLOR=#ff0000]""[/COLOR]BROICH, ROLAND[COLOR=#ff0000]""[/COLOR];H6=[COLOR=#ff0000]""[/COLOR]BOERRIES, GERO[COLOR=#ff0000]""[/COLOR];H6=[COLOR=#ff0000]""[/COLOR]ENKE, THOMAS[COLOR=#ff0000]""[/COLOR];H6=[COLOR=#ff0000]""[/COLOR]LENZ, MATTHIAS[COLOR=#ff0000]""[/COLOR];H6=[COLOR=#ff0000]""[/COLOR]SEEGER, MICHAEL[COLOR=#ff0000]""[/COLOR];H6=[COLOR=#ff0000]""[/COLOR]GERMER; MICHAEL[COLOR=#ff0000]""[/COLOR]);[COLOR=#ff0000]""[/COLOR]WENDEL, OLAF[COLOR=#ff0000]""[/COLOR];WENN(ODER(H6=[COLOR=#ff0000]""[/COLOR]GOERKE, CHRISTIAN[COLOR=#ff0000]""[/COLOR];H6=[COLOR=#ff0000]""[/COLOR]SCHWARZ, EMILIA[COLOR=#ff0000]""[/COLOR];H6=[COLOR=#ff0000]""[/COLOR]KIRCHNER, VINCENT[COLOR=#ff0000]""[/COLOR];H6=[COLOR=#ff0000]""[/COLOR]ROSS, TOBIAS[COLOR=#ff0000]""[/COLOR];H6=[COLOR=#ff0000]""[/COLOR]KOCH, RUDOLF[COLOR=#ff0000]""[/COLOR];H6=[COLOR=#ff0000]""[/COLOR]PIRDSZUN, RENE[COLOR=#ff0000]""[/COLOR];H6=[COLOR=#ff0000]""[/COLOR]PREUSS, RAINER[COLOR=#ff0000]""[/COLOR];H6=[COLOR=#ff0000]""[/COLOR]REGENER, NICO[COLOR=#ff0000]""[/COLOR]);[COLOR=#ff0000]""[/COLOR]BALTHASAR, DAVID[COLOR=#ff0000]""[/COLOR];WENN(ODER(H6=[COLOR=#ff0000]""[/COLOR]ALAIMO, GIOVANNI[COLOR=#ff0000]""[/COLOR];H6=[COLOR=#ff0000]""[/COLOR]ASLAN, CENGIZ[COLOR=#ff0000]""[/COLOR];H6=[COLOR=#ff0000]""[/COLOR]BASKIN, ESER[COLOR=#ff0000]""[/COLOR];H6=[COLOR=#ff0000]""[/COLOR]DICKERT, PETER[COLOR=#ff0000]""[/COLOR];H6=[COLOR=#ff0000]""[/COLOR]LABARILE, FEDERICA[COLOR=#ff0000]""[/COLOR];H6=[COLOR=#ff0000]""[/COLOR]MAERTENS, RENE[COLOR=#ff0000]""[/COLOR];H6=[COLOR=#ff0000]""[/COLOR]MUELLER, ANDRE[COLOR=#ff0000]""[/COLOR];H6=[COLOR=#ff0000]""[/COLOR]POLLAK, RUDOLF[COLOR=#ff0000]""[/COLOR];H6=[COLOR=#ff0000]""[/COLOR]SCHEPP, ANDRE[COLOR=#ff0000]""[/COLOR];H6=[COLOR=#ff0000]""[/COLOR]SCHMIDT, DIRK[COLOR=#ff0000]""[/COLOR];H6=[COLOR=#ff0000]""[/COLOR]SCHWAMBERGER, JANA[COLOR=#ff0000]""[/COLOR];H6=[COLOR=#ff0000]""[/COLOR]SPÖRL, MARC[COLOR=#ff0000]""[/COLOR]);[COLOR=#ff0000]""[/COLOR]BUDNY, MARIUSZ[COLOR=#ff0000]""[/COLOR];[COLOR=#ff0000]""""[/COLOR])))"
    Bis später,
    Karin
     
    Beverly, 16. Dezember 2014
    #3
  4. DAVID_17285
    David_17285 Neuer User

    Syntax Fehler nach Makro Aufnahme trotz funktionierender Wenn-Formel

    Vielen dank für die Tipps :-)

    leider ist es jetzt aber so das wenn ich den korrigierten code einfüge excel das Makro ausführt jedoch leider aber keine der Funktionen startet.
    Kurz zur Erklärung.....Ich habe eine riesen Liste. Diese Formatiere ich mir erstmal zu recht und will dann mit drei verschiedenen Logischen Funktionen diese analysieren. So sollte eigentlich das Makro aussehen. Nun hab ich die Aufnahme funktion gestartet, hab die Liste formatiert und die funktionen den gewünschten Zellen hinzugefügt. Liegt vielleicht der fehler darin das ich die Funktion erstmal nur einer Zeller zugeordnet habe und nicht einer ganzen spalte? Denn die funktion soll eine ganze gleich abchecken und das Ergebnis in einer anderen Spalte parallel wiedergeben. Naja wenn ich das Makro nun ausführe formatiert diese die Liste schön aber dann passiert nix mehr. Keine Funktion wird ausgeführt.

    Hier mal der ganze Code mit dem korrigierten Teil von Anton (dafür nochmal vielen Dank!)

    Code:
    Sub Fehlteilverfolgungsliste()
'
' Fehlteilverfolgungsliste Makro
'
' Tastenkombination: Strg+f
'
    Columns("B:B").Select
    Selection.Delete Shift:=xlToLeft
    Columns("C:U").Select
    Selection.Delete Shift:=xlToLeft
    Columns("E:E").Select
    Selection.Delete Shift:=xlToLeft
    Columns("G:T").Select
    Selection.Delete Shift:=xlToLeft
    Columns("H:H").Select
    Selection.Delete Shift:=xlToLeft
    Columns("I:R").Select
    Selection.Delete Shift:=xlToLeft
    Columns("J:Y").Select
    Selection.Delete Shift:=xlToLeft
    Columns("K:N").Select
    Selection.Delete Shift:=xlToLeft
    Columns("N:AT").Select
    Selection.Delete Shift:=xlToLeft
    Columns("L:L").EntireColumn.AutoFit
    Columns("H:H").EntireColumn.AutoFit
    Columns("E:E").EntireColumn.AutoFit
    Columns("D:D").EntireColumn.AutoFit
    Columns("C:C").EntireColumn.AutoFit
    ActiveWindow.SmallScroll Down:=-15
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 1
    Columns("A:A").EntireColumn.AutoFit
    Range("A5:P5").Select
    Selection.AutoFilter
    Range("N4").Select
    ActiveCell.FormulaR1C1 = "Status"
    Range("O4").Select
    ActiveCell.FormulaR1C1 = "AV"
    Range("P4").Select
    ActiveCell.FormulaR1C1 = "Bemerkung"
    Range("A4:P4").Select
    Range("P4").Activate
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = -0.349986266670736
        .PatternTintAndShade = 0
    End With
    Range("L9").Select
    ActiveWindow.ScrollColumn = 8
    ActiveWindow.ScrollColumn = 7
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 1
    ActiveSheet.Range("$A$5:$P$1030").AutoFilter Field:=3, Criteria1:="<>N*", _
        Operator:=xlAnd, Criteria2:="<>WHT*"
    Range("N6").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(RC[-5]=RC[-4],""Vollständige Anlieferung"",""Fehlteil"")"
    Selection.FillDown
    ActiveWindow.ScrollRow = 1072
    ActiveWindow.ScrollRow = 1068
    ActiveWindow.ScrollRow = 1065
    ActiveWindow.ScrollRow = 1061
    ActiveWindow.ScrollRow = 1056
    ActiveWindow.ScrollRow = 1048
    ActiveWindow.ScrollRow = 1037
    ActiveWindow.ScrollRow = 1017
    ActiveWindow.ScrollRow = 680
    ActiveWindow.ScrollRow = 625
    ActiveWindow.ScrollRow = 474
    ActiveWindow.ScrollRow = 425
    ActiveWindow.ScrollRow = 332
    ActiveWindow.ScrollRow = 286
    ActiveWindow.ScrollRow = 245
    ActiveWindow.ScrollRow = 165
    ActiveWindow.ScrollRow = 128
    ActiveWindow.ScrollRow = 94
    ActiveWindow.ScrollRow = 59
    ActiveWindow.ScrollRow = 35
    ActiveWindow.ScrollRow = 11
    ActiveWindow.ScrollRow = 1
    Columns("N:N").Select
    Selection.FormatConditions.Add Type:=xlTextString, String:="Fehlteil", _
        TextOperator:=xlContains
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Font
        .Color = -16383844
        .TintAndShade = 0
    End With
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13551615
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False
    Selection.FormatConditions.Add Type:=xlTextString, String:= _
        "Vollständig Angeliefert", TextOperator:=xlContains
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Font
        .Color = -16752384
        .TintAndShade = 0
    End With
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13561798
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False
    ActiveWindow.SmallScroll Down:=240
    Range("M265").Select
    ActiveWindow.ScrollRow = 240
    ActiveWindow.ScrollRow = 238
    ActiveWindow.ScrollRow = 237
    ActiveWindow.ScrollRow = 235
    ActiveWindow.ScrollRow = 234
    ActiveWindow.ScrollRow = 230
    ActiveWindow.ScrollRow = 228
    ActiveWindow.ScrollRow = 224
    ActiveWindow.ScrollRow = 220
    ActiveWindow.ScrollRow = 214
    ActiveWindow.ScrollRow = 209
    ActiveWindow.ScrollRow = 202
    ActiveWindow.ScrollRow = 196
    ActiveWindow.ScrollRow = 190
    ActiveWindow.ScrollRow = 184
    ActiveWindow.ScrollRow = 177
    ActiveWindow.ScrollRow = 167
    ActiveWindow.ScrollRow = 159
    ActiveWindow.ScrollRow = 154
    ActiveWindow.ScrollRow = 147
    ActiveWindow.ScrollRow = 140
    ActiveWindow.ScrollRow = 134
    ActiveWindow.ScrollRow = 124
    ActiveWindow.ScrollRow = 119
    ActiveWindow.ScrollRow = 117
    ActiveWindow.ScrollRow = 113
    ActiveWindow.ScrollRow = 112
    ActiveWindow.ScrollRow = 111
    ActiveWindow.ScrollRow = 109
    ActiveWindow.ScrollRow = 107
    ActiveWindow.ScrollRow = 106
    ActiveWindow.ScrollRow = 105
    ActiveWindow.ScrollRow = 102
    ActiveWindow.ScrollRow = 100
    ActiveWindow.ScrollRow = 99
    ActiveWindow.ScrollRow = 95
    ActiveWindow.ScrollRow = 91
    ActiveWindow.ScrollRow = 87
    ActiveWindow.ScrollRow = 83
    ActiveWindow.ScrollRow = 78
    ActiveWindow.ScrollRow = 72
    ActiveWindow.ScrollRow = 67
    ActiveWindow.ScrollRow = 62
    ActiveWindow.ScrollRow = 54
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 30
    ActiveWindow.ScrollRow = 24
    ActiveWindow.ScrollRow = 18
    ActiveWindow.ScrollRow = 14
    ActiveWindow.ScrollRow = 9
    ActiveWindow.ScrollRow = 5
    ActiveWindow.ScrollRow = 1
    Columns("N:N").Select
    ActiveWindow.SmallScroll Down:=249
    Range("N267").Select
    ActiveWindow.ScrollRow = 249
    ActiveWindow.ScrollRow = 248
    ActiveWindow.ScrollRow = 247
    ActiveWindow.ScrollRow = 242
    ActiveWindow.ScrollRow = 240
    ActiveWindow.ScrollRow = 236
    ActiveWindow.ScrollRow = 232
    ActiveWindow.ScrollRow = 229
    ActiveWindow.ScrollRow = 222
    ActiveWindow.ScrollRow = 212
    ActiveWindow.ScrollRow = 203
    ActiveWindow.ScrollRow = 195
    ActiveWindow.ScrollRow = 183
    ActiveWindow.ScrollRow = 175
    ActiveWindow.ScrollRow = 165
    ActiveWindow.ScrollRow = 156
    ActiveWindow.ScrollRow = 149
    ActiveWindow.ScrollRow = 141
    ActiveWindow.ScrollRow = 134
    ActiveWindow.ScrollRow = 128
    ActiveWindow.ScrollRow = 122
    ActiveWindow.ScrollRow = 117
    ActiveWindow.ScrollRow = 112
    ActiveWindow.ScrollRow = 107
    ActiveWindow.ScrollRow = 103
    ActiveWindow.ScrollRow = 100
    ActiveWindow.ScrollRow = 96
    ActiveWindow.ScrollRow = 94
    ActiveWindow.ScrollRow = 91
    ActiveWindow.ScrollRow = 88
    ActiveWindow.ScrollRow = 85
    ActiveWindow.ScrollRow = 83
    ActiveWindow.ScrollRow = 79
    ActiveWindow.ScrollRow = 77
    ActiveWindow.ScrollRow = 73
    ActiveWindow.ScrollRow = 71
    ActiveWindow.ScrollRow = 66
    ActiveWindow.ScrollRow = 62
    ActiveWindow.ScrollRow = 59
    ActiveWindow.ScrollRow = 54
    ActiveWindow.ScrollRow = 52
    ActiveWindow.ScrollRow = 48
    ActiveWindow.ScrollRow = 44
    ActiveWindow.ScrollRow = 42
    ActiveWindow.ScrollRow = 38
    ActiveWindow.ScrollRow = 35
    ActiveWindow.ScrollRow = 34
    ActiveWindow.ScrollRow = 30
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 25
    ActiveWindow.ScrollRow = 21
    ActiveWindow.ScrollRow = 18
    ActiveWindow.ScrollRow = 15
    ActiveWindow.ScrollRow = 13
    ActiveWindow.ScrollRow = 12
    ActiveWindow.ScrollRow = 7
    ActiveWindow.ScrollRow = 6
    ActiveWindow.ScrollRow = 5
    ActiveWindow.ScrollRow = 2
    ActiveWindow.ScrollRow = 1
    Columns("N:N").Select
    Selection.FormatConditions.Add Type:=xlTextString, String:= _
        "Vollständige Anlieferung", TextOperator:=xlContains
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Font
        .Color = -16752384
        .TintAndShade = 0
    End With
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13561798
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False
    ActiveWindow.SmallScroll Down:=246
    Range("O264").Select
    ActiveWindow.ScrollRow = 246
    ActiveWindow.ScrollRow = 242
    ActiveWindow.ScrollRow = 237
    ActiveWindow.ScrollRow = 231
    ActiveWindow.ScrollRow = 225
    ActiveWindow.ScrollRow = 215
    ActiveWindow.ScrollRow = 208
    ActiveWindow.ScrollRow = 199
    ActiveWindow.ScrollRow = 188
    ActiveWindow.ScrollRow = 177
    ActiveWindow.ScrollRow = 165
    ActiveWindow.ScrollRow = 154
    ActiveWindow.ScrollRow = 141
    ActiveWindow.ScrollRow = 128
    ActiveWindow.ScrollRow = 113
    ActiveWindow.ScrollRow = 100
    ActiveWindow.ScrollRow = 87
    ActiveWindow.ScrollRow = 75
    ActiveWindow.ScrollRow = 65
    ActiveWindow.ScrollRow = 55
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 30
    ActiveWindow.ScrollRow = 25
    ActiveWindow.ScrollRow = 18
    ActiveWindow.ScrollRow = 14
    ActiveWindow.ScrollRow = 9
    ActiveWindow.ScrollRow = 6
    ActiveWindow.ScrollRow = 2
    ActiveWindow.ScrollRow = 1
    Columns("N:N").EntireColumn.AutoFit
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 5
    Range("O6").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(OR(RC[-7]=""HEINRICH, ANDREAS"",RC[-7]=""LEDER, JOACHIM"",RC[-7]=""GENSECKE, THOMAS"",RC[-7]=""LIEBERUM, MARC"",RC[-7]=""BROICH, ROLAND"",RC[-7]=""BOERRIES, GERO"",RC[-7]=""ENKE, THOMAS"",RC[-7]=""LENZ, MATTHIAS"",RC[-7]=""SEEGER, MICHAEL"",RC[-7]=""GERMER; MICHAEL""),""WENDEL, OLAF""," & _
        " IF(OR(RC[-7]=""GOERKE, CHRISTIAN"",RC[-7]=""SCHWARZ, EMILIA"",RC[-7]=""KIRCHNER, VINCENT"",RC[-7]=""ROSS, TOBIAS"",RC[-7]=""KOCH, RUDOLF"",RC[-7]=""PIRDSZUN, RENE"",RC[-7]=""PREUSS, RAINER"",RC[-7]=""REGENER, NICO""),""BALTHASAR, DAVID""," & _
        " IF(OR(RC[-7]=""ALAIMO, GIOVANNI"",RC[-7]=""ASLAN, CENGIZ"",RC[-7]=""BASKIN, ESER"",RC[-7]=""DICKERT, PETER"",RC[-7]=""LABARILE, FEDERICA"",RC[-7]=""MAERTENS, RENE"",RC[-7]=""MUELLER, ANDRE"",RC[-7]=""POLLAK, RUDOLF"",RC[-7]=""SCHEPP, ANDRE"",RC[-7]=""SCHMIDT, DIRK"",RC[-7]=""SCHWAMBERGER, JANA"",RC[-7]=""SPÖRL, MARC""),""BUDNY, MARIUSZ"","""")))"
    Range("O6").Select
    Selection.FillDown
    ActiveWindow.ScrollRow = 1057
    ActiveWindow.ScrollRow = 1054
    ActiveWindow.ScrollRow = 1048
    ActiveWindow.ScrollRow = 1040
    ActiveWindow.ScrollRow = 1025
    ActiveWindow.ScrollRow = 712
    ActiveWindow.ScrollRow = 670
    ActiveWindow.ScrollRow = 593
    ActiveWindow.ScrollRow = 541
    ActiveWindow.ScrollRow = 523
    ActiveWindow.ScrollRow = 502
    ActiveWindow.ScrollRow = 484
    ActiveWindow.ScrollRow = 466
    ActiveWindow.ScrollRow = 448
    ActiveWindow.ScrollRow = 428
    ActiveWindow.ScrollRow = 399
    ActiveWindow.ScrollRow = 364
    ActiveWindow.ScrollRow = 330
    ActiveWindow.ScrollRow = 302
    ActiveWindow.ScrollRow = 282
    ActiveWindow.ScrollRow = 265
    ActiveWindow.ScrollRow = 253
    ActiveWindow.ScrollRow = 243
    ActiveWindow.ScrollRow = 232
    ActiveWindow.ScrollRow = 219
    ActiveWindow.ScrollRow = 209
    ActiveWindow.ScrollRow = 197
    ActiveWindow.ScrollRow = 185
    ActiveWindow.ScrollRow = 177
    ActiveWindow.ScrollRow = 170
    ActiveWindow.ScrollRow = 165
    ActiveWindow.ScrollRow = 162
    ActiveWindow.ScrollRow = 160
    ActiveWindow.ScrollRow = 159
    ActiveWindow.ScrollRow = 158
    ActiveWindow.ScrollRow = 156
    ActiveWindow.ScrollRow = 154
    ActiveWindow.ScrollRow = 150
    ActiveWindow.ScrollRow = 146
    ActiveWindow.ScrollRow = 142
    ActiveWindow.ScrollRow = 138
    ActiveWindow.ScrollRow = 136
    ActiveWindow.ScrollRow = 135
    ActiveWindow.ScrollRow = 132
    ActiveWindow.ScrollRow = 129
    ActiveWindow.ScrollRow = 124
    ActiveWindow.ScrollRow = 119
    ActiveWindow.ScrollRow = 109
    ActiveWindow.ScrollRow = 101
    ActiveWindow.ScrollRow = 93
    ActiveWindow.ScrollRow = 85
    ActiveWindow.ScrollRow = 81
    ActiveWindow.ScrollRow = 77
    ActiveWindow.ScrollRow = 73
    ActiveWindow.ScrollRow = 70
    ActiveWindow.ScrollRow = 67
    ActiveWindow.ScrollRow = 64
    ActiveWindow.ScrollRow = 61
    ActiveWindow.ScrollRow = 58
    ActiveWindow.ScrollRow = 53
    ActiveWindow.ScrollRow = 50
    ActiveWindow.ScrollRow = 48
    ActiveWindow.ScrollRow = 47
    ActiveWindow.ScrollRow = 44
    ActiveWindow.ScrollRow = 43
    ActiveWindow.ScrollRow = 42
    ActiveWindow.ScrollRow = 40
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 35
    ActiveWindow.ScrollRow = 32
    ActiveWindow.ScrollRow = 30
    ActiveWindow.ScrollRow = 26
    ActiveWindow.ScrollRow = 23
    ActiveWindow.ScrollRow = 20
    ActiveWindow.ScrollRow = 18
    ActiveWindow.ScrollRow = 17
    ActiveWindow.ScrollRow = 14
    ActiveWindow.ScrollRow = 13
    ActiveWindow.ScrollRow = 12
    ActiveWindow.ScrollRow = 9
    ActiveWindow.ScrollRow = 7
    ActiveWindow.ScrollRow = 3
    ActiveWindow.ScrollRow = 1
    Columns("O:O").EntireColumn.AutoFit
    Range("P6").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(RC[-9]=""'30419"",""Bereitstellung durch Hannover "","""")"
    Range("P6").Select
    Selection.FillDown
    ActiveWindow.ScrollRow = 1057
    ActiveWindow.ScrollRow = 1052
    ActiveWindow.ScrollRow = 1043
    ActiveWindow.ScrollRow = 1025
    ActiveWindow.ScrollRow = 719
    ActiveWindow.ScrollRow = 699
    ActiveWindow.ScrollRow = 685
    ActiveWindow.ScrollRow = 676
    ActiveWindow.ScrollRow = 659
    ActiveWindow.ScrollRow = 651
    ActiveWindow.ScrollRow = 643
    ActiveWindow.ScrollRow = 637
    ActiveWindow.ScrollRow = 632
    ActiveWindow.ScrollRow = 626
    ActiveWindow.ScrollRow = 623
    ActiveWindow.ScrollRow = 618
    ActiveWindow.ScrollRow = 613
    ActiveWindow.ScrollRow = 610

End Sub


    vielleicht wisst ihr ja mehr :-)

    gruß David
     
    David_17285, 16. Dezember 2014
    #4
  5. Michael
    Michael Administrator
    Hallo David,

    bitte verwende doch die Code Funktion am Beginn und Ende des Makro Codes. Dann ist die Darstellung im Forum etwas übersichtlicher.
    Ich hab das mal für Dich im letzten Post geändert.

    VG
    Michael

    P.S. ActiveWindow.ScrollRow = XXX sind alle unnötig ;-)
     
    Michael, 16. Dezember 2014
    #5
Thema:

Syntax Fehler nach Makro Aufnahme trotz funktionierender Wenn-Formel

Die Seite wird geladen...

  1. Syntax Fehler nach Makro Aufnahme trotz funktionierender Wenn-Formel - Similar Threads - Syntax Fehler Makro

  2. VBA-Makro zur Zellenformatierung Syntax probleme

    in Microsoft Excel Hilfe
    VBA-Makro zur Zellenformatierung Syntax probleme: Hallo zusammen, ich möchte per Makro Zellen formatieren. Tausender-Trennzeichen 3 Nachkommastellen Positive Zahlen Schwarz Negative Zahlen Rot Nullwert mit - Hinter der Zahl soll noch eine...

  3. Problem mit der Syntax

    in Microsoft Access Hilfe
    Problem mit der Syntax: Hallo Zusammen! Ich möchte zur bedingten Formatierung eines Textfeldes im frm einen Ausdruck verwenden: Dieser hier funktioniert, ist aber leider nicht ganz das was ich möchte.. Code:...

  4. Syntax DMIN oder DMAX

    in Microsoft Access Hilfe
    Syntax DMIN oder DMAX: Hallo! Ich bitte um etwas Hilfe bei der Syntax eines DMIN oder DMAX. Es geht um die Angabe der Kriterien. Folgendes habe ich codiert: Code: Ergebnis_Feld01 = DMin("Wert01", "tbl_Wertetab",...

  5. Syntax bei Datum ?

    in Microsoft Access Hilfe
    Syntax bei Datum ?: Hallo! Hat bitte jemand einen Tipp, was hier bei der Synzax verkehrt ist ? Danke im Voraus für einen Hinweis ! Code: If rs_Zählerstände![(Year)Datum] = "2020" Then Das Datumsfeld heißt "Datum"....

  6. Access SQL: Grundkonzepte, Sprache und Syntax

    in Microsoft Access Tutorials
    Access SQL: Grundkonzepte, Sprache und Syntax: Access SQL: Grundkonzepte, Sprache und Syntax Access für Microsoft 365 Access 2019 Access 2016 Access 2013 Access 2010 Access 2007 Mehr......

  7. Die SQL-Syntax wurde für die Datenquelle überprüft. (ADP)

    in Microsoft Access Tutorials
    Die SQL-Syntax wurde für die Datenquelle überprüft. (ADP): Die SQL-Syntax wurde für die Datenquelle überprüft. (ADP) Access 2010 Access 2007 Mehr... Weniger...

  8. Syntax Fehler VBA

    in Microsoft Excel Hilfe
    Syntax Fehler VBA: Hallo zusammen, ich habe von VBA keine Ahnung. Von Hajo habe ich aber ein Makro bekommen, wo sich ein oder mehrere Syntaxfehler befinden. Sub Workbook_Open() Sheets("E:\Eigene...
  1. Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
    Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
    Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.
    Akzeptieren Weitere Informationen...
    Information ausblenden