Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.10.2025 10:29:26
Userform Multipage - Page auswählen
19.10.2025 21:57:06
Diagrammpunkte in unterschiedlichen Farben je nach Wert
19.10.2025 18:21:56
Prüfen, ob Bild geladen wurde
19.10.2025 15:24:14
VBA -Drucken nur, wenn ich mit bestimmtem WLAN verbunden bin
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
1992to1996
1992to1996
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Nach Eingabe von Text, drunter neue Zeile hinzufügen

Forumthread: VBA Nach Eingabe von Text, drunter neue Zeile hinzufügen

VBA Nach Eingabe von Text, drunter neue Zeile hinzufügen
28.10.2024 10:00:24
Chuchu
Hallo zusammen,

ich würde gerne in eine beliebige Zeil einen Wert eingeben, mit enter bestätigen und dass in der Zeile darunter eine neue Zeile hinzugefügt wird.

Hintergrund dazu ist, dass ich mehrere Tabellen untereinander habe und den Abstand zueinander gleich halten will und dass mir die anderen Tabellen nicht überschrieben werden.

In VBA am besten.

Bitte um schnelle Hilfe...

Ich bedanke mich schon mal im Vorras. :)
Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Nach Eingabe von Text, drunter neue Zeile hinzufügen
28.10.2024 10:22:20
GerdL
Moin C. 
Private Sub Worksheet_Change(ByVal Target As Range)



    With Target

        If .CountLarge = 1 Then

            If .Value > "" Then

                If MsgBox("Neue Zeile?", vbYesNo, "Leerzeile darunter") = vbYes Then

                    .Offset(1).Insert shift:=xlDown

                End If

            End If

        End If

    End With



End Sub

Gruß Gerd
Anzeige
AW: VBA Nach Eingabe von Text, drunter neue Zeile hinzufügen
28.10.2024 11:56:22
Yal
Hallo Chu^2,

versuche so: 

Private Sub Worksheet_Change(ByVal Target As Range)

Dim Lo1 As ListObject

Dim Lo2 As ListObject

Dim Abstand As Long



Const cZielAbsatand = 7



    With Workbooks("173194.xlsm").Worksheets(1) 'anpassen

        Set Lo1 = .ListObjects("QR_Stahl_235JRH")

        Set Lo2 = .ListObjects("QR_Stahl_355J2H")

        Abstand = Lo1.DataBodyRange.Row + Lo1.DataBodyRange.Rows.Count - Lo2.DataBodyRange.Row

        Application.EnableEvents = False

        Do While Abstand > cZielAbsatand

            If Abstand  cZielAbsatand Then 'sind zu wenige Zeilen, einfügen

                Lo2.DataBodyRange.Offset(-2).Insert Shift:=xlDown

            Else 'sonst (=zuviele) löschen

                Lo2.DataBodyRange.Offset(-2).Delete Shift:=xlUp

            End If

            Abstand = Lo1.DataBodyRange.Row + Lo1.DataBodyRange.Rows.Count - Lo2.DataBodyRange.Row

        Loop

        Application.EnableEvents = True

    End With

End Sub


VG
Yal
Anzeige
AW: VBA Nach Eingabe von Text, drunter neue Zeile hinzufügen
28.10.2024 14:07:40
Chuchu
Hallo, leider hat es nicht geklappt.

Es loopt die ganze zeit und stürzt ab
AW: VBA Nach Eingabe von Text, drunter neue Zeile hinzufügen
28.10.2024 16:47:15
schauan
Hallöchen,

also, um nur den Teil des Einfügens darzustellen, das würde so gehen. 

'Pruefen, ob in einem Listobjekt selektiert ist

If Not Selection.ListObject Is Nothing Then

'Mit dem Listobjekt

With Selection.ListObject

   'Zeile darunter einfuegen

   .ListRows.Add Selection.Row - .HeaderRowRange.Row + 1

'Emde Mit dem Listobjekt

End With

'Ende Pruefen, ob in einem Listobjekt selektiert ist

End If
Anzeige
AW: VBA Nach Eingabe von Text, drunter neue Zeile hinzufügen
28.10.2024 12:25:40
ralf_b
https://learn.microsoft.com/de-de/office/vba/api/excel.listrows.add

schau dir mal den Parameter "alwaysinsert" an.

vielleicht liege ich hier ja falsch, aber du willst doch an/in eine intelligente Tabelle eine Zeile einfügen. Dann nutze auch deren Objekte.
Anzeige
AW: VBA Nach Eingabe von Text, drunter neue Zeile hinzufügen
28.10.2024 10:43:13
Onur
Solltest du mal testen...
AW: VBA Nach Eingabe von Text, drunter neue Zeile hinzufügen
28.10.2024 11:33:57
Chuchu
Also das hat nicht funktioniert. danke erstmal für den Vorschlag.

Hier die Tabelle
https://www.herber.de/bbs/user/173194.xlsm


wenn ich in der ersten Tabelle einen neuen Querschnitt eines Rohres eingebe.....sortiert sich dieser ein und ich möchte aber zu der nächsten Tabelle unten den gleichen Abstand beibehalten, sodass mir die Tabelle nicht mit neuen Zeilen der ersten Tabelle überschrieben wird.

vielen dank
Anzeige
AW: VBA Nach Eingabe von Text, drunter neue Zeile hinzufügen
28.10.2024 11:59:11
MCO
Hey, Gerd!

Du musst es in das Worksheet_Change_ereignis einfügen, wo schon die ganzen Sortierungen stehen.

Aber abgesehen davon:
-Rückfrage gelöscht
-Prüfung erweitert (schreibe in A, B muss leer sein), ansonsten kommt es jedesmal wieder.
-Ereignisse zeitweise abgeschaltet (endlos-Schleife droht!)
-Einfügen von Zelle auf Zeile erweitert (Fehler abgefangen)

Vielleicht wäre es auch ganz ratsam entweder zu sortieren oder eine Zeile einzufügen.
Jetzt ist es nämlich so, dass beim Eintrag in Spalte A der Artikel schon einsortiert wird.....

Also bei der sortieren-Funktion evtl noch ein exit sub einbauen

Sollte klappen: 

    Application.EnableEvents = False



    With Target

        If .CountLarge = 1 And .Column = 1 Then

            If .Value > "" And .Offset(0, 1) = "" Then

                .Offset(1).EntireRow.Insert shift:=xlDown

                .exit sub

            End If

        End If

    End With

    

    Application.EnableEvents = True


Gruß, MCO
Anzeige
;

Forumthreads zu verwandten Themen

Zeilenumbruch in MsgBox?
Volker Croll
Hallo Daniel,eine der Moeglichkeiten ist"Sollen hier ein" & Chr(10) _
"Zeilenumbruch erfolgen ?"Gruss Volker
16.04.2002 11:06:35
Thread-ID: 113650
4 Beiträge
VBA Zeilenumbrüch in Zelle auslesen
Georg

Liebe Excellenzen,
ich habe eine aus drei Spalten verbundene Zelle die eine feste Größe hat (Breite und Höhe). In diese Zelle schreibe ich via VBA unterschiedliche Texte. Normalerweise hat die Zelle eine Formatierung von Arial 24. Dann sind 2 Zeilen lesbar bei meiner Zeilenhöhe von 62.
...
17.09.2011 12:03:41
Thread-ID: 1230297
3 Beiträge
mit VBA einen Zeilenumbruch einfügen
WalterK

Hallo,
Per Schaltfläche möchte ich ein Makro starten, das in jeder beschriebenen Zelle am Ende des Zellinhaltes zusätzlich noch einen Zeilenumbruch einfügt, außer es ist am Ende des Zellinhaltes bereits einer vorhanden.
Es soll im Bereich D5:D&bis zur letzten belegten Zelle funktio...
26.06.2012 10:42:03
Thread-ID: 1268821
3 Beiträge
Zeilenumbruch in MsgBox
Matthias

Hallo Excelfreunde
In verschiedenen Excelversionen habe ich feststellen müssen, das sich die Darstellung des Textes einer MsgBox unterschiedlich verhält!
In der Version 2003 wird der Text einzeilig dargestellt. (ist auch so gewollt)
In XL2000 und XL2007 wird leider ein Zeilenumbruch...
28.07.2013 10:51:26
Thread-ID: 1324531
5 Beiträge
Anzeige
Tabelle in VBA erweitern (neue Zeile am Ende)
Rainer

Hallo,
ich möchte eine Tabelle in mehreren Schritten so füllen, dass in jedem Schritt jeweils hinter der letzten bereits gefüllten Zeile weitergemacht wird. Solange keine Zeilen gelöscht werden, klappt das mit UsedRange ganz gut, aber sobald Zeilen gelöscht werden liefert UsedRange immer no...
16.01.2014 14:41:00
Thread-ID: 1345480
2 Beiträge
Anzeige
Mehrspaltig in Textbox und Enter für neue Zeile
Vulferin

Hallo Zusammen
Ich habe ene Textbox
Wenn ich einen Text reinkopieren kann ich diesen durch neue Zeilen Gliedern z.B
1. Lila Bogen
2. Roter Bogen.
3 Gelber Bogen
Wenn ich das aber alles per Handschreibe geht das nur so
1. Lila Bogen 2. Roter Bogen 3. Gelber Bogen
...
21.09.2014 07:10:31
Thread-ID: 1382708
2 Beiträge
Anzeige
VBA Dynamische Tabelle neue Zeile generieren
Spenski

Hallo
Ich habe eine Dynamische Tabelle "Tabelle1"
Ich möchte, das per Button die Tabelle um eine Zeile erweitert wird. geht sowas?
danke fürs lesen
christian
18.05.2015 20:31:20
Thread-ID: 1426692
3 Beiträge
Anzeige
VBA - Messagebox - Eingabeformular
Neo

Hallo zusammen,
ich bin gestern in die Tiefen der VBA (mittels Youtube u. Google) erstmals eingestiegen, um die Produktionsdatenerfassung über ein Eingabeformular zu standardisieren.
Soweit prima, nun möchte ich jedoch noch die Fehleranfälligkeit reduzieren.
(hierzu siehe mein Einga...
14.08.2015 13:59:04
Thread-ID: 1442348
3 Beiträge
zu viele Zeichen in VBA-Zeilenumbruch im Makrocode
braun

Sheets(1).Select
startzeile = 2
Spalte = 2
startzeile2 = 2
Sheets(1).Select
Letzte_Zeile = Range(Cells(60000, Spalte), Cells(60000, Spalte)).End(xlUp).Row
For i = startzeile To Letzte_Zeile
If Left(Sheets(1).Cells(i, Spalte), 7) = "ABCDEFG" Or Left(Sheets(1).Cells(i,...
26.08.2015 13:43:05
Thread-ID: 1444522
20 Beiträge
VBA Msgbox mit 2 Leerzeilen, richtig?
Dieter(Drummer)

Hi VBA Spezialisten,
ist die VBA Schreibweise richtig oder geht es auch kürzer, wenn ich 2 Leerzeilen in der Msgbox haben möchte?
Mein Testmakro, dass (auch) funktioniert:
Sub ZweiLeerzeilen() If MsgBox("Vor 2 Leerzeilen" & vbCrLf & "" & vbCrLf & "Nach 2 Leerzeilen...
10.11.2015 15:51:49
Thread-ID: 1457492
3 Beiträge
VBA HTML Mail Zeilenumbruch verhindern
Florian

Hallo,
ich komme mit meinen HTML/VBA Kenntnissen einfach nicht weiter.
Mir geht es darum, dass ich aus einem Makro einen automatisierten Mailversand starten möchte. Beim HTML Text komme ich derzeit bei folgendem Problem nicht weiter.
Unten im HTML Code möchte ich, dass yyy in der se...
07.01.2016 14:44:34
Thread-ID: 1467634
8 Beiträge
VBA-Automatisch neue leere Zeile erstellen
John

Hallo Community,
ich brauche dringend Hilfe bei folgendem Problem. Ich habe eine Tabelle mit Eingabefeldern in Excel erstellt. Ich möchte nun das nur die ersten drei Eingabefelder sichtbar sind und wenn die ausgefüllt sind und mit Enter bestätigt wird sollen automatisch darunter drei neue l...
14.07.2016 19:35:01
Thread-ID: 1504573
8 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
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