Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.10.2025 15:55:14
wenn zwei Werte aus Liste übereinstimmen, dann wahr
14.10.2025 14:57:29
Wenn Datum in Ferienzeit dann Name angeben
14.10.2025 09:39:44
VBA - Excel speichern und schließen (Laufzeitfehler 91)
13.10.2025 19:31:31
VBA Formel mit Bezug auf Überschrift anstatt Spalte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
488to492
488to492
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilen einfügen

Forumthread: Zeilen einfügen

Zeilen einfügen
23.09.2004 17:05:41
Micha
Folgendes Problem:
Ich habe eine Tabelle mit formatierten Zellen und Rahmen. Die letzten beiden Zeilen sollen immer frei bleiben, sprich wenn ein neuer Eintrag in der vorletzten Zeile erfolgt, soll unterhalb eine neue Zeile (formatiert mit Rahen wie die restlichte Tabelle) eingefügt werden.
Die Zeile einfügen per Makro ist auch nicht das Problem, solange in der Tabelle keine Zeilen entfernt oder in anderes Tabellenblatt verschoben werden. Dann klappt es nicht mehr... hat da jemand eine Lösung parat.
Vielen Dank
Micha
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilen einfügen
24.09.2004 17:51:33
Micha
Hab nun doch selbst eine Lösung gefunden. Wem's interessiert:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then     'Ausführung bei Änderung in Spalte 2
Dim Zeile_A As Long
Dim Zeile_B As Integer
With ActiveSheet     'Erste Zeile ohne Rahmen ermittlen
Zeile_A = 1
Do
Zeile_A = Zeile_A + 1
If Cells(Zeile_A, 1).Borders(xlBottom).LineStyle <> xlContinuous Then
Exit Do
End If
Loop While Zeile_A < 65535
End With
Zeile_B = Target.Row
If Zeile_A = Zeile_B + 2 Then     'wenn benutzte Zeile = vorletzte Zeile ist
If Cells(Zeile_B, 1).Value = "" Then     'kein Eintrag
Exit Sub
Else
Worksheets("Hilfsmittel").Rows(Zeile_B + 1).Insert     'neue Zeile einfügen
End If
End If
End If
End Sub

Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige