ich würde gern in eine Tabelle per Button eine Zeile einfügen, wenn ich eine Zelle in der Zeile darüber oder darunter per Klick markiere.
Ich habe dies bisher hiermit versucht:
Code:
Sub AddRows() ActiveSheet.Unprotect Password:="Test" Application.ScreenUpdating = False Selection.EntireRow.Insert Shift:=xlDown ' ACHTUNG: Das With darf nicht 1 drüber, da sich durch das Insert die Selection ändert With Selection.EntireRow .Offset(-1, 0).Resize(1).Copy .PasteSpecial Paste:=xlPasteFormulas End With Application.ScreenUpdating = True If [d2].Value = "Free" Then Exit Sub ActiveSheet.Protect Password:="Test" End Sub
Funktioniert soweit gut, nur wird die bedingte Formatierung nicht übernommen. :(
Wie muss ich das Script ergänzen, damit das auch geht?
es ist doch völlig egal, an welcher Stelle, innerhalb einer Liste, eine bestimmte Zeile steht. Wenn das bei dir nicht so ist, hast du etwas falsch gemacht.
Hinweis: wenn man am Ende einer Liste eine neue Zeile anfügt, werden in aller Regel Formeln und Formate übernommen.
Zitat aus der Excel-Hilfe: Wenn Sie neue Zeilen mit Daten am Ende einer Liste hinzufügen, werden von Excel auf die neuen Zeilen konsistente Formatierungen und Formeln übertragen. Damit ein Format erweitert wird, müssen drei von fünf vorangegangenen Zellen dasselbe Format verwenden. Damit eine Formel erweitert wird, müssen alle vorangegangenen Formeln konsistent sein.
Viele Grüße Klaus-Dieter Der Erfolg hat viele Väter, der Misserfolg ist ein Waisenkind Richard Cobden
28.12.2021, 11:13 (Dieser Beitrag wurde zuletzt bearbeitet: 28.12.2021, 11:14 von ItsME.)
Hi Klaus-Dieter,
Da je Sheet 2 abgetrennte Bereiche für die Bearbeitung zu sehen sind, ist es wichtig, nur dort eine neue Zeile einfügen zu können, wo der Mauszeiger hingeklickt hat. ;)
Dem entsprechend ist nicht möglich, am Ende eine Zeile einzufügen, da diese dann nicht in einer Berechnung einbezogen werden würde.
Ich sitze bereits einige Wochen an der gesamten Mappe und muss auf einige Dinge Rücksicht nehmen, die mir vorgegeben sind. Sie ist nun fast fertig... bis auf das...
Das genannte Script funktioniert fast perfekt, es übernimmt nur keine bedingte Formatierung, welche jedoch wichtig ist.
Bin also für jeden Tip dankbar, der genau dieses Problem löst. ;)
ich meine nicht das Script, sondern den Aufbau deiner Datei. Wenn du hier mal eine Beispieldatei hochlädst kann man konstruktive Vorschläge machen, so geht das nicht.
Viele Grüße Klaus-Dieter Der Erfolg hat viele Väter, der Misserfolg ist ein Waisenkind Richard Cobden
28.12.2021, 11:50 (Dieser Beitrag wurde zuletzt bearbeitet: 28.12.2021, 11:51 von Klaus-Dieter.)
Hallo,
ich bin jetzt nicht sicher, ob du mich nicht verstehst, oder ob du mich nicht verstehen willst.
Wenn es erforderlich ist, Zeilen mit bestimmten Daten in bestimmte Zeilen zu schreiben, ist der Aufbau der Datei falsch. Was ist denn, wenn jemand auf die Idee kommt, die Liste zu sortieren?
Lade deine Datei mal hoch, dann kann man aufzeigen, wie es richtig wäre. Es ist Sinnlos eine verkorkste Datei mit Makros bearbeitbar zu machen. Hallo,
Zitat:das mag sein, kann aber nicht geändert werden.
sagt wer?
Viele Grüße Klaus-Dieter Der Erfolg hat viele Väter, der Misserfolg ist ein Waisenkind Richard Cobden
das ist ja noch schlimmer, als ich befürchtet habe. Das gehört alles auf ein Tabellenblatt. Die EDV ist dazu da, komplizierte Dinge zu vereinfachen. Im Fall deiner Datei wird der umgedrehte Weg beschritten.
Viele Grüße Klaus-Dieter Der Erfolg hat viele Väter, der Misserfolg ist ein Waisenkind Richard Cobden
