fehlerhaftes Excel-Makro
Hallo,
ich habe eine Excel-Datei erstellt, in der Werte, die in einer Eingabemaske eingegeben werden, per Makro in eine Tabelle übernommen werden. Da ich mich selbst nicht wirklich mit Code auskenne (habe lediglich 1-2 Anfängerseminare in der Uni gehabt), habe ich das Makro aufnehmen lassen. Ich habe dabei erst eine Zeile eingefügt und dann die Werte einzeln in die Tabelle kopiert, bevor ich die Aufzeichnung beendet habe. Nun müsste das Programm ja autmatisch bei jeder Ausführung eine neue Zeile mit den neu eingetragenen Werten erstellen und sich die Tabelle so selbstständig vervollständigen. Leider ist dies nicht ganz der Fall. Die neue Zeile mitsamt der neuen Werte wird zwar generiert, allerdings verschwinden gleichzeigtig auch die Werte aus der vorherigen Zeile? Woran liegt das? Kann mir jemand weiterhelfen?
Hier noch der Code (Ich bearbeite anfangs meines Makros noch die Formattierung der neuen, eingefügten Zellen):
ich habe eine Excel-Datei erstellt, in der Werte, die in einer Eingabemaske eingegeben werden, per Makro in eine Tabelle übernommen werden. Da ich mich selbst nicht wirklich mit Code auskenne (habe lediglich 1-2 Anfängerseminare in der Uni gehabt), habe ich das Makro aufnehmen lassen. Ich habe dabei erst eine Zeile eingefügt und dann die Werte einzeln in die Tabelle kopiert, bevor ich die Aufzeichnung beendet habe. Nun müsste das Programm ja autmatisch bei jeder Ausführung eine neue Zeile mit den neu eingetragenen Werten erstellen und sich die Tabelle so selbstständig vervollständigen. Leider ist dies nicht ganz der Fall. Die neue Zeile mitsamt der neuen Werte wird zwar generiert, allerdings verschwinden gleichzeigtig auch die Werte aus der vorherigen Zeile? Woran liegt das? Kann mir jemand weiterhelfen?
Hier noch der Code (Ich bearbeite anfangs meines Makros noch die Formattierung der neuen, eingefügten Zellen):
PHP-Code:
Sub Speichern()
'
' Speichern Makro
'
'
Rows("17:17").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Rows("17:17").Select
Selection.RowHeight = 30
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Range("B17:I17").Select
Range("I17").Activate
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
Range("H17:I17").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorDark1
.TintAndShade = -0.149998474074526
.PatternTintAndShade = 0
End With
Range("B15:I16").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlMedium
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlMedium
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlMedium
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlMedium
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
Range("D6:D7").Select
Selection.Copy
Range("B17").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("E6:E7").Select
Application.CutCopyMode = False
Selection.Copy
Range("C17").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("D10:D11").Select
Application.CutCopyMode = False
Selection.Copy
Range("D17").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("E10:E11").Select
Application.CutCopyMode = False
Selection.Copy
Range("E17").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("G6:G7").Select
Application.CutCopyMode = False
Selection.Copy
Range("F17").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("G10:G11").Select
Application.CutCopyMode = False
Selection.Copy
Range("G17").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("D6:D7").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("G6:G7").Select
Selection.ClearContents
Range("D10:D11").Select
Selection.ClearContents
Range("G10:G11").Select
Selection.ClearContents
Range("B17:G17").Select
With Selection.Font
.ColorIndex = xlAutomatic
.TintAndShade = 0
End With
Selection.Font.Size = 12
With Selection
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
End Sub
![[-]](https://www.clever-excel-forum.de/images/collapse.png)