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

Tabelle ausfüllen mit VBA

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
Anzeige
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

Anzeige
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.

305 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige