just4fun1990
Jan 18, 2015
view6177
view3
0
Goto Top

Excel 2013 Laufzeitfehler 21474178848 80010108

GermanQuestionVB for ApplicationsDevelopment
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
comment-contentCommentShareShare
Share on Facebook Share on Twitter Share on Reddit Share on Linkedin

Content-Key: 260312

Url: https://administrator.de/contentid/260312

Printed on: April 25, 2024 at 11:04 o'clock

3 Comments
Latest comment
Goto Top
Mitglied: 114757
114757 Jan 18, 2015 updated at 14:00:12 (UTC)
Goto Top
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
Member: Just4fun1990
Just4fun1990 Jan 23, 2015 at 05:29:15 (UTC)
Goto Top
Hallo jodel32,

ich lade den Code heute nachmittag hoch hatte leider die letzte Woche viel zu tun

Gruß Justin
Member: Just4fun1990
Just4fun1990 Jan 23, 2015 at 15:18:12 (UTC)
Goto Top
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
GermanQuestionVB for ApplicationsDevelopment
Hotly discussed
gleixnerdCheck of ZFW Firewallgleixnerd - 5 CommentsjstrickerWireguard VPN on UDM Pro behind Fritzbox - Handshake did not completejstricker - 3 Comments