Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.10.2025 19:08:54
Verbindung von Excel mit maps
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)
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
688to692
688to692
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeile einfügen per Schaltfläche

Forumthread: Zeile einfügen per Schaltfläche

Zeile einfügen per Schaltfläche
28.10.2005 23:05:57
Bernie42
Hallo,
ich hab ein kleines,großes problem.
Ich habe eine Tabelle mit ca. 20 Zeilen und Spalten erstellt.
In der letzten Zeile werden die Summen der einzelnen Spalten addiert.
Soweit habe ich es ja hinbekommen. Nun möchte ich aber zusatz Zeilen nicht mit der Maus einfügen, sondern per Schaltfläche.
Ich hatte es mir so gedacht, das durch Click auf die Schaltfläche von der letzten Zeile (in der die Endsumme steht) eine neue eingefügt wird.
Nun meine Frage ist dies möglich, und wenn ja, wie ?
Gruß
Bernie42
Anzeige

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeile einfügen per Schaltfläche
28.10.2005 23:17:18
Matthias
Hallo Bernie,
die Tabelle muss so aussehen:
Tabelle1
  
 ABCDEFG
1ABCDEFG
249576083519430
35147607367292
444415351688721
5321079937316
615504916721552
7       
8162216222302290341211
Formeln der Tabelle
A8 : =SUMME(A2:A7)

B8 : =SUMME(B2:B7)

C8 : =SUMME(C2:C7)

D8 : =SUMME(D2:D7)

E8 : =SUMME(E2:E7)

F8 : =SUMME(F2:F7)

G8 : =SUMME(G2:G7)


 
 Diagramm - Grafik - Excel Tabellen einfach im Web darstellen    Excel Jeanie HTML  3.0    Download  

Wichtig ist, dass die letzte Zeile vor der Summenformel frei bleibt und die Summenformel diese Zeile mit summiert (s. Formel). Sonst wird die Summenformel beim Einfügen der Zeile nicht angepasst.

Der Code:

Private Sub CommandButton1_Click()
Range("A1").End(xlDown).Offset(1, 0).EntireRow.Insert
End Sub


Gruß Matthias

                    

                                    


    
Anzeige

    

        
                    
            
                
    



                        



                    
                                

    
    

        

            
            

                                    

                                                    
                            AW: Zeile einfügen per Schaltfläche
                                            

                    

                                                    30.10.2005 00:16:07
                                            

                                

                                            bernie42
                                    

            

        

        

                            
Hallo Matthias,

danke erstmal für die schnelle Antwort.

Habe deinen Code eingebaut, nur kommt leider jetzt folgende Fehlermeldung:

Laufzeitfehler '1004'

Die Insert-Methode des Range Objekt ist fehlerhaft.

Hab die Tabelle genau wie dein Beispiel aufgebaut.

Was habe ich falsch gemacht, oder liegt es an meiner Excel-97 Version ?

Gruß

Bernie42

                    

                                    


    
Anzeige

    

        
                    
            
                
    



                        



                    
                                

    
    

        

            
            

                                    

                                                    
                            AW: Zeile einfügen per Schaltfläche
                                            

                    

                                                    30.10.2005 00:19:41
                                            

                                

                                            Matthias
                                    

            

        

        

                            
Hallo Bernie,

häng' mal ein Shift:=xlDown an:

Range("A1").End(xlDown).Offset(1, 0).EntireRow.Insert Shift:=xlDown

Gruß Matthias

                    

            



                    
                                

    
    

        

            
            

                                    

                                                    
                            AW: Zeile einfügen per Schaltfläche
                                            

                    

                                                    30.10.2005 00:37:07
                                            

                                

                                            Bernie42
                                    

            

        

        

                            
Hallo Matthias,

leider funkioniert es immer noch nicht.

Habe die Datei hochgeladen, schau bitte was ich falsch mache

https://www.herber.de/bbs/user/27955.xls

Danke

Bernie42

                    

                                    

                    


    
Anzeige

    

        
                    
            
                
    



                

                        



                    
                                

    
    

        

            
            

                                    

                                                    
                            AW: Zeile einfügen per Schaltfläche
                                            

                    

                                                    30.10.2005 00:54:24
                                            

                                

                                            Herbert
                                    

            

        

        

                            
Private Sub CommandButton1_Click()
[c65536].End(xlUp).EntireRow.Insert
End Sub


mfg Herbert

                    

            



                    
                                

    
    

        

            
            

                                    

                                                    
                            AW: Zeile einfügen per Schaltfläche
                                            

                    

                                                    30.10.2005 01:00:29
                                            

                                

                                            Bernie42
                                    

            

        

        

                            
Danke Herbert,

aber da kommt ebenfalls, die Fehlermeldung.

Gruß

Bernie42

                    

            



                    
                                

    
    

        

            
            

                                    

                                                    
                            AW: Zeile einfügen per Schaltfläche
                                            

                    

                                                    30.10.2005 10:04:34
                                            

                                

                                            Matthias
                                    

            

        

        

                            
Hallo Bernie,

in deiner Beispielmappe sehe ich dass man sich nicht auf Spalte A beziiehen kann, da hier leere Zellen sind. End(xlDown) springt vor die erste leere Zelle.

Deshalb wie Herert, nur eineZeile weiter oben, damit die Summenformeln sich anpassen:



Range("C65536").End(xlUp).Offset(-1, 0).EntireRow.Insert Shift:=xlDown



Aber irgendwie geht das bei dir eh nicht, zeichne mal die Aktion mit dem Rekorder auf:

Gehe zu Zelle C65536

drücke die Taste "Ende"

lasse sie los

drücke die Taste "Pfeil hoch"

dann in Menü Einfügen, Zeilen

dann sag mal was aufgezeichnet wurde.

Gruß Matthias

                    

                                    


    
Anzeige

    

        
                    
            
                
    



                        



                    
                                

    
    

        

            
            

                                    

                                                    
                            AW: Zeile einfügen per Schaltfläche
                                            

                    

                                                    30.10.2005 19:21:23
                                            

                                

                                            Bernie42
                                    

            

        

        

                            
Hallo,

danke an alle.

jetzt funktioniert´s.

Habe die Einfügfunktion als Makro aufgezeichnet, und den Button zugewiesen.

Gruß

Bernie42

                    

            



                    
                                

    
    

        

            
            

                                    

                                                    
                            AW: Zeile einfügen per Schaltfläche
                                            

                    

                                                    28.10.2005 23:17:35
                                            

                                

                                            chris
                                    

            

        

        

                            
Hallo das sollte dir weiterhelfen.

Nur noch einen Button zuweisen.



Sub Makro1()
Rows(ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row).Insert Shift:=xlDown
End Sub



                    

                                    

                    


    
Anzeige

    

        
                    
            
                
    



                

                        



                    
                                

    
    

        

            
            

                                    

                                                    
                            AW: Zeile einfügen per Schaltfläche
                                            

                    

                                                    28.10.2005 23:34:32
                                            

                                

                                            Dieter
                                    

            

        

        

                            
Hallo,

so reichte es auch:



Sub Makro1()
Rows(Cells(Rows.Count, 1).End(xlUp).Row).Insert
End Sub



Grüße Dieter

                    

            



                    
                                

    
    

        

            
            

                                    

                                                    
                            AW: Zeile einfügen per Schaltfläche
                                            

                    

                                                    28.10.2005 23:37:16
                                            

                                

                                            Matthias
                                    

            

        

        

                            
Hallo Dieter,

und die Summenformel? Die bezieht die eingefügte Zeile dann aber nicht mit ein.

Gruß Matthias

                    

            



                    
                                

    
    

        

            
            

                                    

                                                    
                            AW: Zeile einfügen per Schaltfläche
                                            

                    

                                                    28.10.2005 23:42:12
                                            

                                

                                            Dieter
                                    

            

        

        

                            
Hallo,

entschuldige den Schnellschuss. Es ging mir nur um den überflüssigen Code.

Grüße Dieter

                    

                                    


    
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
                        

                    

                

            
        

                
                
                

            
                

                    

                        

                            
                            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
                        

                    

                

            
        

                
                
                

            
                

                    

                        

                            
                            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
                        

                    

                

            
        

                
                
                

            
                

                    

                        

                            
                            Zeilen einfügen mit VBA-Code
                        

                                                    

                                HaKa
                            

                                            

                    

                                                

Hallo Forum

Ich möchte in einer bestehenden Tabelle, Bereich A3:U150, resp. nach jeder der 147 Zeilen jeweils 10 neue, leere Zeilen einfügen. Wie lautet der Code?

Gruss Heinz

                    

                    

                        

                                                            06.07.2010 20:53:12
                                                    

                        

                            Thread-ID:
                            1165794
                        

                        

                            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

    

        
                    
            
                
    



            

                            

            
                

                    

                        

                            
                            VBA - Formatierte Zeilen einfügen
                        

                                                    

                                Boris
                            

                                            

                    

                                                

Hallo

Ich möchte 3 formatierte Zeilen per VBA in die aktive Arbeitsmappe einfügen.

Dazu brauche ich ein VBA-Makro (um es mittels Tastenkombination aufzurufen).

Die Formatierung umfasst Schriftschnitt, Zeilenhöhe und Formeln. 

Geht das prinzipiell mit VBA?

Vielen Dank!

Bo...
                    

                    

                        

                                                            07.04.2011 15:54:10
                                                    

                        

                            Thread-ID:
                            1209494
                        

                        

                            6
                            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
                        

                    

                

            
        

                
                
                

            
                

                    

                        

                            
                            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
                        

                    

                

            
        

                
                
                

            
                

                    

                        

                            
                            VBA in leere Zeile einfügen
                        

                                                    

                                Stefan
                            

                                            

                    

                                                

Tach erstmal

Ich habe ein code welcher mir Dir Zeilen aus einer Tabelle in die unterste leere Zeile eines weiteren Tabellenblattes schreibt. (gefällt soweit ganz gut)

Kann man den Code abändern das er die nächst leere Zeile verwendet ?

d.h.

-Doppelklick 

-Zeile Kopieren
...
                    

                    

                        

                                                            07.04.2012 14:05:38
                                                    

                        

                            Thread-ID:
                            1258271
                        

                        

                            17
                            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
                        

                    

                

            
        

                
                
                

            
                

                    

                        

                            
                            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
                        

                    

                

            
        

                
                
                

            
                

                    

                        

                            
                            autom. neue Zeile pro Abrechnungsfall einfügen
                        

                                                    

                                websnake75
                            

                                            

                    

                                                

Hallo,

ich weiß nicht, ob mein Problem überhaupt mit Excel-Funktionen oder mit einem Makro lösbar ist. 

Monatlich wird eine Tabelle mit Abrechnungsdaten gefüllt. Daraus möchte ich eine weitere Tabelle automatisch erstellen, welche die Daten aus der Abrechnung für den Export in die Finan...
                    

                    

                        

                                                            17.10.2012 15:39:28
                                                    

                        

                            Thread-ID:
                            1282443
                        

                        

                            2
                            Beiträge
                        

                    

                

            
        

                

    


                

            

                

                    
                    Entdecke relevante Threads
                

                
Schau dir verwandte Threads basierend auf dem aktuellen Thema an

                 
                    Alle relevanten Threads mit Inhaltsvorschau entdecken
                
            

            




 

    
    
    
    
    

    
            


    
Anzeige

    

        
                    
            
                
    



        

    

        
        Infobox / Tutorial
    

    

        

            
Zeile einfügen per Schaltfläche in Excel





Schritt-für-Schritt-Anleitung


Um eine neue Zeile in Excel per Schaltfläche einzufügen, kannst du die folgenden Schritte befolgen:


    

  1. 

    Entwicklertools aktivieren: Stelle sicher, dass das Menü „Entwicklertools“ in Excel aktiviert ist. Du kannst dies unter den Excel-Optionen nachprüfen.
    

    2. 

  2. 

    Schaltfläche einfügen:
    

      

    • Klicke auf „Entwicklertools“ und wähle „Einfügen“.
      • 

    • Wähle die „Schaltfläche (Formularsteuerung)“ aus und ziehe sie auf das Excel-Blatt.
      • 

    

    3. 

  3. 

    Makro zuweisen:
    

      

    • Klicke mit der rechten Maustaste auf die Schaltfläche und wähle „Makro zuweisen“.
      • 

    • Erstelle ein neues Makro und benenne es.
      • 

    

    4. 

  4. 

    VBA-Code eingeben:
    

      

    • Öffne den VBA-Editor (Alt + F11) und füge den folgenden Code in das Makro ein:

      Private Sub CommandButton1_Click()
 Range("A1").End(xlDown).Offset(1, 0).EntireRow.Insert Shift:=xlDown
End Sub
      • 

    • Dieser Code fügt eine neue Zeile unter der letzten befüllten Zeile ein.
      • 

    

    5. 

  5. 

    Makro testen: Schließe den VBA-Editor und teste die Schaltfläche. Klicke darauf, um eine neue Zeile einzufügen.
    

    6. 





Häufige Fehler und Lösungen


    

  • 

    Laufzeitfehler '1004': Wenn du diese Fehlermeldung erhältst, kann das daran liegen, dass der Bereich, auf den du zugreifen möchtest, leer ist. Stelle sicher, dass die letzte Zeile, auf die sich dein VBA-Code bezieht, nicht leer ist. 
    

    • 

  • 

    Leere Zellen: Wenn deine Tabelle leere Zellen in der ersten Spalte hat, wird End(xlDown) vor die erste leere Zelle springen. In diesem Fall kannst du den Code anpassen:
    

    Range("C65536").End(xlUp).Offset(-1, 0).EntireRow.Insert Shift:=xlDown
    

    • 





Alternative Methoden


Wenn du keine Schaltfläche verwenden möchtest, gibt es auch andere Möglichkeiten, eine Zeile einzufügen:


    

  • 

    Tastenkombination: Du kannst die Tasten Strg + Shift + "+" verwenden, um eine neue Zeile schnell einzufügen, nachdem du eine Zelle in der Zeile unterhalb der gewünschten Position ausgewählt hast.
    

    • 

  • 

    Rechtsklick: Du kannst auch mit der rechten Maustaste auf die Zeilennummer klicken und „Einfügen“ auswählen, um eine neue Zeile hinzuzufügen.
    

    • 





Praktische Beispiele


Hier sind einige praktische VBA-Codes, die dir helfen, neue Zeilen auf verschiedene Arten einzufügen:


    

  1. 

    Einfügen einer Zeile am Ende der Tabelle:
    

    Sub NeueZeileAmEnde()
   Rows(Cells(Rows.Count, 1).End(xlUp).Row + 1).Insert Shift:=xlDown
End Sub
    

    2. 

  2. 

    Einfügen mit Formelübernahme:
    

    Sub ZeileMitFormelEinfügen()
   Dim lastRow As Long
   lastRow = Cells(Rows.Count, 1).End(xlUp).Row
   Rows(lastRow + 1).Insert Shift:=xlDown
   Cells(lastRow + 1, 1).Formula = "=SUM(A1:A" & lastRow & ")"
End Sub
    

    3. 





Tipps für Profis


    

  • 

    Makro aufzeichnen: Du kannst die Aktion des Einfügens einer Zeile als Makro aufzeichnen. Gehe einfach zu „Entwicklertools“ > „Makro aufzeichnen“, führe die Aktion aus und stoppe die Aufzeichnung. Du kannst das aufgezeichnete Makro dann anpassen.
    

    • 

  • 

    Schaltfläche anpassen: Du kannst das Aussehen der Schaltfläche anpassen, indem du mit der rechten Maustaste darauf klickst und „Formatauswahl“ wählst. So kannst du die Benutzeroberfläche verbessern.
    

    • 





FAQ: Häufige Fragen


1. Frage

Wie kann ich eine Schaltfläche in Excel einfügen?

Antwort: Du kannst eine Schaltfläche über das Menü „Entwicklertools“ > „Einfügen“ > „Schaltfläche (Formularsteuerung)“ einfügen.


2. Frage

Wie kann ich sicherstellen, dass die Summenformel aktualisiert wird?

Antwort: Stelle sicher, dass die Zeile, die du einfügst, direkt über der Summenformel eingefügt wird, damit die Formel automatisch angepasst wird.

        

    



        
    
    
            


    

        
        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