neue Zeile einfügen per Button

Forumthread: neue Zeile einfügen per Button

27.03.2019 13:44:10

Michael

Hallo liebes Forum,
bräuchte mal eure Hilfe und zwar habe ich eine Tabelle mit Kontakt Daten und möchte
immer per Button eine neue Zeile unter die zuletzt befüllte Zeile einfügen mit allen
Formeln und Formatierungen wie (Geburtsalter in Spalte I, oder der rahmen um die Zellen + Zellen Formatierungen.
Ist sowas möglich.
Danke euch schonmal für die Hilfe
Lg Michael
https://www.herber.de/bbs/user/128706.xlsm

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: neue Zeile einfügen per Button

27.03.2019 14:50:42

Torsten
AW: neue Zeile einfügen per Button

27.03.2019 14:55:27

Michael
gerne und danke fuer die Rueckmeldung

28.03.2019 06:29:01

Torsten

AW: neue Zeile einfügen per Button

27.03.2019 14:50:42

Torsten

Hallo Michael,
hier deine Datei zurueck. Hab Spass.
Hab deine Formel fuer das Alter angepasst, sodass die Zelle leer bleibt, bis in Spalte H was eingegeben wird und einen Button angelegt fuer das Zeilen einfuegen.
Gruss Torsten
https://www.herber.de/bbs/user/128711.xlsm

AW: neue Zeile einfügen per Button

27.03.2019 14:55:27

Michael

Hallo Torsten,
vielen Dank super so sollte es sein. Prima

gerne und danke fuer die Rueckmeldung

28.03.2019 06:29:01

Torsten

Infobox / Tutorial

Schritt-für-Schritt-Anleitung

Um in Excel eine neue Zeile per Button einzufügen, kannst du VBA (Visual Basic for Applications) verwenden. Hier ist eine einfache Schritt-für-Schritt-Anleitung:

Entwicklertools aktivieren: Gehe zu „Datei“ > „Optionen“ > „Menüband anpassen“ und aktiviere die Entwicklertools.
Button erstellen:
- Wechsle zu den Entwicklertools und klicke auf „Einfügen“.
- Wähle „Button (Formularsteuerung)“ und ziehe ihn auf dein Arbeitsblatt.
Makro zuweisen:
- Ein Dialogfeld öffnet sich, in dem du ein neues Makro erstellen kannst. Klicke auf „Neu“.

VBA-Code eingeben:

Im VBA-Editor füge folgenden Code ein, um eine neue Zeile mit Formeln und Formatierungen einzufügen:

Sub NeueZeileEinfügen()
   Dim ws As Worksheet
   Set ws = ThisWorkbook.Sheets("Tabelle1") ' Ersetze Tabelle1 mit deinem Blattnamen
   Dim letzteZeile As Long

   letzteZeile = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row + 1
   ws.Rows(letzteZeile).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

   ' Formeln und Formatierungen übernehmen
   ws.Cells(letzteZeile, "I").Formula = "=IF(H" & letzteZeile - 1 & "<>"""",DATEDIF(H" & letzteZeile - 1 & ",TODAY(),""Y""),"""")"
   ' Weitere Formatierungen und Formeln hier hinzufügen
End Sub

Makro speichern: Schließe den VBA-Editor und speichere die Datei als „Excel-Makroaktivierte Arbeitsmappe“ (*.xlsm).
Button testen: Klicke auf den Button, um eine neue Zeile einzufügen. Alle Formeln und Formatierungen sollten übernommen werden.

Häufige Fehler und Lösungen

Fehler: Button funktioniert nicht
Lösung: Stelle sicher, dass du die Datei als .xlsm gespeichert hast und das Makro aktiviert ist.
Fehler: Formeln werden nicht korrekt übernommen
Lösung: Überprüfe den VBA-Code auf korrekte Zellreferenzen und Formeln.

Alternative Methoden

Wenn du keinen Button verwenden möchtest, kannst du auch:

Tastenkombinationen: Drücke Strg + Shift + +, um eine neue Zeile über die aktuell ausgewählte Zeile einzufügen.
Kontextmenü: Klicke mit der rechten Maustaste auf die Zeilennummer und wähle „Zeile einfügen“.

Praktische Beispiele

Einfügen mit Formeln: Der obige VBA-Code fügt eine neue Zeile ein und übernimmt die Formel für das Geburtsalter aus der vorherigen Zeile:
```
ws.Cells(letzteZeile, "I").Formula = "=IF(H" & letzteZeile - 1 & "<>"""",DATEDIF(H" & letzteZeile - 1 & ",TODAY(),""Y""),"""")"
```
Formatierung übernehmen: Um die Formatierung zu übernehmen, verwende die CopyOrigin-Option beim Einfügen der Zeile.

Tipps für Profis

Nutze Application.ScreenUpdating = False, um das Flackern des Bildschirms während der Ausführung des Makros zu reduzieren. Vergiss nicht, es am Ende wieder auf True zu setzen.
Du kannst das Makro so anpassen, dass es auch bedingte Formatierungen oder spezielle Formatierungen übernimmt.

FAQ: Häufige Fragen

1. Wie kann ich den Button anpassen?
Du kannst die Größe und Position des Buttons ändern, indem du ihn auswählst und die Ecken ziehst.

2. Kann ich mehrere Buttons für verschiedene Zeilen einfügen?
Ja, du kannst mehrere Buttons erstellen und jedem Button ein anderes Makro zuweisen, um spezifische Zeilen einzufügen.

Beliebteste Forumthreads (12 Monate)