Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1048to1052
1048to1052
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilen automatisch einfügen, wenn

Forumthread: Zeilen automatisch einfügen, wenn

Zeilen automatisch einfügen, wenn
14.02.2009 23:23:00
John
Hallo,
ich habe folgendes Problem.
ich erstelle gerade eine xlsDatei, in der Bestellungen eingegeben werden können. Die Anzahl der möglichen Bestellungen kann ich nicht abschätzen. Somit fällt die Option des einfachen DropDown.
In Spalte A werden die Bestellnummern eingegeben (A10 ist die erste Position), in Spalte AA wird ein Betrag angegeben, der mit Hilfe der Summenformel aus bestimmten Spalten in der entsprechenden Zeile ermittelt wird (AA10 enthält die erste Summe)
Wie muss ich den VBA - Befehl schreiben, dass bei Eingabe einer Bestellnummer in A10 automatisch eine neue Zeile eingefügt wird (also die neue Zeile ist dann A11). Die Summenformel in AA10, die die Summe für die Zeile 10 angibt, soll in die neu eingefügte Zeile A11 übernommen werden (die soll natürlich die Summe der Zeile 11 wiedergeben).
Wenn ich dann eine Bestellnummer in A11 eingebe, soll wieder eine neue Zeile eingefügt werden.
Ich danke schon mal für eure Hilfe
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Zeilen automatisch einfügen, wenn
14.02.2009 23:58:00
Josef
Hallo John,
am einfachsten geht das, wenn man genügend Zeilen sozusagen auf Vorrat anlegt und diese ausblendet.
Bei Bedarf blendet man dann die Zeilen wieder ein.
Du kannst deine Datei hochladen, dann schau ich mir das an.
Gruß Sepp

Anzeige
AW: Zeilen automatisch einfügen, wenn
15.02.2009 00:17:00
Uwe
Hi,
ich denke, das klappt am Beste mit einem Klassenmodul Worksheet_Change und AutoFill. Aber Sepp hat recht, mit einer hochgeladenenen Beispieldatei kann Dir bestimmt besser geholfen werden.
Gruß
Uwe
(:o)
AW: Zeilen automatisch einfügen, wenn
15.02.2009 17:59:00
Daniel
Hi
man könnte es z.B. über dieses Makro lösen, das Makro muss ins Modul des Tabellenblatts:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row  1 Then Exit Sub
If Target.Cells.Count > 1 Then Exit Sub
Application.EnableEvents = False
If Target.Value = "" Then
Cells(Target.Row, "AA").Value = ""
Else
Cells(Target.Row, "AA").FormulaR1C1 = Range("AA10").FormulaR1C1
End If
Application.EnableEvents = True
End Sub


die Formel muss allerdings schon in AA10 stehen, da diese kopiert wird.
dh. sollte sich die Formel ändern, brauchst du das Makro nicht anpassen.
Gruß, Daniel

Anzeige
AW: Zeilen automatisch einfügen, wenn
16.02.2009 19:12:00
John
Danke erst mal für die Hilfen, aber ich habe ein paar Dinge dann doch selber lösen können. Natürlich wie es so ist, treten neue Probleme auf. Um euch das aber zu veranschaulichen, habe ich meinen VBA Code mal unten angeführt:
Option Base 1

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Zeile As Long
Zeile = activecell.Row
If Target.Row  1 Then Exit Sub
If activecell = 1 Then
activecell(activecell + 1, 1).EntireRow.Insert                                       _
Range(Cells(Zeile + 1, "G"), Cells(Zeile, "J")).FillDown
End If
End Sub


Das Makro funktioniert so weit, wenn ich in eine entsprechende Zeile der Spalte A eine 1 eingebe. Es wird aber erst ausgeführt, wenn ich mit den Pfeiltasten oder mit der Maus die Zelle mit der 1 auswähle.
Ich hätte gerne, dass das Makro ausgeführt wird, wenn man die Zelle in der die 1 eingetragen wird verlässt (also, wenn man in eine andere Zelle geht).
Dann was eig noch viel wichtiger ist, eigentlich soll in die Zellen der Spalte A (diese sind ja die die bedingeung für das Makro) Bestellnummern eingetragen werden. D.h. wenn in der activecell (Spalte A) eine Bestellnummer steht ( in Form von : 290198) soll Then ausgeführt werden.
Es gibt doch irgendeine IsNumeric funktion um zu prüfen, ob die Eingabe numerisch ist.
Dann wäre es noch schön, wenn das makro pro Zelle nur einmal ausgeführt wird. Also wenn die Bestellnummer in einer Zelle eingegeben worden ist, dass das Makro dann nur einmal für diese Zelle ausgeführt wird.
So, das wars erst mal, ich hoffe das ihr wisst was ich noch brauche.
Tausend dank für eure Tips

Anzeige
AW: Zeilen automatisch einfügen, wenn
16.02.2009 19:37:00
Josef
Hallo John,
das kann man doch alles ohne VBA nur mit Bordmitteln lösen.
Hier ein Beispiel unter Verwendung der Listen-Funktion (> Daten > Liste)
https://www.herber.de/bbs/user/59514.xls
Gruß Sepp

Anzeige

Forumthreads zu verwandten Themen

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
pro tabelleneintrag automatisch eine neue Zeile
papa

Hallo liebe Excelianer,
ich möchte über ein Userform diverse Informationen abfragen und diese dann in einer Tabelle ablegen.
Es soll eine Datenbank entstehen, sprich bei jedem neuen Userformeintrag soll in der Tabelle eine neue Zeile verwendet werden.
Bisher hab ich dieses Vorhaben...
06.10.2009 00:10:16
Thread-ID: 1107402
3 Beiträge
Formelfortschreibung beim Einfügen von Zeilen
Zeilen

Hallo,
vielleicht kann jemand helfen:
Beim Einfügen einer Zeile an beliebiger Stelle sollen die Werte in Spalte A entsprechnend korrigiert werden, sodass die Reihenfolge des Positionenzählers in Spalte A wieder stimmig ist. Wenn beispielsweise unter Zeile 5 eine Leerzeile eingefügt wird...
19.01.2010 18:34:15
Thread-ID: 1131157
5 Beiträge
Anzeige
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
Anzeige
Zeile einfügen - Formel wird nicht übernommen
Alex

Hallo,
ich habe folgendes Problem:
Beipiel
A2 A3 A3
1 1 2 =A2+A3
2 1 2 =A2+A3
3 1 2 =A2+A3
Wenn ich eine Zeile zwischen Zeile 2 und 3 einfüge, dann wir meine Formel in A3 nicht in die eingefügte Zeile übernommen....
10.06.2010 13:27:50
Thread-ID: 1161234
2 Beiträge
Zeilen automatisch einfügen Druckbereich anpassen
andreas

Hallo zusammen,
habe hier eine Anwendung bei der unterschiedlich viele Positionen vorkommen. In Tabelle1 werden die Positionen angelegt, in AN sollen diese zum Druck generiert werden. Sind mehr als vier Positionen hat nicht mehr alles auf einer Seite Platz. Jetzt sollen wenn mehrere Positio...
15.06.2010 20:03:35
Thread-ID: 1161890
3 Beiträge
Neue Zeilen einfügen bis neuer Seitenumbruch
Stefan

Hallo zusammen
Ich habe wieder einmal ein Problem mit dem Seitenumbruch:
In meiner Liste müssen ab der 8-untersten Zeile so viele Leerzeilen eingefügt werden bis ein neuer Seitenumbruch gesetzt wird (damit die Seite ganz gefüllt wird), dabei darf aber keine neue Seite angefangen werden....
17.08.2010 13:11:00
Thread-ID: 1172554
4 Beiträge
Anzeige
Zeilen einfügen wenn
Werner

Hallo zusammen,
vorweg, ich habe im Archiv nichts gefunden dass mir weiterhilft.
Für manch einen vielleichrt ganz einfach.
Meine Daten stehen alle untereinander in Spalte A.
Ich suche eine VBA Lösung (Macro), welches mir nach jeder leeren Zeile, 4 weiter leere Zeilen einfügt.
20.12.2010 15:30:41
Thread-ID: 1192236
4 Beiträge
wenn dann neue zeile einfügen --> als Makro
Jan

Hallo Jungs und Mädels,
ich, als VBA Neuling, habe ein Problem mit einer ExcelTabelle, bei dem ich alleine nicht mehr weiterkomme.
Angenommen, in A2 steht =Summe(D1:D35), in B2 steht irgendwas, und wenn in C2 eine "2" steht, soll eine neue Zeile eingfügt werden. [Fall1]
"...
02.05.2011 14:18:11
Thread-ID: 1212646
6 Beiträge
Anzeige
in Tabelle ganz ab Zeile 1 10 neue Zeilen einfügen
Peter

Hallo
Wie kann ich in einer Tabelle ganz oben ab Zeile 1 zehn neue Zeilen einfügen?
Eine Zeile habe ich herausgefunden:
sheets("Uebersicht").Range("A1").EntireRow.Insert
Gruss, Peter
29.08.2011 12:41:15
Thread-ID: 1227893
3 Beiträge
Formelbereich erweitern bei Zeile einfügen
Sascha

Hallo Experten,
Ich habe mal wieder ein Problem.
Ich habe in einer Tabelle die Formel: =ZÄHLENWENN(H3:H15;"a")
Wenn ich nun die Zeile H16 markiere und eine Zeile einfüge sollte es den Formelbereich von H3:H15 nach
H3:H16 automatisch anpassen.
Wie funktioniert das, resp ke...
14.02.2012 10:21:52
Thread-ID: 1250583
3 Beiträge
Zeilen einfügen mit Formeln per CommandButton
Tina

Hallo zusammen
Wiedermal brauche ich eure Hilfe bei einem Problem. Ich möchte per CommandButton automatisch Zeilen oberhalb des Buttons einfügen. Dabei soll die Zeile inkl. Formeln eingefügt werden.
Dazu habe ich bisher folgenden Code: Private Sub CommandButton1_Click() Dim lngInsertRo...
26.04.2012 08:14:44
Thread-ID: 1260980
3 Beiträge
Anzeige
Anzeige

Infobox / Tutorial

Zeilen automatisch einfügen in Excel

Schritt-für-Schritt-Anleitung

Um in Excel automatisch eine neue Zeile einzufügen, wenn du eine Bestellnummer eingibst, kannst du VBA verwenden. Folge diesen Schritten:

  1. Öffne die Excel-Datei und drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Füge ein neues Modul hinzu:

    • Klicke mit der rechten Maustaste auf den entsprechenden Arbeitsblattnamen im Projekt-Explorer.
    • Wähle „Einfügen“ > „Modul“.

  3. Füge den folgenden VBA-Code ein:

    Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Column = 1 And Target.Row > 9 Then
       If IsNumeric(Target.Value) And Target.Value <> "" Then
           Application.EnableEvents = False
           Target.Offset(1, 0).EntireRow.Insert
           Target.Offset(1, 26).FormulaR1C1 = Range("AA10").FormulaR1C1
           Application.EnableEvents = True
       End If
   End If
End Sub

  4. Speichere die Datei als Makro-fähige Datei (z.B. .xlsm).

  5. Teste das Makro, indem du eine Bestellnummer in eine Zelle der Spalte A eingibst.

Häufige Fehler und Lösungen

  • Fehler: Nichts passiert, wenn ich eine Zahl eingebe.

    • Lösung: Stelle sicher, dass der VBA-Code im richtigen Arbeitsblatt-Modul eingefügt wurde und dass „Makros aktivieren“ in deinen Excel-Einstellungen erlaubt ist.

  • Fehler: Die Formel wird nicht in die neue Zeile kopiert.

    • Lösung: Überprüfe, ob die Formel in Zelle AA10 korrekt ist, da diese kopiert wird, wenn eine neue Zeile eingefügt wird.

Alternative Methoden

Wenn du keine VBA nutzen möchtest, kannst du auch mit Excel-Formeln arbeiten:

  1. Verwende die Listen-Funktion:

    • Markiere die Daten und gehe zu „Daten“ > „Liste“.
    • Diese Methode kann dir helfen, automatisch leere Zeilen einzufügen, wenn deine Liste wächst.

  2. Nutze die „Tabelle“-Funktion:

    • Wandle deinen Datenbereich in eine Tabelle um (Tabelle > Als Tabelle formatieren).
    • Excel wird dann automatisch neue Zeilen einfügen, wenn du neue Daten am Ende der Tabelle eingibst.

Praktische Beispiele

  • Beispiel mit Bestellnummern: Wenn du in Zelle A10 die Bestellnummer 290198 eingibst, wird in A11 automatisch eine neue Zeile eingefügt, und die Summenformel aus AA10 wird in AA11 übernommen.

  • Beispiel mit anderen Spalten: Du kannst ähnliche VBA-Codes für andere Spalten anpassen, um dort ebenfalls automatisch neue Zeilen einzufügen, z.B. in Spalte B für Artikelbezeichnungen.

Tipps für Profis

  • Verwende die Application.EnableEvents-Eigenschaft: Dies verhindert, dass das Makro sich selbst erneut ausführt, was zu einer Endlosschleife führen könnte.

  • Kombiniere VBA mit bedingten Formatierungen: So kannst du visuell hervorheben, wenn eine neue Zeile eingefügt wurde.

  • Teste deine Makros gründlich: Führe verschiedene Eingaben durch, um sicherzustellen, dass dein Makro in allen Fällen funktioniert.

FAQ: Häufige Fragen

1. Frage
Wie kann ich sicherstellen, dass nur einmal pro Zelle das Makro ausgeführt wird?
Antwort: Du kannst eine weitere Bedingung in deinen VBA-Code einfügen, die prüft, ob die Zelle bereits bearbeitet wurde, bevor das Einfügen erfolgt.

2. Frage
Kann ich das Makro auch in einer bestimmten Excel-Version verwenden?
Antwort: Ja, die grundlegende VBA-Funktionalität ist in den meisten modernen Excel-Versionen (ab Excel 2010) verfügbar. Achte darauf, dass du eine Makro-fähige Datei speicherst.

Beliebteste Forumthreads (12 Monate)

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