Tabelle einfach erweitern (kopieren)

Dennis · 2017-07-04T14:46:24+00:00

Hallo, 2.ter Versuch hier. Ich habe eine Tabelle die etwa so aussieht: https://www.herber.de/bbs/user/114650.xlsx Diese Tabelle könnte man erweitern indem man die Teile aufklappt und dann Copy Paste macht, das Problem an der Sache ich nur, dass es mit der Zeit sehr aufwändig wird und auch gerne Fehler gemacht werden. Gibt es eine Option, dass man die Tabelle einfacher erweitert? Ich dachte jetzt z.B. an einen Button auf den man klicken könnte und schwupp wäre eine neue Tabellenzeile entstanden. Irgendwelche Ideen? Danke und viele Grüße, Dennis

Hallo!
Füge die beiden folgenden Makros in Deine Originaldatei ein.
Dieses Makro fügst Du in das Modul des Tabellenblattes "Tabelle1" (bzw. wie auch immer jenes heißt) ein. Dazu klicke mit der rechten Maustaste auf den Tabellenblatt-Reiter, Code anzeigen, es öffnet sich der VB-Editor dort dann im großen, weißen Feld oben rechts einfügen:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$A$1" Then
Call a
Cancel = True
End If
End Sub

Du bist nun schon im VB-Editor. Klicke in der Menüleiste (vom VB-Editor, NICHT von Excel) auf Einfügen, Modul. Du solltest links oben im VB-Editor eine Art Explorer-Ansicht sehen; klicke in dieser doppelt auf "Modul1" - und dort fügst Du folgenden Code ein:

Sub a()
Dim Wb As Workbook: Set Wb = ThisWorkbook
Dim Ws As Worksheet: Set Ws = Wb.Worksheets("Tabelle1")
Dim Basis As Range, Gruppe As Range, BlockStart&
Application.ScreenUpdating = False
With Ws
Set Basis = .Range("B2:Z32")
BlockStart = WorksheetFunction.CountA(.Range("B:B")) * 33
Basis.Copy Destination:=.Cells(BlockStart, 2)
Set Gruppe = .Range(.Cells(BlockStart + 2, 2), _
.Cells(BlockStart + 32, 26))
Gruppe.Rows.Group
End With
End Sub

Beachte: Im Code gehe ich davon aus, dass die Tabelle mit den Projekt-Blöcken "Tabelle1" heißt; falls das im Original anders ist, musst Du das hier anpassen:

Set Ws = Wb.Worksheets("Tabelle1")

Außerdem ist erforderlich, dass es zumindest einen Projekt-Block, im Bereich "B2:Z32", schon gibt - ich kopiere diesen Bereich einfach und füge ihn unten an.
Da ich Deine Original-Datei nicht kenne, kann ich nur hoffen, dass diese genau den Bedingungen Deiner Bsp-Datei entspricht - sonst kann es natürlich sein, dass der Code nicht vollständig klappt.
LG
Michael

Hallo!
Wieso machst Du diese Angaben nicht gleich bzw. stellst eine Bsp-Datei ein, die in Struktur und Aufbau nicht Deinem Original entspricht? Sagst Du einem Installateur, nachdem er das Bad verfliest hat auch, dass Du eigentlich das WC verfliest haben wolltest?
Prinzipiell muss der Code für den Bereich, um den es in Deinem Original geht, nur geringfügig geändert werden, und zwar hier:

Set Basis = .Range("B2:Z32")

Das ist ein Projekt-Block, auf den ich mich beziehe. D.h. die blaue Projekt-Zeile plus 29 Zeilen darunter (gruppiert), plus eine Zeile Abstand zum nächsten Projektblock.
Außerdem zähle ich (basierend auf Deinem Bsp.) wieviele Einträge in Spalte B vorhanden sind, das wären jene Zellen in denen "Projekt" steht - denn soviele Projekt-Blöcke existieren bereits, und damit kann ich die Zeile berechnen, ab der ein neuer Projekt-Block eingefügt werden soll - weil ja die 29 + 1 Zeile immer gleich bleiben.
D.h. konkret: Ich habe jetzt, in Unkenntnis Deines Originals, das Problem, dass ich nicht weiß, ob ich in Spalte A überhaupt sinnvoll die vorhandenen Projekte zählen kann - denn ich weiß nicht, ob in Spalte A immer nur in der blauen Projektzeile etwas steht. Zusätzlich sind die Projekt-Blöcke im Original plötzlich 40 Zeilen lang anstatt 32 wie in der Bsp-Datei, d.h. die Berechnung der nächsten Einfügezeile muss anders lauten... und, und, und...
LG
Michael

Tabelle einfach erweitern (kopieren)

Forumthread: Tabelle einfach erweitern (kopieren)

19
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Tabelle einfach erweitern (kopieren)

Forumthread: Tabelle einfach erweitern (kopieren)

19 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

19
Beiträge zum Forumthread

Beiträge zu diesem Forumthread