Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.04.2024 14:18:05
Einfügen ohne Select
28.04.2024 14:00:34
Formel fehler in der Berechnung?
28.04.2024 13:43:14
Uhrzeit-Angabe
28.04.2024 11:30:20
Pivot Balken und Kreisdiagram Darstellung /Beschriftung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1944to1948
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
1944to1948
1944to1948
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bitte um Hilfe bei VBA Code

Bitte um Hilfe bei VBA Code
25.09.2023 17:45:02
Michi
Hallo liebe Spezialisten.
Ich hoffe auf Eure Unterstützung bei folgender Herausforderung.
Ich benötige den VBA Code der die folgende Tabelle wie folgt umbaut.
Ursprungstabelle:











Kunden Nr. |Frei |Produkt |Anzahl |Details |
1000 Apfel250Rot
1000 Birne156Grün
1000 Banane663Blau
2222 Traube456Blau
2222 Birne452Gelb
2222 Apfel55Rot
2222 Beere38Gelb
123 Birne333Rot
123 Banane1222rot

Wunschergebnis siehe unten: Hier sollen die Produkte je Kunden Nr. nebeneinander gelistet werden.





Kunden Nr.FreiProdukt-1Anzahl-1Details-1Produkt-2Anzahl-2Details-2Produkt-3Anzahl-3Details-3Produkt-4Anzahl-4Details-4Produkt-5Anzahl-5Details-5
1000 Apfel250RotBirne156GrünBanane663Blau      
2222 Traube456BlauBirne452GelbApfel55RotBeere38Gelb   
123 Birne333RotBanane1222rot        

Würde mich riesig freuen wenn mir jemand den VBA Code erstellen kann. (Die Überschriften bekomme ich selber hin :-)
Vielen lieben Dank, Michi

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bitte um Hilfe bei VBA Code
25.09.2023 18:17:34
daniel
Hi

probiers mal so: 

Sub test()

With Cells(1, 1).CurrentRegion

    With .Columns(.Columns.Count + 1)

        .FormulaR1C1 = "=RC3&"";""&RC4&"";""&RC5&IF(RC1=R[1]C1,"";""&R[1]C,"""")"

        .Formula = .Value

        .EntireRow.RemoveDuplicates 1, xlYes

        .TextToColumns Destination:=.Cells(1, 1), _

                DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, _

                Tab:=False, Semicolon:=True, Comma:=False, Space:=False, Other:=False, _

                FieldInfo:=Array(Array(1, 9), Array(2, 9), Array(3, 9))

    End With

End With

    

End Sub


du kannst die Schritte auch von hand ausführen.
Formel einfügen und nach unten ziehen ,Formel durch Wert ersetzen
Duplikate Entfernen um die unnötigen Zeilen zu löschen und dann Text in Spalten.
Über die Fieldinfo wird dafür gesorgt, das die ersten drei Spalten nicht doppelt vorkommen.

Gruß Daniel
.
Anzeige
AW: Bitte um Hilfe bei VBA Code
25.09.2023 19:21:47
Michi
Hallo Daniel, vielen lieben Dank für Deine großartige Hilfe!!!!!
Funktioniert Prima.
1.000 Dank

201 Forumthreads zu ähnlichen Themen

Web Query automatisch aktualisieren
Marco

Hallo zusammen
Ich möchtre gerne eine Web Query z.B. alle 5 Minuten automatisch aktualisieren lassen, ohne immer den "aktualisieren" Knopf zu drücken.
Ist so etwas möglich und wenn ja wie muss ich vorgehen?
Besten Dank für Eure Hilfe
Gruess Marco
26.09.2009 22:35:03
Thread-ID: 1105737
2 Beiträge
Anzeige
VBA Kalkulation unterdrücken bei Query.Refresh
Boris

Hallo,
obwohl ich gemäß folgendem Skript die Kalkulationseinstellung auf manuell setze, wird (anscheinend durch das qt.refresh) nach jedem Schleifendurchlauf neu kalkuliert. Setze ich die Kalkulation dagegen per Hand vor dem Ausführen des Makros auf manuell, wird nicht kalkuliert. Woran lie...
04.02.2010 15:24:46
Thread-ID: 1135795
5 Beiträge
mittels VBA Daten aktualisieren
rayban

Hallo!
Ich habe eine Liste mit Namen (Spalte A: Vorname, Spalte B: Nachnamen) in einem Fileshare-Ordner gespeichert. Diese Liste wird in weiterer Folge regelmäßig aktualisiert.
In einer einer lokalen Exceldatei sollten die Daten aus der Liste in die Spalten F und G ab Zeile 10 eingefüg...
25.02.2010 08:47:33
Thread-ID: 1141234
2 Beiträge
Anzeige
VBA: If-Fkt mit Teilstring - Daten aktualisieren
Joe

Hallo liebe Experten,
ich stehe mal wieder vor einer Hürde, bei der ich eure Hilfe bräuchte.
Folgender Code sucht in einer Adressdatei (adressen.xls) nach einer Nummer (Spalte Q). Diese Nummer steht in einer Zelle in welcher noch weitere, durch Komme getrennte, Nummern stehen können.
24.08.2010 13:10:36
Thread-ID: 1173865
2 Beiträge
per VBA Excel Chart mit Verknüpfung in Powerpoint
Frank

Guten Morgen zusammen!
Wie kann ich per VBA eine Excel-Range (mit dem Namen "TEST") in eine bestehende Powerpointpräsentation namens "MASTER.ppt" einfügen? Das einfügen soll als Verknüpfung stattfinden.
Im Anschluß möchte ich dann aus Excel heraus ein in der "MASTER.ppt" bestehendes Mak...
04.11.2010 22:50:54
Thread-ID: 1185141
2 Beiträge
Bitte um Vba-Code anzupassen,...
Matze,Matthias

Hallo @ All,
meine Versuche den Code zu erweitern scheitern alle, deshalb die bitte an Euch Profis.
2 Aufgabenstellungen:
a) Die Inventur/Korrektureingabe soll den Istbestand neu setzen ,erfolgt in Spalte6.
b) Der Target-Bereich soll Zeilenmäßig flexibel werden, damit eventuell...
01.07.2012 08:56:13
Thread-ID: 1269554
7 Beiträge
Powerpoint (URL) über VBA öffnen und speichen
Roman

Guten Tag,
ich möchte über VBA eine über eine fixe URL erreichbare Powerpointdatei auswählen, diese unter in den eigenen Dateien des angemeldeten Users speichern und dann öffnen.
Ich hoffe mir kann jemand weiterhelfen. Vielen Dank.
VG
Roman
20.09.2012 14:56:50
Thread-ID: 1279305
2 Beiträge
Excel in PowerPoint via VBA
Marion

Hallo zusammen,
ich habe einen Button in einer Excel-Datei mit dem ich ein auf dem Tabellenblatt befindliches Diagramm kopiere und in eine Powerpoint-Datei einfüge.
Diese PP-Datei hat ein von mir erstelltes Layout.
Nachdem das Diagramm eingefügt ist, wird noch eine Tabelle (A1:D5) k...
11.12.2012 20:57:19
Thread-ID: 1290368
2 Beiträge

Links zu Excel-Dialogen

Frame

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
3
4
1
3
1
1
6
1
1
4
4
1
1
4
1
3
1
3
1
6
3
1
1
1