Office - Word, Excel und Co. 9.744 Themen, 41.408 Beiträge

Verfolgung starten Optionen

EXCEL Zeile automatisch einfügen

Vanesilv / 28 Antworten / Flachansicht Nickles

Hi
Nochmals zum mein Problem

Ich habe eine Artikelliste die Dauernd erweitert wird
In dieser Liste sind Verknüpfungen zu einer anderen Liste
Z.B. In A1 gebe ich die Artikelnummer ein
In A2 erscheint der Artikel der mittels SVERWEIS erzeugt wird bzw. Zusätzlich weitere Zellen in denen weitre Daten eingetragen werden
Nun möchte ich das wenn ich in der Letzen Zeile anfange zu schreiben oder fertig bin
Eine neue Zeile mit allen Formeln und den Rahmenlinie der Vorhergehende Zeile ohne den eingaben die ich gemacht habe eingefügt wird
Wer kann mir helfen

Gruß Alfonso

bei Antwort benachrichtigen
Hi, wie wäre es denn, wenn Du zu meinen Lösungsvorschlägen aus dem ersten ... Fetzo1
Hi Leider kann ich mit dem was du mir geschrieben hast nicht anfangen Da ich ... Vanesilv
Hi, dann teile doch mal Deine Tabellenstruktur mit. Dann kann man auch ... Fetzo1
Hi Fetzo Zu meinen ersten Thread war ein Fehler von mir habe nicht mehr ... Vanesilv
Hallo Alfonso, hier einmal ein Beispielmakro, bitte mit einer Kopie deiner ... hddiesel
HI Dein Code scheint zu Funktionieren bis auf eine Kleinigkeit Wenn ich in ... Vanesilv
Hallo Alfonso, hast du SuchSpalte 5 angepaßt auf eine Formel in der ... hddiesel
Hallo Alfonso, Habe bei der Korrektur das Zeitlimit für die Bearbeitung ... hddiesel
HI Dein Makro Funktioniert aber das Problem besteht immer noch Die ... Vanesilv
HI Melde mich Morgen im laufe des Tages wieder Gehe jetzt Schlafen muss ... Vanesilv
Hallo Alfonso, In der Musterzeile , die Zelle in Spalte A Sperren und die ... hddiesel
HI Also dein Code Funktionier einwandfrei Hätte da ein Vorschlag damit in ... Vanesilv
Hallo Alfonso, Musterzeile geschützt, in der neuen Eingabezeile, den ... hddiesel
HI hddiesel Großen Dank für dieses Programm Das Programm funktioniert ganz ... Vanesilv
Hallo Alfonso, hier die gewünschte Erweiterung, 10 Zeilen, statt einer ... hddiesel
HI hddiesel Echt spitze Also kaum zu glauben das so schnell ging Ich bedanke ... Vanesilv
Hallo Alfonso, es besteht noch die Möglichkeit, in einer Tabelle eine ... hddiesel
Hi Danke für den Zusätzlichen Tipp werde sehen ob ich in einsetzen kann ... Vanesilv
HI hddiesel Benötigen nochmals deine hilfe zu diesem Thema Habe dein Makro ... Vanesilv
Hallo Alfonso, Teste einmal folgendes, ist nur ein Beispiel C:D:E musst du ... hddiesel
Hi hddiesel habe deinen Tipp ausprobiert leider ohne erfolg gruß Alfonso Vanesilv
Hallo Alfonso, ein kurzes Beispiel: A EinzelSpalte in Zeile entsperren B ... hddiesel
hallo hddiesel habe es gemacht wie du es beschriebe hast aber irgendwie ... Vanesilv
Hallo Alfonso, füge einmal dein Makro hier ein und eine Angabe der ... hddiesel
Hi hddiesel Tut mir leit das ich dir damit Probleme bereite also ich füge ... Vanesilv
hddiesel Vanesilv „Hi hddiesel Tut mir leit das ich dir damit Probleme bereite also ich füge den...“
Optionen

Hallo Alfonso,

Sorry, hatte sich ein Denkfehler eingeschlichen, so konnte das nicht gehen.

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim MaxDatenZeile As Integer
Dim SuchSpalte As Integer
Dim i As Integer
SuchSpalte = 14
MaxDatenZeile = ActiveSheet.Cells(Rows.Count, (SuchSpalte)).End(xlUp).Row
MaxDatenZeile = MaxDatenZeile - 1
If Range("A" & (MaxDatenZeile)) > "" And Range("A" & (MaxDatenZeile) + 1) = "" Then
On Error Resume Next
ActiveSheet.Unprotect "passwort"
For i = 1 To 10
MaxDatenZeile = MaxDatenZeile + 1
Rows((MaxDatenZeile) & ":" & (MaxDatenZeile)).Select
Selection.Copy
Selection.Insert Shift:=xlDown
Application.CutCopyMode = False
Selection.Interior.ColorIndex = xlNone
Range("A" & (MaxDatenZeile)).Locked = False
Range("B" & (MaxDatenZeile)).Locked = False
Range("C" & (MaxDatenZeile), "J" & (MaxDatenZeile)).Locked = False
Range("K" & (MaxDatenZeile), "L" & (MaxDatenZeile)).Locked = False
Range("M" & (MaxDatenZeile)).Locked = False
Range("B" & (MaxDatenZeile) - 10).Select
Next i
On Error Resume Next
ActiveSheet.Protect "passwort", DrawingObjects:=True, Contents:=True, Scenarios:=True
Else
End If
End Sub

Windows 10 Pro 64-Bit, 22H2: MS Office Pro Plus 2016 32-Bit: Mein Motto: Leben und leben lassen: Gruss Karl
bei Antwort benachrichtigen
Hi hddiesel habe den Neuen Code übernommen und es Funktioniert gut Ich ... Vanesilv
Hallo Alfonso, Danke für die Info! Wünsche dir ein schönes Wochenende! hddiesel