dynamischer Erweiterung von Excel-Tabelle um 100 Zellen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Moin Eric,

Du möchtest in deiner Excel-Tabelle die Zellen von B10 bis NL40 um 100 Zellen erweitern und dieselbe Größe von C44 bis NL71 wie die obere Tabelle haben. Dies ist eine wiederkehrende Aufgabe, die mit Excel einfach zu erledigen ist. Hier ist, wie du es tun kannst:

Zellen erweitern von B10 bis NL40:

1. Klicke auf die Zelle NL40.
2. Halte die Shift-Taste gedrückt.
3. Drücke die Pfeiltaste nach rechts, um den gesamten Bereich von B10 bis NL40 auszuwählen.
4. Klicke mit der rechten Maustaste auf den ausgewählten Bereich und wähle "Zellen einfügen".

Jetzt sind 100 Zeilen von B10 bis NL40 eingefügt.

Zellen erweitern von C44 bis NL71:

1. Klicke auf die Zelle NL71.
2. Halte die Shift-Taste gedrückt.
3. Drücke die Pfeiltaste nach rechts, um den gesamten Bereich von C44 bis NL71 auszuwählen.
4. Klicke mit der rechten Maustaste auf den ausgewählten Bereich und wähle "Zellen einfügen".

Jetzt sind 100 Zeilen von C44 bis NL71 eingefügt, und der Bereich hat die gleiche Größe wie die obere Tabelle.

Dies ist die einfachste und effizienteste Möglichkeit, dies in Excel zu erledigen, ohne den Einsatz von Formeln oder Makros. Beachte, dass die genaue Anzahl der eingefügten Zeilen von der Anzahl der vorhandenen Zeilen abhängt. In deinem Fall erwähntest du 100, daher habe ich das entsprechend erklärt.

Gruß

Moin Eric,

tut mir leid zu hören, dass die vorherige Methode nicht wie erwartet funktioniert hat. Das Verhalten, das du beschreibst, klingt nach einem unerwünschten Verhalten in Excel. Wenn das Drücken der Shift-Taste zu einem Fenster mit den Optionen zum Verschieben von Zellen führt, ist das nicht das erwartete Verhalten.

Eine mögliche Alternative ist die Verwendung eines VBA-Makros:

Sub ErweitereZellen()

    Dim ws As Worksheet

    Dim LastRow As Long

    Dim LastColumn As Long



    ' Definiere das Arbeitsblatt

    Set ws = ThisWorkbook.Sheets("DeinArbeitsblattName") ' Ersetze "DeinArbeitsblattName" durch den tatsächlichen Namen deines Arbeitsblatts



    ' Finde die letzte Zeile und Spalte mit Daten

    LastRow = ws.Cells(Rows.Count, 1).End(xlUp).Row

    LastColumn = ws.Cells(1, Columns.Count).End(xlToLeft).Column



    ' Erweitere die Zellen um 100 Zeilen nach unten und 100 Spalten nach rechts

    ws.Cells(LastRow + 1, 1).Resize(100, LastColumn).EntireRow.Insert

    ws.Cells(1, LastColumn + 1).Resize(LastRow + 100, 100).EntireColumn.Insert

End Sub

Stelle sicher, dass du "DeinArbeitsblattName" entsprechend ersetzt. Dieses Makro wird die Zellen in deinem Arbeitsblatt um 100 Zeilen nach unten und 100 Spalten nach rechts erweitern, basierend auf den vorhandenen Daten.

Um das Makro auszuführen, gehe zu "Entwicklertools" > "Makros", wähle das Makro "ErweitereZellen" aus und klicke auf "Ausführen". Beachte, dass du möglicherweise zuerst die Entwicklertools aktivieren musst, falls sie noch nicht sichtbar sind.

Dies sollte das Problem der Zellerweiterung in deinem Arbeitsblatt lösen.

Gruß

Beliebteste Forumthreads (12 Monate)

dynamischer Erweiterung von Excel-Tabelle um 100 Zellen

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

dynamischer Erweiterung von Excel-Tabelle um 100 Zellen

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread