Excel 2013 Laufzeitfehler 21474178848 80010108
Hallo Administrator.de User,
ich habe folgendes Problem: Ich habe einen bestimmten Bereich von Zellenden ich kopieren und wieder einfügen möchte. Das einfügen erfolgt in neue angelegte Spalten. Wenn ich das Makro 3-4 ausführe kommt manchmal nicht immer der Laufzeitfehler '-21474178848 (80010108)'.
Ich hab es mit Rows.autofit probiert was in einem anderen Forum scheinbar geklappt hat aber bei mir nicht.
Falls jemand eine Lösung findet wär ich echt froh.
MFG
Justin
ich habe folgendes Problem: Ich habe einen bestimmten Bereich von Zellenden ich kopieren und wieder einfügen möchte. Das einfügen erfolgt in neue angelegte Spalten. Wenn ich das Makro 3-4 ausführe kommt manchmal nicht immer der Laufzeitfehler '-21474178848 (80010108)'.
Ich hab es mit Rows.autofit probiert was in einem anderen Forum scheinbar geklappt hat aber bei mir nicht.
Falls jemand eine Lösung findet wär ich echt froh.
MFG
Justin
Kommentieren
Teilen
Auf Facebook teilen
Auf X (Twitter) teilen
Auf Reddit teilen
Auf Linkedin teilenBitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 260312
Url: https://administrator.de/forum/excel-2013-laufzeitfehler-21474178848-80010108-260312.html
Ausgedruckt am: 10.05.2025 um 07:05 Uhr
3 Kommentare
Neuester Kommentar
Moin,
lad doch mal dein Sheet irgendwo hoch, oder poste den Code mit einer grundlegende Erläuterung wo was für Daten liegen. Der Fehler kann viele Ursachen haben, deswegen ist eine Analyse ohne irgendwelche Informationen über das was du im Sheet machst fast unmöglich ! Das sollte doch eigentlich selbstverständlich sein .....
Danke.
Gruß jodel32
lad doch mal dein Sheet irgendwo hoch, oder poste den Code mit einer grundlegende Erläuterung wo was für Daten liegen. Der Fehler kann viele Ursachen haben, deswegen ist eine Analyse ohne irgendwelche Informationen über das was du im Sheet machst fast unmöglich ! Das sollte doch eigentlich selbstverständlich sein .....
Danke.
Gruß jodel32
Hallo jodel32,
ich lade den Code heute nachmittag hoch hatte leider die letzte Woche viel zu tun
Gruß Justin
ich lade den Code heute nachmittag hoch hatte leider die letzte Woche viel zu tun
Gruß Justin
Hi Jodel hier der Code:
Private Sub CommandButton4_Click()
If Range("J6").Text = "(oben eingeben)" Then
UserForm28.Show
Else:
Application.ScreenUpdating = False
Range("A1:K32").Select
Selection.Copy
Rows("1:1").Select
Selection.Insert
Range("J20").Activate
Application.CutCopyMode = True
Range("C6:F16").Select
Selection.ClearContents
Range("G6:I16").Select
Selection.ClearContents
Range("K3").Select
Selection.ClearContents
Range("E20:F31").Select
Selection.ClearContents
Range("J20:K31").Select
Selection.ClearContents
Rows.AutoFit
Sheets("Tabelle2").Select
Rows("10:10").Select
Selection.Insert Shift:=xlDown
Rows.AutoFit
'____________________________________________________________________________________________
Range("A10").Select
ActiveCell.FormulaR1C1 = "=Tabelle1!R[-9]C[9]"
Range("B10").Select
ActiveCell.FormulaR1C1 = "=Tabelle1!R[-7]C[9]"
Range("C10").Select
ActiveCell.FormulaR1C1 = "=Tabelle1!R[-4]C[4]"
Range("D10").Select
ActiveCell.FormulaR1C1 = "=Tabelle1!R[7]C"
Range("E10").Select
ActiveCell.FormulaR1C1 = "=Tabelle1!R[7]C[1]"
Range("F10").Select
ActiveCell.FormulaR1C1 = "=Tabelle1!R[10]C[1]"
Range("K10").Select
ActiveCell.FormulaR1C1 = "=Tabelle1!R[11]C[-4]"
Range("M10").Select
ActiveCell.FormulaR1C1 = "=Tabelle1!R[12]C[-6]"
Range("N10").Select
ActiveCell.FormulaR1C1 = "=Tabelle1!R[13]C[-7]"
Range("O10").Select
ActiveCell.FormulaR1C1 = "=Tabelle1!R[14]C[-8]"
Range("P10").Select
ActiveCell.FormulaR1C1 = "=Tabelle1!R[15]C[-9]"
Range("Q10").Select
ActiveCell.FormulaR1C1 = "=Tabelle1!R[16]C[-10]"
Range("R10").Select
ActiveCell.FormulaR1C1 = "=Tabelle1!R[17]C[-11]"
Range("S10").Select
ActiveCell.FormulaR1C1 = "=Tabelle1!R[18]C[-12]"
Range("T10").Select
ActiveCell.FormulaR1C1 = "=Tabelle1!R[19]C[-13]"
Range("U10").Select
ActiveCell.FormulaR1C1 = "=Tabelle1!R[20]C[-14]"
Range("V10").Select
ActiveCell.FormulaR1C1 = "=Tabelle1!R[21]C[-15]"
Range("W10").Select
ActiveCell.FormulaR1C1 = "=Tabelle1!R[10]C[-13]"
Range("X10").Select
ActiveCell.FormulaR1C1 = "=Tabelle1!R[11]C[-14]"
Range("Y10").Select
ActiveCell.FormulaR1C1 = "=Tabelle1!R[12]C[-15]"
Range("Z10").Select
ActiveCell.FormulaR1C1 = "=Tabelle1!R[13]C[-16]"
Range("AA10").Select
ActiveCell.FormulaR1C1 = "=Tabelle1!R[14]C[-17]"
Range("AB10").Select
ActiveCell.FormulaR1C1 = "=Tabelle1!R[15]C[-18]"
Range("AC10").Select
ActiveCell.FormulaR1C1 = "=Tabelle1!R[16]C[-19]"
Range("AD10").Select
ActiveCell.FormulaR1C1 = "=Tabelle1!R[17]C[-20]"
Range("AE10").Select
ActiveCell.FormulaR1C1 = "=Tabelle1!R[18]C[-21]"
Range("AF10").Select
ActiveCell.FormulaR1C1 = "=Tabelle1!R[19]C[-22]"
Range("AG10").Select
ActiveCell.FormulaR1C1 = "=Tabelle1!R[20]C[-23]"
Range("AH10").Select
ActiveCell.FormulaR1C1 = "=Tabelle1!R[21]C[-24]"
Range("AJ11").Select
Selection.Copy
Range("AJ10").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
ActiveSheet.Paste
Application.CutCopyMode = False
Range("P10,AC10,AD10,AE10,AF10,AH10,AG10,AI10,AJ10,AK10").Select
Range("AK10").Activate
Selection.NumberFormat = " 0;-0;;@"
Range("AM10").Select
Range("B10").Select
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
Formula1:="=0"
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
Range("D11:AK11").Select
Selection.AutoFill Destination:=Range("D10:AK11"), Type:=xlFillFormats
Range("D10:AK11").Select
Sheets("Tabelle1").Select
Range("M33").Select
Application.ScreenUpdating = True
Application.CutCopyMode = True
MsgBox "Tagelohnschein wurde in die Liste übertragen. Bitte Angaben überprüfen und Speichern", vbInformation, "Vorgang abgeschlossen"
End If
End Sub
Ich hoffe du kannst den Fehler finden. Ich habe wie gesagt keine Ahnung.
Gruß Justin
Private Sub CommandButton4_Click()
If Range("J6").Text = "(oben eingeben)" Then
UserForm28.Show
Else:
Application.ScreenUpdating = False
Range("A1:K32").Select
Selection.Copy
Rows("1:1").Select
Selection.Insert
Range("J20").Activate
Application.CutCopyMode = True
Range("C6:F16").Select
Selection.ClearContents
Range("G6:I16").Select
Selection.ClearContents
Range("K3").Select
Selection.ClearContents
Range("E20:F31").Select
Selection.ClearContents
Range("J20:K31").Select
Selection.ClearContents
Rows.AutoFit
Sheets("Tabelle2").Select
Rows("10:10").Select
Selection.Insert Shift:=xlDown
Rows.AutoFit
'____________________________________________________________________________________________
Range("A10").Select
ActiveCell.FormulaR1C1 = "=Tabelle1!R[-9]C[9]"
Range("B10").Select
ActiveCell.FormulaR1C1 = "=Tabelle1!R[-7]C[9]"
Range("C10").Select
ActiveCell.FormulaR1C1 = "=Tabelle1!R[-4]C[4]"
Range("D10").Select
ActiveCell.FormulaR1C1 = "=Tabelle1!R[7]C"
Range("E10").Select
ActiveCell.FormulaR1C1 = "=Tabelle1!R[7]C[1]"
Range("F10").Select
ActiveCell.FormulaR1C1 = "=Tabelle1!R[10]C[1]"
Range("K10").Select
ActiveCell.FormulaR1C1 = "=Tabelle1!R[11]C[-4]"
Range("M10").Select
ActiveCell.FormulaR1C1 = "=Tabelle1!R[12]C[-6]"
Range("N10").Select
ActiveCell.FormulaR1C1 = "=Tabelle1!R[13]C[-7]"
Range("O10").Select
ActiveCell.FormulaR1C1 = "=Tabelle1!R[14]C[-8]"
Range("P10").Select
ActiveCell.FormulaR1C1 = "=Tabelle1!R[15]C[-9]"
Range("Q10").Select
ActiveCell.FormulaR1C1 = "=Tabelle1!R[16]C[-10]"
Range("R10").Select
ActiveCell.FormulaR1C1 = "=Tabelle1!R[17]C[-11]"
Range("S10").Select
ActiveCell.FormulaR1C1 = "=Tabelle1!R[18]C[-12]"
Range("T10").Select
ActiveCell.FormulaR1C1 = "=Tabelle1!R[19]C[-13]"
Range("U10").Select
ActiveCell.FormulaR1C1 = "=Tabelle1!R[20]C[-14]"
Range("V10").Select
ActiveCell.FormulaR1C1 = "=Tabelle1!R[21]C[-15]"
Range("W10").Select
ActiveCell.FormulaR1C1 = "=Tabelle1!R[10]C[-13]"
Range("X10").Select
ActiveCell.FormulaR1C1 = "=Tabelle1!R[11]C[-14]"
Range("Y10").Select
ActiveCell.FormulaR1C1 = "=Tabelle1!R[12]C[-15]"
Range("Z10").Select
ActiveCell.FormulaR1C1 = "=Tabelle1!R[13]C[-16]"
Range("AA10").Select
ActiveCell.FormulaR1C1 = "=Tabelle1!R[14]C[-17]"
Range("AB10").Select
ActiveCell.FormulaR1C1 = "=Tabelle1!R[15]C[-18]"
Range("AC10").Select
ActiveCell.FormulaR1C1 = "=Tabelle1!R[16]C[-19]"
Range("AD10").Select
ActiveCell.FormulaR1C1 = "=Tabelle1!R[17]C[-20]"
Range("AE10").Select
ActiveCell.FormulaR1C1 = "=Tabelle1!R[18]C[-21]"
Range("AF10").Select
ActiveCell.FormulaR1C1 = "=Tabelle1!R[19]C[-22]"
Range("AG10").Select
ActiveCell.FormulaR1C1 = "=Tabelle1!R[20]C[-23]"
Range("AH10").Select
ActiveCell.FormulaR1C1 = "=Tabelle1!R[21]C[-24]"
Range("AJ11").Select
Selection.Copy
Range("AJ10").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
ActiveSheet.Paste
Application.CutCopyMode = False
Range("P10,AC10,AD10,AE10,AF10,AH10,AG10,AI10,AJ10,AK10").Select
Range("AK10").Activate
Selection.NumberFormat = " 0;-0;;@"
Range("AM10").Select
Range("B10").Select
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
Formula1:="=0"
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
Range("D11:AK11").Select
Selection.AutoFill Destination:=Range("D10:AK11"), Type:=xlFillFormats
Range("D10:AK11").Select
Sheets("Tabelle1").Select
Range("M33").Select
Application.ScreenUpdating = True
Application.CutCopyMode = True
MsgBox "Tagelohnschein wurde in die Liste übertragen. Bitte Angaben überprüfen und Speichern", vbInformation, "Vorgang abgeschlossen"
End If
End Sub
Ich hoffe du kannst den Fehler finden. Ich habe wie gesagt keine Ahnung.
Gruß Justin
