Konflikt im VBA Code

Hallo nochmal,
ich schreibe wegen einer Frage von mir aus letztem Jahr, leider bin ich nicht mehr dazu gekommen vorher zu antworten :(
Und Eure antworten haben an sich auch funktioniert aber halt immernoch nur wenn ich den geposteten Code auskommentiere.
Hier der Beitrag:
Hallo liebe Excel Experten,
ich arbeite jetzt schon eine Weile an einer Tabelle und stoße nun mal wieder an meine Grenzen.. :/
Ich will ermöglichen dass man mit einem Button Zeilen hinzufügen kann und die Formeln übernommen werden.
Es wird eine neue Zeile eingefügt aber die Formel wird nicht übernommen.
Nur wenn ich einen anderen Code auskommentiere, funktioniert es.
Welcher im Modul 4 enthalten ist und dazu beiträgt, dass eine Zelle die gesperrt ist farblich markiert wird mithilfe bedingter Formatierung über das Tabellenblatt.
Und ich weiß weder warum das so ist noch wie ich das beheben kann.
Code zum Zellen einfügen:

Sub ZelleEinfügen()
Dim lngReihe As Long
lngReihe = ActiveCell.Row
If lngReihe > 1 Then
Rows(lngReihe + 1).Insert
'Rows(lngReihe).AutoFill Rows(lngReihe).Resize(2), xlFillFormats
Range("I" & lngReihe).AutoFill Range("I" & lngReihe).Resize(2), xlFillDefault
Range("J" & lngReihe).AutoFill Range("J" & lngReihe).Resize(2), xlFillDefault
Range("O" & lngReihe).AutoFill Range("O" & lngReihe).Resize(2), xlFillDefault
End If
End Sub

Code der auskommentiert werden muss ( Modul 4):

Function IstGesperrt(Optional Zelle As Range) As Boolean
If Zelle Is Nothing Then Set Zelle = Application.Caller
IstGesperrt = Zelle.Locked
End Function

Diese Funktion wird dann in Bedingter Formatierung aufgerufen.
Das hat an sich auch bestens geklappt...
Anbei auch noch mal die Excel Datei. Dabei geht es eigentlich nur um das Blatt Angebot u Rechnung.
https://www.herber.de/bbs/user/126074.xlsm
Ich bin über jede Hilfe überaus Dankbar!
Mit freundlichen Grüßen
Andre
Antwort:
Warum denn immer so lange Variablen-Namen?

Sub ZelleEinfügen()
Dim z As Long
z = ActiveCell.Row
If lngReihe > 1 Then
Rows(z + 1).Insert
Rows(z).Copy
Cells(z + 1,1).Select
ActiveSheet.Paste
Rows(z).Copy Cells(z + 1,1)
End If
End Sub

Beitrag: https://www.herber.de/forum/archiv/1660to1664/t1662747.htm
Datei: https://www.herber.de/bbs/user/126074.xlsm

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Piet,
entschuldige/entschuldigt bitte mir waren die fehlenden Details nicht bewusst.
Die neue Zeile soll immer unter der momentanen Zelle eingefügt werden und das Wichtige ist eben, dass die Formeln sofern vorhanden übernommen werden sollen.
Der Commandbutton befindet sich oben rechts auf Angebot u Rechnung (Schaltfläche 1).
Dort befindet sich auch der Code (Modul 2).
Die beiden Lösungen von Hajo und onur funktionieren genauso gut wie meine, aber in allen Fällen wird dann beim Ausführen auch eine Zeile unter der aktiven eingefügt, die Formeln werden jedoch nur mit kopiert wenn ich eben den folgenden Code (Modul 4) auskommentiere sonst nicht.

Function IstGesperrt(Optional Zelle As Range) As Boolean
If Zelle Is Nothing Then Set Zelle = Application.Caller
IstGesperrt = Zelle.Locked
End Function

Zum Thema "Aktive Zelle":
Das ist 1 von 3 Bestandteilen einer Funktion, bei der die ausgewählte Zelle farbig markiert werden soll, wenn diese nicht gesperrt ist und danach wieder die alte Formatierung übernehmen soll.
1. Bedingte Formatierung mit folgender Regel (und Einfärbung):
=UND(SPALTE()=SPALTE(AktiveZelle);ZEILE()=ZEILE(AktiveZelle);NICHT(IstGesperrt()))
(ist in der Datei zb in Zelle E9, der Bereich ist im Beispiel nicht ganz korrekt)
2. Der obige Code der auskommentiert werden muss.
3. Der Code der die aktive Zelle benennt
Genau verstehe ich offen gestanden diese Kombination selbst nicht, da ich diese auch nur kopiert habe.
Vielen Dank, dass du dich damit auseinandersetzen möchtest :)
Grüße Andre

Sub ZeileEinfügen() Dim z As Long z = ActiveCell.Row If z > 1 Then Rows(z).Copy Cells(z + 1, 1) 'Alle Werte ausser Formeln löschen For j = 1 To 15 '** den ersten IF Befehl löschen wenn "x" in Spalte K gelöscht werden soll!! If Cells(z + 1, j).Value "x" Then _ If Left(Cells(z + 1, j).Formula, 1) = "=" Then _ Else Cells(z + 1, j) = Empty Next j End If End Sub

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Konflikt im VBA Code

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

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread