Brauche nochmal Hilfe bei finalen Problemen

Hallo und lieben Silvestergruß an ALLE...
Ich habe da, wie bereits einige hier gelesen haben, ein nettes Kassenbuch erstellt, welches am 02.01. funktionieren soll. Nun hab ich bereits ordentlich Hilfe hier aus dem Forum bekommen und hab da nun zwei finale Probleme, bevor das Kassenbuch in Betrieb gehen kann.
1. Das Makro (von P. Feustel erstellt... Danke nochmal dafür) zum einfügen von einer neuen Zeile wirfst mir einen Fehler aus "(Laufzeitfehler 1004) Teile eines Arrays können nicht geändert werden" und nimmt die ganzen Einstellungen vor den Rahmen nicht mit. Dieser Fehler tritt auf, seitdem ich die Formel in Spalte L bis nach unten kopiert habe. Bei der Erstellung vom netten Peter war die Formel nur in den ersten 5 Zeilen von L vorhanden.
Kann mir da vielleicht zum Finale nochmal jemand helfen? BITTE BITTE
2. Ich habe unter den Eingabebereich (ich meine den Bereich von lfd. Nummer 1-100) den Bereich für die Addierung aller Zahlen. Zudem habe ich weiter unten in dem Bereich C111:K148 noch einen Auswertungsbereich. Mein Problem dabei ist, wenn ich die Schaltfläche "Neue Zeile einfügen" verwende, erweitert sich der Eingabebereich und somit auch der Bereich für den Addierungsbereich und dem Auswertungsbereich. Leider erweitern sich die ganzen Berechnungsformeln nicht automatisch um eine weitere Zeile, wenn ich eine Neue eingebe. Ich meine die Addierungs- und Auswertungsformeln müssten irgendwie automatisch erkennen, da sie eine weitere Zeile mitaddieren muss.
Wie kann ich das ändern? Kann mir da vielleicht auch jemand helfen? BITTE BITTE BITTE.
Hier meine Datei: https://www.herber.de/bbs/user/39288.xls
Ich hoffe noch einmal Hilfe zu bekommen und wünsche schon mal einen guten, gesunden Rutsch ins neue Jahr
Lieben Gruß
Dennis

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Dannis,
ich habe dir hier mal den Code etwas abgeändert.
Wenn ich es richtig verstanden habe sollte es jetzt funtionieren wenn du den Code aus Modul1 löscht und diesen hier in Modul1 einfügst.
Option Explicit
Public lEinfZeile As Long ' die Zeile, vor der eingefügt werden soll
'
' Ich habe oben eine zweite Schaltfläche die ich gerne mit einem Makro belegen
' möchte, das mir zwischen den Endsummen (also Gesamt Ust.) usw. und den
' Eingabefeldern immer pro Klick eine neue Zeile einfügt, die Nummerierung
' fortführt (links) und alle Formatierungen ebenfalls übernimmt.
'
' Dazu wird zuerst einmalig die Zeile, die in der Spalte I den Text
' "Summe Ust. Monat :" enthält gesucht. Wird der Text gefunden, wird die
' Nummer dieser Zeile in der Public-Variablen lEinfZeile gespeichert.
' Diese Zeile ist für die nachfolgenden Klicks die Einfüge-Zeile.
' Wird der Text nicht gefunden, wird das Makro mit einem Hinweis abgebrochen.
'
Public


Sub ZeileEinfuegen()
Dim WkSh     As Worksheet
Dim rZelle   As Range
Dim sText    As String: sText = "Summe Ust. Monat :"
Set WkSh = Worksheets(ActiveSheet.Name)
'    in Spalte I nach dem Text "Summe Ust. Monat :" suchen
If lEinfZeile = 0 Then
With WkSh.Range("I:I")
Set rZelle = .Find(sText, LookIn:=xlValues, Lookat:=xlWhole)
If Not rZelle Is Nothing Then
lEinfZeile = rZelle.Row
Else
MsgBox "Die gesuchte Zeile, mit Inhalt  """ & sText & _
"""  konnte nicht gefunden werden - Abbruch.", _
48, "   Hinweis für " & Application.UserName
Exit Sub
End If
End With
End If
'   eine Zeile einfügen und die Formeln und Formate der vorherigen Zeile übernehmen
Range("L6:L" & lEinfZeile - 1).ClearContents
WkSh.Rows(lEinfZeile).Insert Shift:=xlDown
WkSh.Cells(lEinfZeile, 2).Value = CInt(WkSh.Cells(lEinfZeile - 1, 2).Value) + 1
WkSh.Range("C" & lEinfZeile - 1 & ":M" & lEinfZeile - 1).Copy
WkSh.Range("C" & lEinfZeile & ":M" & lEinfZeile).PasteSpecial _
Paste:=xlFormulas, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
WkSh.Range("C" & lEinfZeile - 1 & ":M" & lEinfZeile - 1).Copy
WkSh.Range("C" & lEinfZeile & ":M" & lEinfZeile).PasteSpecial _
Paste:=xlFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
With WkSh.Range("C" & lEinfZeile - 1 & ":M" & lEinfZeile - 1).Borders(xlEdgeBottom)
.LineStyle = xlNone
End With
With Range("G" & lEinfZeile - 1 & ":H" & lEinfZeile - 1).Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Range("L5").AutoFill Destination:=Range("L5:L" & lEinfZeile), Type:=xlFillDefault
WkSh.Range("C" & lEinfZeile).Select
End Sub

ich hoffe es klappt.Gruß Chris
P.s guten Rutsch !

Beliebteste Forumthreads (12 Monate)

Brauche nochmal Hilfe bei finalen Problemen

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread