Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1016to1020
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
1016to1020
1016to1020
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datendarstellung

Datendarstellung
24.10.2008 09:51:06
Dirk
Moin EXCEL-Gemeinde,
benötige schnellen Rat.
Folgender Fall
Habe eine Tabelle mit folgenden Daten:
Spalte1 Spalte2
A1 1111111
A1 2222222
A1 3333333
B2 1122335
B2 1777778
B2 1110000
B2 1199999
C3 1110101
C3 1197854
Brauche folgende Lösung für eine Darstellung in:
A1 1111111 2222222 3333333
B2 1122335 1777778 1110000 1199999
C3 1110101 1197854
Möchte die Daten (7-stellig) zur zweistelligen Artikelnummer hintereinander in den Zellen stehen haben.
Habe ca. 2000 Datensätze. Zu Fuß möchte ich das ungern erledigen.
Vielen Dank Leute
Gruß
Dirk

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datendarstellung
24.10.2008 10:11:28
David
Hallo Dirk,
hier mal auf die Schnelle eine Lösung, bei der allerdings die Fehlerwerte nicht vermeidbar sind:
https://www.herber.de/bbs/user/56236.xls
Ich schau mal, ob ich noch eine bessere Variante rauskriege.
Gruß
David
AW: Datendarstellung
24.10.2008 10:21:00
ransi
HAllo
Das sind deine Daten:
Tabelle1

 ABC
111DSQ7 
21LA0HY 
31W52V6 
41NLDT8 
52H5TJW 
62G4PRH 
72MI6I0 
82N91M9 
924OIBY 
102L3TTR 
112LX92I 
122AVKDS 
132PNNBF 
142G4QAF 
15223ZOM 
163UU6AY 
1730M7TS 
183GBF0A 
193C090U 
203F0ZQI 
213ABLE5 
223B9VJS 
2341ZNQ2 
244USIXW 
254KDXOE 
2645IQ2P 
275Y5R1V 
2855T8UL 
295JOVS0 
30   


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Jetzt diesen Code:
Option Explicit


Public Sub test()
Dim arr As Variant
Dim MyDic As Object
Dim L As Long
Dim tmp As Variant
Dim varItems As Variant
Dim varKeys As Variant
arr = Sheets("Tabelle1").Range("A1").CurrentRegion
Set MyDic = CreateObject("Scripting.Dictionary")
For L = 1 To UBound(arr)
    MyDic(arr(L, 1)) = MyDic(arr(L, 1)) & arr(L, 2) & "###"
Next
varKeys = MyDic.keys
varItems = MyDic.items
'Ausgeben
With Sheets("Tabelle2")
    For L = 1 To MyDic.Count
        tmp = Split(varItems(L - 1), "###")
        .Cells(L, 1) = varKeys(L - 1)
        .Cells(L, 2).Resize(, UBound(tmp)) = tmp
    Next
End With
End Sub


Die Ausgabe ist dann so:
Tabelle2

 ABCDEFGHIJKLM
111DSQ7LA0HYW52V6NLDT8        
22H5TJWG4PRHMI6I0N91M94OIBYL3TTRLX92IAVKDSPNNBFG4QAF23ZOM 
33UU6AY0M7TSGBF0AC090UF0ZQIABLE5B9VJS     
441ZNQ2USIXWKDXOE5IQ2P        
55Y5R1V5T8ULJOVS0         
6             


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
ransi
Anzeige
AW: Datendarstellung
24.10.2008 10:41:20
Dirk
Vielen Dank Leute beide Lösung sind super.
Gruß

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige