Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
25.04.2024 21:06:05
Duplikate entfernen
25.04.2024 18:41:19
vba Zeilen duplizieren ab aktiver Zeile bis letzte Zeile
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1524to1528
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
1524to1528
1524to1528
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Neue Zeile einfügen

Neue Zeile einfügen
15.11.2016 02:45:46
kühli
Hallo Leute,
ich verzweifle schon eine geraume Zeit an einer Aufgabe.
Ich habe eine Tabelle erstellt wo im Bereich A16:A47 Text eigetragen werden kann.
Folgendes Problem:
Wenn die Zeile 47 erreicht wird soll entweder automatisch oder per Kopfdruck(was einfacher ist)zwischen Zeile 47 und 48 eine neue Zeile eingefügt werden(Leer mit den Eigenschaften von Zeile 47(A:I verbunden und einen Rahmen darum).
Achso habe ich fast vergessen die Zeilen wo Text drinnen steht dürfen nicht Überschrieben werden.
Ich habe eine Beispieldatei hochgeladen.
Ich würde mich über eure Hilfe sehr freuen.
Vielen Dank.
MfG
Kühli
https://www.herber.de/bbs/user/109417.xlsm

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Neue Zeile einfügen
15.11.2016 03:52:02
Werner
Hallo Kühle,
schau dir das mal an. Der Code wirkt sich ab Spalte 16 aus.
Wenn in deiner verbundenen Zelle ab Zeile 47 ein Wert vorhanden ist, dann wird durch Doppelklick auf die verbundene Zelle direkt darunter eine neue, leere verbundene Zelle eingefügt.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 1 And Target.Row > 46 Then
If Cells(Target.Row, 1)  "" Then
Cancel = True
Target.EntireRow.Copy
Cells(Target.Row + 1, 1).EntireRow.Insert
Range(Cells(Target.Row + 1, 1), Cells(Target.Row + 1, 9)).UnMerge
Cells(Target.Row + 1, 1).ClearContents
Range(Cells(Target.Row + 1, 1), Cells(Target.Row + 1, 9)).Merge
Application.CutCopyMode = False
End If
End If
End Sub
Code gehört ins Codemodul des Arbeitsblattes, auf dem er sich auswirken soll. Rechtsklick auf den entsprechenden Tebellenblattreiter - Code anzeigen - Code rechts ins Codefenster kopieren.
Deine Datei konnte ich mir leider nicht ansehen, kann derzeit nichts herunterladen.
Gruß Werner
Anzeige
AW: Neue Zeile einfügen
15.11.2016 05:05:09
kühli
Hallo Werner erst einmal danke für die schnelle Antwort. I
ch werde mir das heute abend mal ansehen.
AW: Neue Zeile einfügen
15.11.2016 06:00:29
Hajo_Zi
warum offen? Soll jemand vorbei kommen zum Testen?

AW: Neue Zeile einfügen
15.11.2016 18:16:25
kühli
Hallo Werner,
Der Code funktioiert super.
Nochmals danke
MfG
Kühli
AW: Gerne u. Danke für die Rückmeldung. o.w.T.
15.11.2016 18:44:30
Werner

320 Forumthreads zu ähnlichen Themen

VBA- Autofilter - leere Zeilen löschen
Asits

Hallo,
ich habe in der Spalte "A" Kundennummern stehen.
Ich will per Makro / Autofilter die kompletten Zeilen
derjehnigen Kunden löschen, die noch keine Kundennummer haben.
wie mache ich das ?
Vielen Dank vorab!
17.09.2008 08:48:00
Thread-ID: 1010225
5 Beiträge
Anzeige
EXCEL-VBA: Zeilen einfügen, wenn
Brinkmeyer

Hallo,
ich habe das Problem eines sehr großen Formulars. Ich möchte gern, dass Zeilen nur angezeigt werden, wenn eine bestimmte Zelle einen Inhalt hat. - So kann das Formular bei leeren Zellen kleiner gehalten werden...
Hat jemand eine Idee?
06.08.2009 19:27:26
Thread-ID: 1094141
2 Beiträge
Zeile für Summe einfügen m. VBA
Lorenz

Hallo VBA-Profis!
Leider wurde ich trotz Recherche nicht mehr fündig. Dieses "mein" Problem wurde in diesem Forum schon behandelt (finde es aber nicht mehr)!
Folgende Aufgabe (Bitte): In Spalte "A" stehen Belegnummern (od ähnliches), es soll nach Ende einer Produktgruppe eine Leezeile e...
07.08.2009 20:12:41
Thread-ID: 1094336
3 Beiträge
Anzeige
leere Zeile mit Text und Formel dynamisch einfügen
christian

Hallo zusammen,
ich habe folgendes Problem das ich mit meinen wenigen VBA Kenntnissen nicht lösen kann.
Ich habe eine Tabelle mit n Zeilen.
- Nach jeweils ca. 53 Zeilen sollte eine Zeile mit dem Text "Zwischentotal " (Spalte C) und in die Summen-Formel für die 53 Zeilen (Spalte H)...
28.11.2009 13:36:30
Thread-ID: 1120637
3 Beiträge
Einfügen Zellen VBA
Hugo

Hallo
Möchte die folgende Formel so anpassen, dass die einzufügende Zellenmenge über eine Variable bezogen wird.
ActiveCell.Offset(0, 0).Range("A1:E1").Insert Shift:=xlDown
DH:
Ich bestimme über folgende Formel die Spaltenzahl, ab welcher die Zellen stehen bleiben müssen.
...
12.12.2009 15:34:31
Thread-ID: 1123484
3 Beiträge
Mit Makro eine neue Zeile einfügen
Richard

Hallo zusammen,
ich wollte über Makro eine neue Zeile einfügen lassen welche dann aber auch alle Formeln
der darüber liegenden Zeile übernimmt. Diese Funktion sollte dann aber auch immer wieder benutzt
werden können so das immer eine neue Zeile entsteht.
Könnt ihr mir vielleich...
21.01.2010 13:10:01
Thread-ID: 1131758
4 Beiträge
makro (NEUE Zeile)immer a.Ende
Penelope

Hallo,
hoffe sehr auf Hilfe . Habe ein Makro, das mir eine neue Zeile erzeugt mit Formaten und Formeln aber leider immer an derselben Stelle. Wie könnte ich es schreiben, dass es immer eine neue Zeile unten anfügt , unter der letzten neuen Zeile? Vielleicht eine Schleife, aber wie verbinden?...
10.04.2002 22:38:34
Thread-ID: 112272
11 Beiträge
checkbox in leere zeile einfügen
tatü

Hallo Forum.
Ich möchte in eine Tabelle unter die letzte beschriebene Zeile in der "B" Spalte eine Checkbox einfügen.
Die Checkbox soll in Zeile "A" stehen.
Unten stehenden Code habe ich schon gefunden. Das Makro fügt aber immer in einer festen Zeile, hier die Zeile 6 eine neue Ze...
16.02.2010 19:15:43
Thread-ID: 1139028
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
4
1
1
2
5
2
2
3
10
3
1
2
3
4
2
5
2
5
2
1
4
2
2
9
16