Microsoft Excel

Herbers Excel/VBA-Archiv

Datendarstellung | Herbers Excel-Forum


Betrifft: Datendarstellung von: Dirk
Geschrieben am: 24.10.2008 09:51:06

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

  

Betrifft: AW: Datendarstellung von: David
Geschrieben am: 24.10.2008 10:11:28

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


  

Betrifft: AW: Datendarstellung von: David
Geschrieben am: 24.10.2008 10:21:11

Hallo Dirk,

ging doch schneller als ich dachte:

https://www.herber.de/bbs/user/56238.xls

Rückmeldung wäre nett.

Gruß
David


  

Betrifft: AW: Datendarstellung von: ransi
Geschrieben am: 24.10.2008 10:21:33

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


  

Betrifft: AW: Datendarstellung von: Dirk
Geschrieben am: 24.10.2008 10:41:20

Vielen Dank Leute beide Lösung sind super.

Gruß