Die HorizontalAligment - Eigenschaft des Range Objektes kann nicht festgelegt werden

  • Excel

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von Ole.

    Die HorizontalAligment - Eigenschaft des Range Objektes kann nicht festgelegt werden

    Hallo alle zusammen

    Die in der Überschrift angegebene Fehlermeldung bekomme ich überall dort in meinem VBA Programm,
    wo ich in der Ziel Excel Tabelle Die Rahmen angeben möchte, also ob dicker, dünner oder überhaupt.
    Wenn ich die betreffenden Kommandos auskommentiere läuft das script gut durch halt nur ohne die Rahmen
    und das ist leider sehr unübersichtlich.
    Ich hoffe hier kann mir wer helfen!

    Der Code auszugsweise:

    Visual Basic-Quellcode

    1. Sub Main()
    3. Dim excelobj As Object
    5. 'excel oeffnen
    6. Set excelobj = GetObject(, "Excel.Application")
    7. excelobj.Visible = True
    9. excelobj.Sheets("Kundenzählliste").Select
    10. excelobj.Sheets("Kundenzählliste").Name = "Rohdaten"
    11. excelobj.Sheets("Tabelle2").Select
    12. excelobj.Sheets("Tabelle2").Name = "Kundenzählliste"
    13. excelobj.Range("A1:D1").Select
    14. With excelobj.Selection
    15. '.HorizontalAlignment = xlGeneral
    16. '.VerticalAlignment = xlBottom
    17. .WrapText = False
    18. .Orientation = 0
    19. .AddIndent = False
    20. .ShrinkToFit = False
    21. .MergeCells = True
    22. End With
    23. .
    24. .
    25. .
    27. ' excelobj.Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    28. ' excelobj.Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    29. ' With excelobj.Selection.Borders(xlEdgeLeft)
    30. ' .LineStyle = xlContinuous
    31. ' .Weight = xlMedium
    32. ' .ColorIndex = xlAutomatic
    33. ' End With
    34. ' With excelobj.Selection.Borders(xlEdgeTop)
    35. ' .LineStyle = xlContinuous
    36. ' .Weight = xlMedium
    37. ' .ColorIndex = xlAutomatic
    38. ' End With
    39. ' With excelobj.Selection.Borders(xlEdgeBottom)
    40. ' .LineStyle = xlContinuous
    41. ' .Weight = xlMedium
    42. ' .ColorIndex = xlAutomatic
    43. ' End With
    44. ' With excelobj.Selection.Borders(xlEdgeRight)
    45. ' .LineStyle = xlContinuous
    46. ' .Weight = xlMedium
    47. ' .ColorIndex = xlAutomatic
    48. ' End With
    49. ' excelobj.Selection.Borders(xlInsideVertical).LineStyle = xlNone
    50. ' excelobj.Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
    51. ' excelobj.Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    52. ' excelobj.Selection.Borders(xlDiagonalUp

    Wie zusehen ist musste ich ne menge auskommentieren und das ist ja noch nicht alles geht immer so weiter :(

    Mfg
    Ole


    Edit by LaMa5:
    - VB-Tag eingefügt, das nächste Mal bitte selbst dran denken!

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „LaMa5“ ()

    Hast du einen Verweis auf Microsoft Excel gesetzt? Wenn nicht, findet das Programm für die Excel-Konstanten (xl...) keine Werte, was dann deine Fehlermeldung verursachen würde.

    (Ich nehme an, dass dein Code nicht in einem Excel-Modul steht, da du sonst ja kein Excel-Objekt erstellen müsstest.)

    Und noch eine Bitte: Kannst du in Zukunft für VB-Code den VB-Tag verwenden?

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „roddy“ ()

    Ups Ja in Zukunft werd ich den VB-Tag verwenden sorry.

    Du hast recht der Code steht nicht in einem Excel Modul.

    Ich hab gefunden was du meintest und du hattes recht ich hatte keinen Verweis danke für die schnell Hilfe :)

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Ole“ ()

Facebook
Telefonspende