Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1008to1012
1008to1012
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Untereinander --> Nebeneinander

Forumthread: Untereinander --> Nebeneinander

Untereinander --> Nebeneinander
24.09.2008 09:16:07
sockel939
Hallo Grüße euch,
Wie kann mann mittels makro daten aus einer tabelle die untereinander von a1 bis a17000 stehen nebeneinander von b1 beginnend platzieren?
So sehen die aus:
1-Neu - Pass 156
Inhalt
2x Box Integ.
3x PPL
dann kommen viele leere zeilen
2-Neu - ZTU 256
Inhalt
2x PPL
Drawing
Manuals
3x Conn
3x Conn 2
dann kommen viele leere zeilen
usw.
Danke im voraus
Tom
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Untereinander --> Nebeneinander
24.09.2008 09:22:00
Uduuh
Hallo,

a1 bis a17000 stehen


du hast nur 256 Spalten.
Gruß aus’m Pott
Udo

AW: Untereinander --> Nebeneinander
24.09.2008 09:23:00
Hajo_Zi
Hallo Tom,
vielleicht ist dies ein Ansatz http://hajo-excel.de/vba_datensaetze.htm

Anzeige
AW: Untereinander --> Nebeneinander
24.09.2008 09:23:00
David
Hallo Tom.
bei 17000 Zeilen wird es schwierig, die nebeneinander darzustellen. Excel2003 hat nur 256 Spalten.
Wie soll das Ergebnis aussehen?
Gruß
David
AW: Untereinander --> Nebeneinander
24.09.2008 09:58:31
sockel939
Erstmal Danke an alle,
also es werden keine 256 daten nebeneinander stehen sondern eher max. 40-50
die leeren zeilen würder ich mit diesem Makro:
löschen
Dim A As Long
Application.ScreenUpdating = False
For A = Cells(Rows.Count, "A").End(xlUp).Row To 1 Step -1
If Cells(A, "A") = "" Then
Rows(A).Delete
End If
Next A
Application.ScreenUpdating = True
Dann die Daten aus Spalte A nebeneinander von b1 beginnend einfügen nur weiß ich hier nicht wie das geht!
Das mit den 17000 kommt durch die leeren Zeilen zwischen den eigentlichen Daten.
Anzeige
AW: Untereinander --> Nebeneinander
24.09.2008 10:16:36
Hajo_Zi
Hallo Nick,
Du hast schon alle Beiträge gelesen und getestet? Mir scheint Nein.

AW: Untereinander --> Nebeneinander
24.09.2008 10:50:00
David
Hallo Tom.
Eine Variante:

Option Explicit
Sub umbauen()
Application.ScreenUpdating = False
Dim i, start, ende As Double
Dim spalte As Byte
spalte = 2
For i = 1 To Range("A63565").End(xlUp).Row
If InStr(Cells(i, 1), "Neu") > 0 Then start = i
If Cells(i, 1)  "" And Cells(i + 1, 1) = "" Then
ende = i
Range(Cells(start, 1), Cells(ende, 1)).Copy
Range(Cells(1, spalte), Cells(ende - start + 1, spalte)).PasteSpecial Paste:= _
xlPasteValues
Application.CutCopyMode = False
spalte = spalte + 1
If spalte > 256 Then
MsgBox "Spalten voll"
Exit Sub
End If
End If
Next
Range("A:A").EntireColumn.Delete 'falls Originalspalte anschließend gelöscht werden soll
Range("A1").Select
Application.ScreenUpdating = True
End Sub


Bitte die Leerzeilen vorher NICHT löschen, da diese als Kriterium verwendet werden.
Gruß
David

Anzeige
AW: Untereinander --> Nebeneinander
24.09.2008 11:10:44
sockel939
David vielen Dank das funzt !
Hajo ich habe alles gelesen und auch deinen Link ausprobiert, diese makros funzen nicht so wie ich gedacht habe!
Gruß
Tom
;

Forumthreads zu verwandten Themen

Formel verkürzen --> zu lange Speicherzeit
Albin

Hallo
Meine Formel funktioniert gut, aber da die Formel sehr lang ist und ich sie in viele Zeilen kopiert habe, dauert das Speichern einer Tabelle 15 Minuten! Ich will aber 30 solche Tabellen anfertigen, das heisst ich würde dann immer mehrere Stunden warten bis das Ding gesichert ist! Das...
13.08.2008 13:10:00
Thread-ID: 1001509
16 Beiträge
Makro- > Zellenauswahl
sebastian

Hallo,
ich bitte um Eure Hilfe.
Ich habe mir eine ganz einfache Eingabemaske zusammengestellt um Daten zuerfassen. Die Daten trege ich in Tabelle1 untereinander ein (Name, Vorname usw.) Anschließend werden diese Daten via Makro kopiert und in Tabelle2 über "Inhalte einfügen-Werte-Trans...
15.08.2008 14:40:39
Thread-ID: 1002188
5 Beiträge
Auftragspositionen >5 anzeigen
Einkäufer

Hallo,
ich habe folgendes Problem:
Aus einer Kundenliste mit Auftragspositionen möchte ich mir alle Kunden anzeigen lassen, die mehr als 5 Aufträge platziert haben.
Name Bezeichnung
Müller Auftrag 1
Müller Auftrag 2
Müller Auftrag 3
Müller Auftrag 4
Müller Auftra...
21.08.2008 13:53:24
Thread-ID: 1003479
3 Beiträge
Datei schließen -> Tabellenblätter löschen
Gordon

Moin,
ist es möglich einen VBA-Code zu schreiben, der sobald man eine Exceldatei schließt, noch vorher bestimmte Tabellennlätter gelöscht werden. Ich stelle mir das so vor:
Ich drücke "Schließen" und bevor die datei geschlossen wird, werden alle Tabellenblätter dieser Datei, außer den...
24.08.2008 23:59:20
Thread-ID: 1004344
6 Beiträge
Anzeige
wenn > Spalte I, dann neue Zeile
Dennis

Hallo Leute,
ich benötige einmal Hilfe eines Experten, da ich noch in den Anfängen stecke.
Ich habe folgendes Problem:
Ich habe eine Liste mit Datensätzen (jeder Datensatz steht für eine Person). Die Datensätze sind unterschiedlich lang. Grds. sind die Datensätze von Spalte A - Spal...
04.09.2008 16:41:00
Thread-ID: 1007458
8 Beiträge
Anzeige
"Wenn Zeit > 17.30 Uhr dann"
Susanne99

Hallo,
wie formuliere und formatiere ich den o.g. Ausdruck als Formel?
Gruß
Susanne
14.09.2008 23:24:58
Thread-ID: 1009640
6 Beiträge
Entspricht doppeltes Hochkomma Zellwert >0?
Jesko

Hallo an alle,
wer kann mir sagen, welchem Zellwert das doppelte Hochkomma entspricht.
Hier der Zusammenhang:
In Spalte K meiner Tabelle wird ein Liefertermin genannt (Format: TT.MM.JJJJ).
In Spalte S ist der tatsächlich erreichte Liefertermin aufgeführt (Format wie oben).
I...
15.09.2008 17:51:31
Thread-ID: 1009863
6 Beiträge
Tabellenblatt wählen -> Makro startet
Gordon

Moin,
möchte gerne, dass ein Makro startet, wenn das Tabellenblatt "Tabelle1" selktiert wird. Ist das möglich, und wenn ja, wie hat dieser Code auszusehen? Der muss doch dann bestimmt in "dieseArbeitsmappe"?
Danke schon mal für die Hilfe....
Gruß
Gordon
18.09.2008 19:10:00
Thread-ID: 1010839
4 Beiträge
Daten SCHNELL von Tabelleblatt A -> B transfer. | Herbers Excel-Forum
kgurr
Hallo,
ich möchte aus einem Tabellenblatt A die Inhalte verschiedene Ranges in ein Tabellenblatt kopieren. Im Tabellenblatt A sind die Spalten verstreut, im Tabellenblatt sind sie als Block vorhanden.
Ich habe bereits eine Prozedur, die mir zu langsam - vor allem duch das schreiben in die Z...
20.09.2008 12:12:48
Thread-ID: 1011186
3 Beiträge
Vergleich <> x%
Tobert

Hallo zusammen,
hab da mal ne Frage:
Ich möchte wenn der Unterschied zwischen zwei Zahlen größer oder kleiner x% ist als Ergebnis
in eine andere Zelle ein "x" setzen.
Danke!
Gruß
Tobias
30.09.2008 15:15:51
Thread-ID: 1013415
4 Beiträge
Neuer Name -> neues WorkSheet
Manu

Hallo Leute,
kann mir irgendjemand weiterhelfen? bin voll am verzweifeln!!!
Ich möchte gern ein Makro haben wo ich einen Namen den ich in ein Feld schreibe, als neues Blatt angelegt bekomme. Habs folgenderweise mit dem Makrorecorder versucht...
Sub NeuerName Rows("20:20").Select S...
06.10.2008 17:11:00
Thread-ID: 1014491
5 Beiträge
Anzeige
2 Tabellen verbinden ->zeilenweiser Mengenabgleich
Mike

Hallo erstmal,
als begeisterter Forumsleser habe ich schon viele Tage hier verbracht. Jetzt traue ich mich einmal hinein und hoffe auf Eure Hilfe.
Ich habe 2 laaange Tabellen. In Tabelle1 stehen (neben anderen Daten)
Teilenummer, Auftragsnummer, (Lieferwoche) und Stück und in Tabel...
16.10.2008 11:37:00
Thread-ID: 1016808
8 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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