Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1512to1516
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Daten aus Tabelle generieren

Daten aus Tabelle generieren
12.09.2016 09:29:34
Rudolf
Hallo liebe Excel Freunde,
da ich Makros nur bedingt beherrsche wende ich mich an die Herber-Community
Ich habe eine Excel Tabelle in der die Daten in der Tabelle „Daten“ gepflegt werden. Nun möchte ich aus der Tabelle „Daten“ eine Tabelle „Ergebnis“ generieren.
In der Spalte „Q“ stehen die Produkte die für jede Steckdose verfügbar sind. Bei drei Produkten sind es drei Zeilen mit der ID „AT*Rudi*E0001“ in der jeweils die Produkte zugewiesen werden. In der Spalte „P“ steht die Anzahl der Steckdosen. Bei zwei Steckdosen hat die erste die Kennung „AT*Rudi*E0001“ und die zweite „AT*Rudi*E0001*2“ usw. Somit müsste für erste Zeile aus der Tabelle „Daten“ sechs Zeilen in der Tabelle „Ergebnis“ generiert werden.
Kann mir hier jemand vielleicht den richtigen Weg zeigen, wie so ein Makro aufgebaut wird, dass das Ganze auch dynamisch ist.
Aufbau der Tabelle habe ich im Anhang
https://www.herber.de/bbs/user/108115.xlsm
Bedanke mich für eine Rückmeldung
Rudi

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

Betreff
Datum
Anwender
Anzeige
AW: Daten aus Tabelle generieren
12.09.2016 22:03:25
Dieter
Hallo Rudi,
du kannst das mit dem folgenden Programm machen:

Sub Umschaufeln()
Dim anzProdProSteck As Long
Dim anzSteckDosen As Long
Dim ID As String
Dim firma As String
Dim letzteZeileD As Long
Dim letzteZeileE As Long
Dim price As Currency
Dim prodID As String
Dim prodName As String
Dim pps As Long
Dim sd As Long
Dim spalte As Long
Dim startFee As Currency
Dim timeUnit As Long
Dim wb As Workbook
Dim wsD As Worksheet
Dim wsE As Worksheet
Dim SST As Long
Dim zeileD As Long
Dim zeileE As Long
Set wb = ThisWorkbook
Set wsD = wb.Worksheets("Daten")
Set wsE = wb.Worksheets("Ergebnis")
letzteZeileE = wsE.Cells(wsE.Rows.Count, "A").End(xlUp).Row
If letzteZeileE 
Viele Grüße
Dieter

Anzeige
AW: Daten aus Tabelle generieren
13.09.2016 08:14:36
Rudolf
Guten Morgen Dieter,
Danke, funzt einwandfrei. Hast mir sehr geholfen.
Schöne Grüße vom Bodensee
Rudi

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige