Makro läuft auf einem PC nicht

[ari-2001]

Hallo,

ich habe einen Tagesdienstplan, den ich nach verschiedenen Optionen sortieren kann.

Wir haben auf allen Rechnern Office 2016 Standard und auf einem Office 2016 Home and Business.

Bei dem PC mit Home and Business funktionieren die Makros nicht, da meckert er immer, dass alle Zeilen
die gleiche Größe haben müssen.

Bei allen anderen PCs funktionieren die Makros tadellos.
Gibt es eventuell eine Einstellung, die ich auf dem neuen PC ändern muss?

Anbei die Datei mit den Makros.

Vielen Dank im Voraus für das Anschauen.

Viele Grüße
Andreas

[schauan]

Hallöchen,

in welchem Makro und welcher Codezeile kommt die Meldung?

[ari-2001]

Hallo,

der Fehler kommt z.B. beim Makro "Nach Zeit Sortiert" und beim Debuggen wird die Zeile .Apply gelb markiert.
Es geht auf allen PCs, nur auf dem PC nicht, der Home and Business drauf hat, ich könnte verzweifeln.

Gruß
Andreas

[schauan]

Hallöchen,

löse die Verbindung in E4, markiere die beiden Zellen E4 und F4 und nutze Zentriert über Markierung.

[ari-2001]

Hilft leider auch nicht.

Sowohl Office 2019, als auch Office 2013 und Office 2016 in der Standard Version bearbeiten das Makro trotz verbundener Zellen,
lediglich Office 2016 Home and Business bricht dann immer mit einer Fehlermeldung ab und markiert die Stelle, an der .Apply kommt.

Range("A5:f100").Select
    ActiveWorkbook.Worksheets("Blomberg").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Blomberg").Sort.SortFields.Add Key:=Range("C5:C100" _
        ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Blomberg").Sort
        .SetRange Range("A5:f100")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With


Kann das die Version von Home and Business vielleicht einfach nur nicht?

Viele Grüße
Andreas

[Werner.M]

Hallo,

du hast verbundene Zellen im Zellbereich von F4 bis F100.
Löse den Zellverbund des kompletten Zellbereichs auf.

Bei mir, Excel 365, meckert er auch wegen der verbundenen Zellen.

Und der Code besser ohne Select.

Code:

Sub BloZeit()
Dim loLetzte As Long

With ThisWorkbook.Worksheets("Blomberg")
    loLetzte = .Cells(.Rows.Count, "C").End(xlUp).Row
    .Sort.SortFields.Clear
    .Sort.SortFields.Add Key:=.Range("C5:C" & loLetzte), _
    SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With .Sort
        .SetRange Range("A5:F" & loLetzte)
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End With
End Sub

Gruß Werner

[ari-2001]

Ok, zur Not werde ich das machen.

Aber wieso funktioniert es bei den anderen PCs?
Gibt es vielleicht eine Excel-Option, die noch angeflagt werden muss?

Viele Grüße
Andreas

[snb]

Ja, diese Opotion heisst: verwende nie verbundene Zellen, kombiniert mit VBA.

Dann wirst du auch nie eine 'Not' erfahren.

[schauan]

Hallöchen,
Bei mir ist es unter 2019 auch nicht gelaufen. Bei dem einen Blatt waren nur oben die beiden Zellen verbunden. Kann es sein dass auf den verschiedenen PC verschiedene Dateien liegen wo die einzelnen User Ihrer Kreativität freien Lauf lassen? Ansonsten, wenn Du eine Datei von Rechner zu Rechner trägst sollte überall das Gleiche passieren.

[ari-2001]

Hallo zusammen,

vielen Dank für die Hilfe.

Mittlerweile habe ich das Layout dahingehend geändert, dass ich auf die verbundenen Zeilen verzichte.
Seit dem läuft das Makro auf allen PCs.

Das Makro habe ich dahingehend geändert (vielen Dank an Norbert für den Hinweis!), dass es auf "select" verzichtet und das Ende der Tabelle automatisch ermittelt.
Außerdem habe ich das Makro nicht auf ein Blatt fixiert, sondern auf "activesheet" gesetzt, so dass ich anstatt für jedes neues Tabellenblatt ein neues (gleiches Makro, nur mit anderem Bezug) ein Makro nehme, was jeweils dann ausgeführt wird.

Vielen Dank erst einmal für eure Hilfe.

Andreas