Live-Forum - Die aktuellen Beiträge
Datum
Titel
30.04.2024 21:27:28
Bei Autofilter immer leere Zeilen einschließen
30.04.2024 20:46:46
Dopplungen Markieren, nur wenn die Zelle nebenan ident. ist
30.04.2024 20:14:55
Datum filtern
30.04.2024 19:41:34
VBA: Zellinhalt wird nicht angezeigt
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1920to1924
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1920to1924
1920to1924
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Listenwerte gruppiert nebeneinander schr

Listenwerte gruppiert nebeneinander schr
24.02.2023 16:24:44
Dieter
Hallo zusammen,
Ich habe eine Liste Kostenstellen, Auftraggeber und Preisen, die Werte stehen untereinander. Ich muss nun in einer neuen Tabelle eine Spalte mit den Kostenstellen führen. Sollte eine Kostenstelle mehrere Buchungen haben, so müssen die Preise nebeneinander in einer Zeile stehen.
In der nächsten Zeile kommt dann die nächste KSt.
Erschwerten kommt noch hinzu, dass bis zu 10 Buchungen in eine KSt. laufen.
Die 2. Tabelle wird dann als CSV im Rechnungsprogramm eingespielt, darf also keine Leerzeilen haben.
Viel Tobak, vielleicht habt ihr ja eine Lösung.
Danke und schönes WE.
Gruß Dieter

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: (D)eine Beispieldateien wäre hilfreich(er) owT
24.02.2023 16:27:05
neopa
Gruß Werner
.. , - ...
AW: (D)eine Beispieldateien wäre hilfreich(er) owT
27.02.2023 14:22:40
Dieter
Userbild
Hier mal ein Beispiel, oben ist die Datenliste und unten wird dann später übermittelt.
Schönen Tag noch.
AW: kein Bild, eine Excel-Datei war gemeint owT
27.02.2023 14:47:10
neopa
Gruß Werner
.. , - ...
nun mal nebenher...
01.03.2023 11:08:12
Yal
wenn hier Leute Spass mit Bilder hätten, wäre es eine Bildbearbeitung- und kein Excel-Forum. Wie Werner es richtig sagt: ohne Datei kommt man nicht weiter (Datei bereinigt von allem, was nicht im Internet sein sollte).
Jetzt das Nebenher:
Es gibt auf deinem Tastatur eine Taste "Druck". Wenn Du diese einmal drückst, passiert anscheinend gar nichts. Aber wenn Du anschliessend die Windows-Taste drückst und "paint" und Enter eintippst, dann kannst Du in Paint Strg+V drucken und dein Screenshot wird eingefügt. Dann kannst Du diese Kunstwerk als Datei speichern.
Seit win10 kann man auch WinTaste+Shift+s (also WinTaste+grosses S, steht für Screenshot) drücken und ein Teil des Bildschirms auswählen. Ablegen diesen Kopiervorgang wie vorab in Paint oder egal woanders.
Aber das nur für dein eigenes Wissen. Bilder interessieren uns nicht.
Dein Problem müsste noch einmal genauer beschrieben werden: Du hast 3 "Stammdaten"-Spalten und danach 3 Datenspalten. Pro Stammdateninformation "Kostenstelle" (die 3te Spalte) sollen die Daten Info und Gesamtbetrag auf einer Zeile herausgegeben werden.
Persönlich würde ich mich eher mit Sortierung und Filterung auf die Eingangstabelle zufriedenstellen. Ich sehe sehr wenig Mehrwert in der anders gestaltete Datenlage. Markiere den Berich A1:F11 und gehe auf Menü "Einfügen", "Tabelle" und sei neugierig, was diese "intelligente Tabelle" für Sortierung und Filterungsmöglichkeit mitbringt.
VG
Yal
Anzeige
AW: Listenwerte gruppiert nebeneinander schr
24.02.2023 21:26:09
Yal
Hallo Dieter,
Die sehr einfache Variante wäre:
füge diese Formel in einer Zelle in der erste Zeile
=INDEX($A$1:$A$300;ZEILE()*3-3+SPALTE(A1);1)
kopiere sie 2 mal nach rechts
und so oft wie nötig nach unten.
Der Quellbereich A1:A300 könnte eventuell nicht ausreichend sein.
Aber die Preise müssen nebeneinander vorliegen. Dann müsste man mit einer Power Query Transformation drübergehen.
Daher geht es vielleicht doch am einfachsten mit VBA.
Sub Entpiv()
Dim i, j, K, V, Dic
    Set Dic = CreateObject("Scripting.Dictionary")
'Sammeln
    With Worksheets("Tabelle1")
        For i = 1 To .Cells(Rows.Count, 1).End(xlUp).Row Step 3
            Dic(.Cells(i, 1).Value) = Dic(.Cells(i, 1).Value) & ";" & .Cells(i + 2, 1).Value
        Next
    End With
'Ablegen
    With Worksheets.Add(After:=Worksheets.Count)
        i = 1
        For Each K In Dic.keys
            .Cells(i, 1) = V
            j = 2
            For Each V In Split(Mid(Dic(K), 2), ";")
                .Cells(i, j) = V
                j = j + 1
            Next
            i = i + 1
        Next
    End With
    Set Dic = Nothing
End Sub
VG
Yal
Anzeige
AW: Listenwerte gruppiert nebeneinander schr
27.02.2023 20:20:00
Dieter
https://www.herber.de/bbs/user/158048.xlsx
Guten Abend zusammen,
hier die gewünschte Datei.
Die obere Tabelle wird von den MA erstellt. Nun suche ich die Funktion(en) um die untere Tabelle zu konfigurieren um diese dann als CSV weiterzuleiten.
Danke Euch für die Hilfe.
Gruß Dieter
AW: Listenwerte gruppiert nebeneinander schr
02.03.2023 19:57:32
Dieter
Hi zusammen,
das Problem ist gelöst, aber nicht mit Excel. Unsere externe Firma kann das Rechnungsprogramm so programmieren, dass die Daten richtig eingelesen werden.
Man muss nur auf die richtigen Leute warten.
Danke euch trotzdem für die Unterstützung.
Gruß Dieter
Anzeige
Problem gelöst.
03.03.2023 12:09:13
Yal
Hallo Dieter,
vielen Dank für die Meldung.
Der rote Aufrufezeichen wird gesetzt, wenn ein Haken bei "Frage noch offen" gesetzt wird, und wird erst runter, wenn eine Antwort (ausreichend oder nicht) gepostet wird.Daher dieses Posting, um den Flag "Frage noch offen" wieder runter zu setzen. Sonst stürmen alle Helfer hierher aufgrund der Beitragsliste >> Offene Threads.
VG
Yal

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige