Office: Auswertung erstellen Datum/Kalenderwoche mit Gesamtwert und Filtern

Solitec · 11. Januar 2020

WS-53 , mein Fehler .
ich habe mich falsch Ausgedrückt .
Trotzdem vielen Dank für deine Hilfe Stellung.....

WS-53 · 11. Januar 2020

Hallo Solitec,

es geht nicht darum, ob du dich richtig oder falsch ausgedrückt hast.

Es geht vielmehr darum, dass du von der Gesamtaufgabenstellung nur einen winzigen Teil preisgegeben hast.

Hätte ich gewusst, dass es noch 36 vorherige Monate, in einzelnen Mappen oder wie auch immer, gibt, dann hätte ichmir schon nicht die Mühe machen müssen, die eine vertikale Erfassung zu offerieren und diese mit einem Beispiel zu dokumentieren. Einem bezahlten Berater ist i.d.R. egal, denn er wird ja auch dafür bezahlt, dass er nach falschen/lückenhaftn Vorgaben realisiert.

Ich bin aber ein freiwilliger unbezahlter Helfer, der es nicht einsieht, zu viel Energie in eine Aufgabe zu invenstieren, wenn er der Meinung ist, am Ende zwar Zeit investiert zu haben, diese aber direkt in die Tonne getreten werden kann.

Dies mache ich zwar auch, das eine oder andere Mal, dann aber, weil ich der Meinung bin, auch wenn es für die Tonne ist, dabei etwas neues lernen zu können.

Du geht doch auch nicht zum Arzt um dich wegen wochenlanger starker Halsschmerzen behandle zu lassen, die nicht besser werden. Und wenn der Arzt mit seinem Latein am Ende ist, erzählst du ihm dann, dass du schon so lange du die Halsschmerzen hast, jeden Tag sehr große Tabletten schluckst, weil du sonst deine Magenkrämpfe nicht aushalten kannst.

Solitec · 11. Januar 2020

Du hasst gar nichts in die Tonne getreten... Du hast mir sehr geholfen . Und das freiwillig , ohne deine Vorarbeit wäre ich nie zu einer Lösung gekommen.
So ein Forum lebt von dir .
Es ist einfach nur Perfekt hier wenn man ein Problem hat ,... man kann hier ein Problem schildern und solche Leute wie du die mehr Wissen, haben teilen dies und versuchen freiwillig zu helfen.....
Ohne dich bzw euch würde ich unter gehen .
Ich entschuldige Formulierungen oder Rechtschreibfehler weil ich mir gerade einen Kopf mache das ich mich am Anfang falsch Ausgedrückt habe.
Hoffe ihr unterstützt mich trotzdem weiter ------

Flotter Feger · 11. Januar 2020

Hallo,

... du bist ein Schatz !
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

ich weiß ... aber der Schatz heißt SABINA ... kein 'r' ...
entpivotieren per VBA ...
Code:

Sub Umstellen(ByVal Sh As Worksheet, ByVal Ziel As Worksheet)
Dim iRow As Long
Dim iCol As Long
Dim Bereich1 As Range
Dim Bereich2 As Range
Dim C1 As Range
Dim C2 As Range
Dim i As Long

With Sh
iRow = .Cells(Rows.Count, 1).End(xlUp).Row
iCol = .Cells(2, Columns.Count).End(xlToLeft).Column
Set Bereich1 = .Range("A3:C" & iRow)

For Each C1 In Bereich1.Columns(1).Cells
Set Bereich2 = .Range(.Cells(C1.Row, 4), .Cells(C1.Row, iCol))
For Each C2 In Bereich2.Cells
If Not IsEmpty(.Cells(C1.Row, C2.Column).Value) Then
i = i + 1
Ziel.Cells(i, 1).Value = .Cells(2, C2.Column).Value 'Datum
Ziel.Cells(i, 2).Value = .Cells(C1.Row, 1).Value 'Name
Ziel.Cells(i, 3).Value = .Cells(C1.Row, 2).Value 'Bereich
Ziel.Cells(i, 4).Value = .Cells(C1.Row, 3).Value 'Verkäufer
Ziel.Cells(i, 5).Value = .Cells(C1.Row, C2.Column).Value 'Betrag
Ziel.Cells(i, 6).FormulaLocal = "=TEXT(KALENDERWOCHE(A" & i & "; 21); ""00"")&""/""&Jahr(A" & i & ")" 'KW"
End If
Next C2
Next C1
End With
End Sub

Sub Start()
Call Umstellen(Worksheets("Januar"), Worksheets("Tabelle1"))
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Solitec · 12. Januar 2020

Danke ,
funktioniert Super

Office: Auswertung erstellen Datum/Kalenderwoche mit Gesamtwert und Filtern

Auswertung erstellen Datum/Kalenderwoche mit Gesamtwert und Filtern

Auswertung erstellen Datum/Kalenderwoche mit Gesamtwert und Filtern

Auswertung erstellen Datum/Kalenderwoche mit Gesamtwert und Filtern

Auswertung erstellen Datum/Kalenderwoche mit Gesamtwert und Filtern - Similar Threads - Auswertung erstellen Datum

Auswertung aus mehreren Registern erstellen (nur die Gelbmarkierten oder mit Datum von akt. Woche)

Bericht Export in Excel mit diversen Auswertungen

Schätzspiel auswerten

Während der Eingabe überprüfen ob Zahl oder Text

Pivot Auswertung erstellen

Excel 2013 - Eine Auswertung/Diagramm erstellen

Auswertung über mehrere Monate erstellen - mit Pivot?