Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 23:30:16
Anzahl Jahre Zählen aus Datumreihe
16.04.2024 19:22:16
Von exceltabelle in word per steuerelement temarker
16.04.2024 18:50:53
Fehlermeldung bei Code - Excel speichern mit Bez. aus Zelle
16.04.2024 17:18:01
Projektplan-Tabelle oder Gantt ohne Balken
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
488to492
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige