Laufzeitfehler in Excel

[Heinz Ulm]

Hallo VBA-Freunde,

ich bin auf der Suche nach einer Problemlösung:

Auf meinem Laptop läuft mein Makro einwandfrei.
Das Makro löscht einfach einen Bereich und kopiert dann Bereiche aus anderen Tabellenblättern wieder auf den gelöschten Bereich.

Hier der Code:

Code:

Sub RefreshSummary()

'Dimensionierung der Variablen
Dim Bis As Integer
Dim i As Integer

'Zuweisung derWerte zu den Variablen
   Bis = Application.WorksheetFunction.Max(Worksheets("Coversheet").Range("L:L"))

'Wechsel auf Summary und dort alles im Bereich A15 bis M10000 löschen
   Sheets("Summary").Select
   Range("A5:M10000").ClearContents

'Schleife zum Kopieren der Lots
   For i = 1 To Bis
   
   
       Sheet = "Supply " & Worksheets("Coversheet").Range("M" & i + 4).Value
       Worksheets(Sheet).Select
       BelegteZellen = Application.WorksheetFunction.CountA(Worksheets(Sheet).Range("A:A")) + 6
       Range("A15:M" & BelegteZellen).Copy
       Worksheets("Summary").Select

'Einfuegezeile feststellen, kopiertes Lot einfuegen
       LetzteZeile = Application.WorksheetFunction.CountA(Worksheets("Summary").Range("C:C")) + 3
       Range("A" & LetzteZeile).Select
       ActiveSheet.Paste
   Next

'Fertigmeldung

   Range("N4:W4").Select
   Selection.AutoFill Destination:=Range("N4:W" & Worksheets("Summary").Range("O1").Value), Type:=xlFillDefault
   Range("N4:W" & Worksheets("Summary").Range("O1").Value).Select
   
   Worksheets("pricesheet").Select
   MsgBox ("ready")
End Sub

Nun passierte folgendes:
Der User löschte ein paar Zeilen auf der Tabelle "Summary" um meinen Code zu überprüfen, der erste Aufruf lief normal, bei späteren Aufrufen kam die Meldung:
Laufzeitfehler -215 741 78448 (800 10 108)
Select für Object "_Worksheet" fehlgeschlagen.

Ab und zu kam auch die Meldung
Paste für Object "_Worksheet" fehlgeschlagen

Und um dem Ganzen noch die Krone aufzusetzen, das Laptop verhielt sich mit dem Code höchst unterschiedlich,
je nach dem ob es an der Dockinstation war,
ob es über WLAN am Server war oder mit dem Lankabel.
Wie kann man so was abfangen?

Beim Treffen habe ich die Originaldatei dabei.

Danke für eure Überlegungen.

Viele Grüße
Heinz

[schauan]

Hallo Heinz,

nur mal vorab - ich würde keine Variable mit dem Namen Sheet verwenden. Nimm mal stattdessen z.B. strSheet.

[Heinz Ulm]

Hallo André,

danke für den Hinweis.
Ich werde das mal in dem neuen Code des Smartsheets ändern.
Vielleicht ist das ja eine Möglichkeit des Absturzes.

Bis Freitag

Heinz

[Käpt'n Blaubär]

Hallo Heinz,

weil ich zufällig gerade sehe, daß Du anwesend bist, auch Dir/Euch wünsche ich
für das Wochenende viel Spaß und ich wage mich weit vor, aber ich behaupte
mal großkotzig, im nächsten Jahr bin ich auch wieder dabei.

Habt ein gutes und schönes Wochenende und kommt heile wieder nach hause, ihr zwei beiden.
(Vielleicht liest Du das ja noch vor Montag. Ich meine natürlich, vor Montag in einer Woche :05: )

[Heinz Ulm]

Hallo Käptn Blaubär,

vielen Dank für deine Wüsche,
wir werden uns alle freuen wenn du im nächsten Jahr wieder bei uns bist.
Alles Gute für deinen Gesundheitsfortschritt.

Mary und Heinz