Tabelle automatisch erweitern.. brauche Hilfe!!

Forumthread: Tabelle automatisch erweitern.. brauche Hilfe!!

23.01.2015 13:26:31

Felix

Moin zusammen,
ich habe da ein Problem und komme irgendwie nicht weiter.. Bitte helft mir!
Und zwar habe ich mal eine kleine Beispieltabelle erstellt um mein Problem besser erklären zu können.
Hier die Tabelle: https://www.herber.de/bbs/user/95207.xlsm
Wenn jemand ein anderes Dateiformat haben möchte, kann ich das gerne auch hochladen.
Und zwar ist da ja von A5 bis F9 eine Tabelle eingefügt. Und zwar würde ich es gerne so haben, dass wenn ich in irgendeiner Spalte von A9 bis F9 in der letzten Zeile der Tabelle etwas eingebe, dann soll sich die Tabelle um eine Zeile erweitern. Also hier in diesem Fall, dass die Tabelle dann von A5 bis F10 geht.
Lg Felix

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Tabelle automatisch erweitern.. brauche Hilfe!!

23.01.2015 13:38:30

Klaus

Hallo Felix,

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rLaubt As Range
Set rLaubt = Columns("A:F")
If Not Intersect(rLaubt, Target) Is Nothing Then
Application.EnableEvents = False
ActiveSheet.ListObjects("Tabelle1").Resize Range("$A$5:$F$" & Cells(Rows.Count, Target. _
Column).End(xlUp).Row + 1)
Application.EnableEvents = True
End If
End Sub

Grüße,
Klaus M.vdT.

AW: Tabelle automatisch erweitern.. brauche Hilfe!!

23.01.2015 14:08:28

Felix

Hallo Klaus,
das sieht schon mal echt gut aus. Nur wäre es schön, wenn nur dann eine neue Zeile kommt, wenn ich in der letzten Zeile der Tabelle etwas eingebe. Und nicht so wie jetzt, dass sobald ich irgendwo in der Tabelle etwas eintrage eine neue Zeile kommt.
Aber trotzdem schon mal danke :)

AW: Tabelle automatisch erweitern.. brauche Hilfe!!

23.01.2015 14:19:56

Klaus


Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rLaubt As Range
Dim rRow As Long
Set rLaubt = Columns("A:F")
If Not Intersect(rLaubt, Target) Is Nothing Then
rRow = Cells(Rows.Count, Target.Column).End(xlUp).Row
If rRow = Target.Row Then
Application.EnableEvents = False
ActiveSheet.ListObjects("Tabelle1").Resize Range("$A$5:$F$" & rRow + 1)
Application.EnableEvents = True
End If
End If
End Sub

LG,
Klaus M.vdT.

AW: Tabelle automatisch erweitern.. brauche Hilfe!!

23.01.2015 14:31:53

Felix

wow, das ist perfekt. Genau so sollte es sein :)
Perfekt und vielen vielen Dank :)
Dann kann ich ja versuchen den Rest hinzubekommen.

Danke für die Rückmeldung! owT.

23.01.2015 14:39:50

Klaus

Infobox / Tutorial

Schritt-für-Schritt-Anleitung

Um eine Excel-Tabelle automatisch zu erweitern, kannst du ein einfaches VBA-Skript verwenden. Hier sind die Schritte, um dies einzurichten:

Öffne Excel und lade deine Tabelle.
Drücke ALT + F11, um den VBA-Editor zu öffnen.
Wähle das Arbeitsblatt aus, in dem sich deine Tabelle befindet.

Füge den folgenden Code in das entsprechende Modul ein:

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
   Dim rLaubt As Range
   Dim rRow As Long
   Set rLaubt = Columns("A:F")
   If Not Intersect(rLaubt, Target) Is Nothing Then
       rRow = Cells(Rows.Count, Target.Column).End(xlUp).Row
       If rRow = Target.Row Then
           Application.EnableEvents = False
           ActiveSheet.ListObjects("Tabelle1").Resize Range("$A$5:$F$" & rRow + 1)
           Application.EnableEvents = True
       End If
   End If
End Sub

Schließe den VBA-Editor und speichere deine Datei als Makro-fähige Arbeitsmappe (.xlsm).
Teste die Funktion, indem du in die letzte Zeile der Tabelle etwas eingibst. Die Tabelle sollte sich automatisch um eine Zeile erweitern.

Häufige Fehler und Lösungen

Excel intelligente Tabelle automatisch erweitern funktioniert nicht
- Stelle sicher, dass du das richtige Tabellenblatt ausgewählt hast und der Name der Tabelle korrekt ist (Tabelle1 im Beispiel).
Excel intelligente Tabelle Formel nicht automatisch erweitern
- Überprüfe, ob die Formeln in der letzten Zeile der Tabelle eingegeben sind. Die automatische Erweiterung funktioniert nur, wenn du in der letzten Zeile eine Eingabe machst.

Alternative Methoden

Wenn du keine VBA-Programmierung verwenden möchtest, kannst du auch die Funktion "Tabelle" in Excel nutzen:

Markiere den gewünschten Bereich deiner Daten.
Klicke auf "Einfügen" > "Tabelle".
Aktiviere die Option "Meine Tabelle hat Überschriften".
Um die Tabelle automatisch zu erweitern, füge einfach neue Daten unterhalb der Tabelle hinzu. Excel wird die Tabelle dynamisch erweitern.

Praktische Beispiele

Dynamische Tabelle erstellen
- Wenn du regelmäßig Daten hinzufügst, ist es sinnvoll, die Excel-Tabelle dynamisch zu erweitern. Das VBA-Skript hilft dir, den Tabellenbereich zu erweitern, wenn du in die letzte Zeile eingibst.
Tabelle nach unten erweitern
- Das obenstehende Skript ist darauf ausgelegt, die Tabelle nach unten zu erweitern. Um die Tabelle nach links oder rechts zu erweitern, müsstest du den Code entsprechend anpassen.

Tipps für Profis

Rahmen automatisch erweitern
- Du kannst den Bereich der Tabelle so konfigurieren, dass auch die Rahmen automatisch erweitert werden, wenn du die Tabelle vergrößerst. Verwende dazu die Formatierungsoptionen in Excel.
Formeln automatisch erweitern
- Stelle sicher, dass die Formeln in der Tabelle so eingestellt sind, dass sie sich automatisch anpassen. Nutze dafür relative Referenzen in deinen Formeln.

FAQ: Häufige Fragen

1. Funktioniert das Skript auch in Excel 365? Ja, das Skript funktioniert in Excel 365 sowie in anderen Versionen, die VBA unterstützen.

2. Kann ich die Tabelle auch automatisch erweitern, wenn eine andere Tabelle erweitert wird? Ja, du musst jedoch sicherstellen, dass die Logik im VBA-Skript entsprechend angepasst wird, um den Bezug zur anderen Tabelle herzustellen.

3. Wie kann ich die Tabelle nach links erweitern? Um die Tabelle nach links zu erweitern, musst du den Code anpassen, um den Bereich entsprechend zu resize.

Beliebteste Forumthreads (12 Monate)

Tabelle automatisch erweitern.. brauche Hilfe!!

Forumthread: Tabelle automatisch erweitern.. brauche Hilfe!!

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

Tabelle automatisch erweitern in Excel

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

Tabelle automatisch erweitern.. brauche Hilfe!!

Forumthread: Tabelle automatisch erweitern.. brauche Hilfe!!

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

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Infobox / Tutorial

Tabelle automatisch erweitern in Excel

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread