Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.07.2024 18:36:17
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Daten aus einer Spalte dem Inhalt entsprechend auf

Daten aus einer Spalte dem Inhalt entsprechend auf
21.02.2013 11:17:06
krüger
Hallo,
ich mochte eine Spalte (300 Zeilen)in der die Zahlen 1 bis 15 unregelmäßig verteilt sind, in 15 Spalten aufteilen, (1en in eine Spalte 2en in eine.. usw.)
Wobei die Zahlen in der selben Zeile bleiben müssen
Beispiel:
Quelle:
1A
2A
2A
3A
4A
5A
Ziel:(um das hier darzustellen habe ich Nullen in die gerückten Spalten eingetragen)
(das könnte auch so in der Zieltabelle bleiben)
10000A
02000A
02000A
00300A
00040A
00005A
M.f.G.
JK

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Daten aus einer Spalte dem Inhalt entsprechend auf
21.02.2013 12:33:09
fcs
Hallo JK,
hier mal ein Grundgerüsteines Makros.
Gruß
Franz
Sub Verteilen()
Dim varNumber, varText, Zelle As Range, rngBereich As Range
With ActiveSheet
'Zellbereich ggf. anpassen
Set rngBereich = .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp))
'    Set rngBereich = Selection
End With
For Each Zelle In rngBereich
If Zelle.Text = "" Then
'do nothing
varNumber = 0
varText = ""
ElseIf IsNumeric(Left(Zelle.Text, 2)) Then
varNumber = Val(Left(Zelle.Text, 2))
varText = Mid(Zelle.Text, 3)
ElseIf IsNumeric(Left(Zelle.Text, 1)) Then
varNumber = Val(Left(Zelle.Text, 1))
varText = Mid(Zelle.Text, 2)
Else
varNumber = 0
varText = ""
End If
Zelle.ClearContents
If varNumber > 0 And varNumber 

Anzeige
Danke, habe es lösen können
21.02.2013 14:37:23
Krüger
Danke, habe das Problem selbst lösen können
Mein neuer Ansatz waren die Nullen, die ich hier nur zur Veranschaulichung eingefügt habe.
Quelle ist eigendlich eine Tabelle mit vielen Texteinträgen in vielen Spalten
(mit maximal 15 verschiedene Codes),
die habe ich zuerst versucht in Zahlen zu Konvertieren danach hätte ich die Zahlen rücken wollen
zum Schluss sollte die Ganze Matrix in 0 oder 1 Informationen umgestellt werden
Nun lasse ich die Texte gleich in 0-1 Ketten umwandeln und dann mit "Text in Spalten" auf die Spalten verteilen
Wenn das Spalte für Spalte durchläuft ist die Matrix schnell fertig.
M.f.G. JK
Anzeige

313 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige