Tabelle ausfüllen mit VBA

Forumthread: Tabelle ausfüllen mit VBA

30.07.2017 16:03:52

richar

Hallo,
ich möchte meine Tabelle ausfüllen mit Formel aber ich weiß nicht welche Formel passt. Ich habe in Rot geschrieben was ich als Formel schreiben will. Ich hoffe jemand kann mir helfen.
Der Tabelle Oben ist schon da und ich möchte die untere mit Makro schreiben und ausfüllen.
Ich bekomme unterschiedliche Tabelle, das heiß meine Tabelle Sind nicht auf 12 begrenzt. es kann mehr oder weniger sein.
Bei gesamte Auträge zum beispiel geht von A2 bis A12 aber kann manchmal mehr sein.
https://www.herber.de/bbs/user/115133.xlsm
Ich bedanke mich
Gruß
Richar

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Pivot statt ZÄHLENWENNS

30.07.2017 17:37:57

lupo1
Summenbildung nach 13 Kriterien

30.07.2017 18:37:39

Peter
AW: Summenbildung nach 13 Kriterien

31.07.2017 05:23:11

richar

Pivot statt ZÄHLENWENNS

30.07.2017 17:37:57

lupo1


Sub Auswertung()
On Error Resume Next
Application.DisplayAlerts = False
Sheets("Pivot").Delete
Application.DisplayAlerts = True
Sheets("Tabelle1").Range("A1").CurrentRegion.Name = "Datenbank"
Sheets.Add: ActiveSheet.Name = "Pivot"
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:="Datenbank" _
, Version:=xlPivotTableVersion14).CreatePivotTable TableDestination:= _
"Pivot!R3C1", TableName:="PivotTable2", DefaultVersion:= _
xlPivotTableVersion14
Sheets("Pivot").Cells(3, 1).Select
With ActiveSheet.PivotTables("PivotTable2").PivotFields("ibn")
.Orientation = xlRowField
.Position = 1
End With
With ActiveSheet.PivotTables("PivotTable2").PivotFields("imb")
.Orientation = xlRowField
.Position = 2
End With
With ActiveSheet.PivotTables("PivotTable2").PivotFields("unter")
.Orientation = xlColumnField
.Position = 1
End With
ActiveSheet.PivotTables("PivotTable2").AddDataField ActiveSheet.PivotTables( _
"PivotTable2").PivotFields("name"), "Anzahl von name", xlCount
End Sub

Summenbildung nach 13 Kriterien

30.07.2017 18:37:39

Peter

Hallo Richar,
ich habe Deine Tabelle ein klein wenig verändert bzw. ergänzt. Laufende Zeilen kannst Du bis Zeile 50 einfügen. Hier mein Lösungsvorschlag (ohne VBA):
https://www.herber.de/bbs/user/115139.xlsm
Bitte mal ausprobieren; FeedBack wäre schön.
Mit freundlichem Gruß
Peter Kloßek

AW: Summenbildung nach 13 Kriterien

31.07.2017 05:23:11

richar

ich danke euch beiden, ich probiere und melde mich wenn es funktioniert.

Beliebteste Forumthreads (12 Monate)

Forumthread: Tabelle ausfüllen mit VBA

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread