Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1744to1748
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

Aufsummierte Werte per VBA in Liste

Aufsummierte Werte per VBA in Liste
09.03.2020 22:39:47
before
Hey,
ich habe folgendes Problem, vielleicht kann mir ja jemand von euch helfen :)
In der ursprünglichen Tabelle befinden sich Firmen in einer Spalte (und andere Informationen in weiteren Spalten) und in einer zweiten Spalte befinden sich die aufsummierten Aufträge.
Nun möchte ich aus dieser aggregierten Liste eine Tabelle erstellen, in der jede Zeile einen Auftrag wiederspiegelt.
Anbei eine Beispieldatei die das ganze hoffentlich ganz gut verdeutlicht (Die Originaldatei umfasst mehr Daten)
https://www.herber.de/bbs/user/135733.xlsx
Mein Ansatz war eine For-Schleife mit einer Zählvariable von 1 bis 87 und innerhalb der Schleife mehrere If abfragen (if kleiner 5 then, if kleiner 20 then, ...).
Wenn ich das ganze als makro ausführe dauert das ganze jedoch sehr sehr lange und ist nicht praktikabel.
Ich bin noch relativ frisch in der Benutzung mit VBA und habe bisher nur ein bisschen rumgebastelt. Deshalb kann ich mir vorstellen, dass mein Lösungsweg eher suboptimal ist.
Ich würde mich über Input sehr freuen!
Grüße

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

Betreff
Datum
Anwender
Anzeige
AW: Aufsummierte Werte per VBA in Liste
10.03.2020 00:26:59
Werner
Hallo,
teste mal: Gruß Werner
AW: Aufsummierte Werte per VBA in Liste
10.03.2020 03:03:01
Matthias
Hallo
Option Explicit
Private Sub CommandButton1_Click()
Dim x&, i&, LoLetzte&
With Tabelle2
LoLetzte = .Cells(.Rows.Count, 1).End(xlUp).Row
For x = 2 To 7
For i = 1 To Cells(x, 2)
.Cells(LoLetzte + 1, 1) = Cells(x, 1)
LoLetzte = LoLetzte + 1
Next
Next
End With
End Sub
CommandButton1 gehört in Tabelle1.
In Tabelle2 steht in A1 die Überschrift "Aufträge"
Tabelle2

 A
1Aufträge:


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4.8
Datei musst Du als xlsm speichern.
Gruß Matthias
Anzeige
hier jetzt auch mit dem Code...
10.03.2020 05:50:48
Werner
Hallo,
...keine Ahnung wo der beim ersten Beitrag geblieben ist (war vielleicht schon zu spät).
Option Explicit
Public Sub aaa()
Dim i As Long, loLetzte As Long
Application.ScreenUpdating = False
With Worksheets("Tabelle1")
For i = 2 To .Cells(.Rows.Count, "A").End(xlUp).Row
If .Cells(i, "B")  "" And IsNumeric(.Cells(i, "B")) And .Cells(i, "B") > 0 Then
With Worksheets("Tabelle2")
loLetzte = .Cells(.Rows.Count, "A").End(xlUp).Offset(1).Row
If .Cells(1, "A") = "" Then loLetzte = 1
.Cells(loLetzte, "A").Resize(Worksheets("Tabelle1").Cells(i, "B")) _
= Worksheets("Tabelle1").Cells(i, "A")
End With
End If
Next i
End With
End Sub
Gruß Werner
Anzeige
AW: Aufsummierte Werte per VBA in Liste
10.03.2020 10:11:35
before
Vielen Dank schonmal, werde es gleich testen!

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige