Live-Forum - Die aktuellen Beiträge
Datum
Titel
08.10.2025 11:44:01
Faktor Uhrzeit hinzu fügen
08.10.2025 06:24:29
VBA - Zeichenkette von rechts kürzen
07.10.2025 18:27:08
Formel anstelle XVWERWEIS für alte Excel-Version
07.10.2025 15:42:10
Identische-Tabellen-identische Sub's funktionieren nicht...
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
1756to1760
1756to1760
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilen automatisch generieren

Forumthread: Zeilen automatisch generieren

Zeilen automatisch generieren
07.05.2020 08:47:19
Andreas
Hallo zusammen,
ich hab da mal eine Frage. Ich möchte eine Tabelle zur Planung eines Bauvorhabens erstellen. Hier wird auf dem ersten Tabellenblatt erstmal die Ausstattung jedes Raumes erfasst.
A1 - Etage, A2 - Raum, A3 - Bezeichnung, A4 - Anzahl Leuchten, A5 - Anzahl Steckdosen
B1 - Etage, B2 - Raum, B3 - Bezeichnung, B4 - Anzahl Leuchten, B5 - Anzahl Steckdosen
Zur Detailplanung der Beleuchtung soll sich nun im zweiten Blatt eine neue Tabelle generieren. Die Anzahl der Zeilen ergibt sich aus Zelle 4.
Annahme: A4 = 2, B4 = 5
Dann sollen zuerst zwei Zeilen für Raum A, dann 5 Zeilen für Raum B.... generiert werden.
Kann mir da jemand weiterhelfen? Mit den normalen Formeln komme ich da irgendwie nicht weiter.
Vielen Dank im Voraus!
Gruß Andreas
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilen automatisch generieren
07.05.2020 09:20:02
MCO
Guten Morgen, Andreas!
Leider waren deine Angaben spartanisch, daher hab ich auch nur die Grundfunktion einbauen können.
Hier der Code dazu
Sub Raumtabelle()
Dim newsh  As Worksheet, act_sh As Worksheet
Set act_sh = ActiveSheet
Set newsh = ActiveWorkbook.Sheets.Add(after:=act_sh)
For Each raum In act_sh.Rows(1).SpecialCells(xlCellTypeConstants)
For i = 1 To raum.Offset(3, 0)
lz = Range("A" & Rows.Count).End(xlUp).Row + 1
newsh.Cells(lz, "A") = raum
Next i
Next raum
Set Rng = newsh.Cells(lz, "A").CurrentRegion
Set Rng = Rng.Resize(Rng.Rows.Count, 4) 'Hier die gewünschte Zahl der Spalten eintragen
Rng.Borders.LineStyle = xlSingle
End Sub
Gruß, MCO
Anzeige
AW: Zeilen automatisch generieren
07.05.2020 14:27:12
Günther
Moin,
das geht gewiss auch sehr gut mit Power Query (Daten | Abrufen und transformieren). Aber bei Crossposting ohne Querverweis (=> http://www.excel-ist-sexy.de/forenhilfe/crossposting/) ist bei mir "Ende Gelände" und Hilfe ausgeschlossen.
Günther
Anzeige
;

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