Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1256to1260
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
1256to1260
1256to1260
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilen untereinander jetzt nebeneinander

Zeilen untereinander jetzt nebeneinander
Arthur
Hallo zusammen
Ich habe eine /A/ lange Zeile voller Daten. Die Artikel Nummer und der Artikel Name von vielen verschiedenen Produkten.
Jetzt möchte ich in B die Artikelnummern und in C die Artikelnamen haben. Wenn ich alles in A kopiere und per Spezial einfügen - Transponieren gehts nicht, weil dann habe ich einfach alles waagerecht, aber ich brauche ja immer nur 2 die waagerecht sind (Nummer + Name)
12345
Hammer
345
Schaufel
4565
Schraubenzieher
zu
B C
12345 Hammer
345 Schaufel
4565 Schraubenzieher
Wie kann ich das möglichst einfach lösen?
Vielen Dank für eure Hilfe
Arthur
AW: Zeilen untereinander jetzt nebeneinander
16.04.2012 16:14:30
Beverly
Hi Arthur,
eine Möglichkeit: 
Sub Transponieren()
Dim lngZeile1 As Long
Dim lngZeile2 As Long
lngZeile1 = 1
lngZeile2 = 1
Do
Cells(lngZeile2, 2) = Cells(lngZeile1, 1)
Cells(lngZeile2, 3) = Cells(lngZeile1 + 1, 1)
lngZeile2 = lngZeile2 + 1
lngZeile1 = lngZeile1 + 2
Loop While Cells(lngZeile1, 1)  ""
End Sub


AW: Zeilen untereinander jetzt nebeneinander
16.04.2012 16:29:37
Arthur
Vielen Dank für deine Hilfe.
Aber wie ändere ich das Makro zu meinen Bedürfnissen ab, in dieser Form tut sich leider nichts.
Daten sind alle in Spalte A
Anzeige
AW: Zeilen untereinander jetzt nebeneinander
16.04.2012 16:41:12
Beverly
Hi Artur,
der Code ist auf Spalte A des aktiven Tabellenblattes ausgerichtet und beginnt ab Zeile 1. Da ich deine Tabelle nicht kenne, kann ich leider nichts weiter dazu sagen.

AW: Zeilen untereinander jetzt nebeneinander
16.04.2012 17:02:00
Arthur
okay, ja jetzt habe ichs gemerkt, es fängt bei A1 an.
WIe kann ich den Code ändern, das ich eine .Range auswählen kann, z.B. A5:A6743?
AW: Zeilen untereinander jetzt nebeneinander
16.04.2012 18:13:28
Beverly
Hi Arthur,
auf welche Weise soll der Bereich ausgewählt werden?

Anzeige
AW: Zeilen untereinander jetzt nebeneinander
16.04.2012 18:24:13
Arthur
Nichts automatisches, ich weiss das die Daten von A5 bis A6543 sind, das ich manuell im Makro A5:A6543 reinschreiben kann.
Vielleicht verändert sich es später nochmals (1-2 Zeilen mehr), dann kann ich auf A5 bis A6545 ändern.
AW: Zeilen untereinander jetzt nebeneinander
16.04.2012 18:27:36
Hajo_Zi
Hallo Arthuir,
in Deiner Version hast Du nicht soviele Zeilen max ist bei 65536

AW: Zeilen untereinander jetzt nebeneinander
16.04.2012 18:40:18
Beverly
Hi Hajo,
da hast du dich vertan - der Code soll nur bis 6545 laufen.

Anzeige
AW: Zeilen untereinander jetzt nebeneinander
16.04.2012 18:38:48
Beverly
Hi Arthur,
wenn der Code ab Zeile 5 beginnen soll, dann musst du nur diese beiden Zeilen ändern: 
   lngZeile1 = 5
lngZeile2 = 5

Er läuft automatisch so lange durch, bis die erst freie Zelle in Spalte A auftaucht.

AW: Zeilen untereinander jetzt nebeneinander
16.04.2012 18:51:36
Arthur
Danke vielmals für deine Antwort.
Durch ausprobieren habe ich das rausgefunden mit lingzeile = 5.
Das Problem ist nur, dass manchmal leere Zeilen vorkommen, darum dachte ich ein Range zum auswählen wäre sinnvoll. Kannst du mir weiterhelfen?
Anzeige
AW: Zeilen untereinander jetzt nebeneinander
16.04.2012 19:38:40
Beverly
Hi Arthur,
da müsstest du schon mal ein konkretes Beispiel hochladen, damit man sich das mal genau ansehen und den Code entsprechend anpassen kann.
Sollen bei Leerzeilen diese auch in der "transponierten" Liste vorhanden sein oder sollen die Werte in diesem Fall lückenlos aufgelistet werden?

AW: Zeilen untereinander jetzt nebeneinander
16.04.2012 20:45:50
Beverly
Hi Arthur, 
Sub Transponieren()
Dim lngZeile1 As Long
Dim lngZeile2 As Long
lngZeile2 = 5
For lngZeile1 = 5 To IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row,  _
Rows.Count) Step 2
Cells(lngZeile2, 2) = Cells(lngZeile1, 1)
Cells(lngZeile2, 3) = Cells(lngZeile1 + 1, 1)
lngZeile2 = lngZeile2 + 1
Next lngZeile1
End Sub


Anzeige
AW: Zeilen untereinander jetzt nebeneinander
16.04.2012 21:16:55
Arthur
Vielen Dank Karin!
Aber es funktioniert noch nicht ganz Wunschgemäss. Anstatt bei Materialnummer und Materialtext eine zelle lehr zu lassen, fängt das Makro bereits beim Materialtext das neue Produkt einzufügen. Was ja falsch ist.
Sorry für die Umstände, aber könntest du dies noch abändern?
Vielen lieben Dank!!
AW: Zeilen untereinander jetzt nebeneinander
17.04.2012 08:34:47
Beverly
Hi Arthur,
der Code sortiert die Materialnummern in Spalte B ein und und den Materialtext in Spalte C. So war deine Ausgangsfrage. Ich verstehe also nicht, was nun plötzlich daran falsch sein soll.
Sheet1
 BC
4Material numberMaterial Text
5wca_020.0205LAG FLUO YW 200.5mm
620,022LAG FLUO YOW 202.0mm
720,025UT FLAG F
820,028WHEL m
920,02WHG FLUO YELLOW
1020,03WHEEL NA
11020.03.BKWHEEL mm BULK
1220,037WHEEm
13  G FLOW 33.0m
1420,03 
15  WHEELULK
16375 

Tabellendarstellung in Foren Version 5.48



Anzeige
AW: Zeilen untereinander jetzt nebeneinander
17.04.2012 14:01:58
Arthur
Hallo Karin
Ja genau, so sollte es eigentlich sein. Aber wenn ich das Makro ausführe, steht plötzlich eine Materialnummer bei einer Materialbeschreibung.
https://www.herber.de/bbs/user/79833.xls
AW: Zeilen untereinander jetzt nebeneinander
17.04.2012 14:28:44
Beverly
Hi Arthur,
die Auflistung aus meinem vorhergehenden Beitrag habe ich mit meinem Code erstellt - nicht von Hand und dort ist sie genau so wie sie sein sollte: in Spalte B die Materialnummer und in Spalte C der Materialtext.
Damit ein Code funktionieren kann, benötigt es einer gewissen Systematik, die man in Code umsetzen kann. In der vorigen Arbeitsmappe ergab sich eine Systematik aus den leere Zellen, diese habe ich in Code umgesetzt. In deiner jetzigen Arbeitsmappe ist das eine andere Zusammenstellung als zuvor und dieser liegt keine nachvollziehbare/umsetzbare Systematik zugrunde. Wie soll Excel denn erkennen, ob der Zellinhalt nun eine Materialnummer oder ein Materialtext sein soll? Materialnummer und auch Materialtext enthalten teilweise sowohl Ziffern als auch Text - also keine Möglichkeit zu unterscheiden und damit festzulegen, was Materialnummer und was Materialtext ist. Somit auch keine Möglichkeit, eine Zuordnung per Code in die betreffenden Spalten vorzunehmen.

Anzeige
AW: Zeilen untereinander jetzt nebeneinander
16.04.2012 16:42:38
Rolf
Hallo Arthur,
stehen die Daten wirklich so - wie in deiner Frage angegeben - in deiner Tabelle, also z.B. in Zelle A1
"12345
Hammer?"
Oder in Zelle A1 "12345" und in Zelle A2 "Hammer"?
Gruß, Rolf
AW: Zeilen untereinander jetzt nebeneinander
16.04.2012 16:48:22
Arthur
A1 12345
A2 Hammer
A3 345
A4 Schaufel
Dies soll jetzt zu
B1 12345 B2 Hammer
C1 345 C2 Schaufel
werden.

303 Forumthreads zu ähnlichen Themen

Frage - Spalten einfügen & Spalten untereinander z
André

Hallo zusammen!
Ich habe da als blutiger Anfänger in VBA zwei Fragen:
1.) Wie kann ich in meiner Tabelle in jeder zweiten Spalte 4 leere Spalten einfügen lassen?
2.) Dann möchte ich unter den Inhalt der ersten fünf Spalten (A-E) den Inhalt der zweiten 5 Spalten (F-J) usw. In der grö...
08.08.2008 16:00:00
Thread-ID: 1000340
3 Beiträge
Anzeige
Spalten in Zeilen anhängen
Jörg

Hallo zusammen,
in einer Tabelle mit ~1000 Artikeln in Spalte A stehen jeweils in den Spalten B-M die 12 zum Artikel gehörenden Monatswerte des Verbrauchs.
Ich brauche diese Daten jetzt so angeordnet, dass weiterhin alle Artikel in Spalte A stehen, jedoch die einzelnen Monatswerte unter...
01.09.2008 18:03:42
Thread-ID: 1006570
11 Beiträge
Zelleninhalt (Text) in 2 Spalten teilen
El.

Hallo!
Habe eine Spalte in der Artikelname und Artikelmerkmale, durch drei Punkte getrennt "...", zusammen stehen. Beispiel: Lecker Whisky 21 Jahre ... Lieferung in hochwertiger Schatulle
Wie krieg ich nun den Text links der Punkte in eine extra Spalte und rechts der Punkte in eine extr...
03.09.2008 16:35:00
Thread-ID: 1007155
4 Beiträge
Anzeige
Spaltentrennzeichen nach speichern in Text-Datei
Michael

Hallo
ich habe ein Problem. Vielleicht ist es schwierig, vielleicht aber auch nicht.
Ich habe eine Text-Datei mit Spaltentrennzeichen "|" (besser als ";" der Übersichtlichtlichkeit halber) und verschiedenen Längen der Spalten.
Ich will diese in Excel überarbeiten und als Text-Dat...
11.09.2008 09:28:00
Thread-ID: 1008978
3 Beiträge
Text in Spalten
Simone

Hallo zusammen,
ich hab ein wohl eher triviales Problem, komme aber trotzdem einfach nicht weiter.
Ich füge in ein Arbeitsblatt Daten aus einem anderen Programm ein. Jetzt habe ich mehrmals die Funktion 'Text in Spalten' verwendet / ausprobiert, und wenn ich jetzt wieder Daten in A1 ein...
16.09.2008 13:54:00
Thread-ID: 1010092
3 Beiträge
Zeilen löschen in Abhängigkeit von 2 Spalten
2

Hallo zusammen,
ich habe ein Makro über den Rekorder aufgezeichnet und versuche es anzupassen. Leider kenn ich mich in der Syntax nicht aus.
Ziel:
In einem markierten Bereich die Zeilen löschen, die in Abhängigkeit von zwei Spalten eine 0 enthalten.
D.h. Spalten X und Y enthalte...
06.10.2008 14:00:00
Thread-ID: 1014434
3 Beiträge
TextBox Werte in Spalte Q ersetzen ?
Selma

Hallo Leute,
ich habe eine Frage zu UserForm. Beim Klick auf CommandButton1 sollen die Zahlen aus TextBox1 mit Werten in Spalte Q ab Zeile 12 ersetzt werden. Dies soll nur dann erfolgen, wenn in TextBox1 die Zahlen stehen bzw. der TextBox gefüllt ist.
Ersetzt sollen nur die vorhandene W...
13.10.2008 15:42:00
Thread-ID: 1016083
3 Beiträge
Text in Spalten
Tom

Hallo,
ich möchte mit der Funktion Text in Spalten erreichen, dass alle Zeilen, die mit einer Zahl beginnen, nach der Zahl in eine neue Spalte geschoben werden - nur finde ich hierfür nur die Funktionen nach Leerzeichen, Komma usw...
Wer hat ne Lösung?
In A1: 1020 Maier Huber Mülle...
20.10.2008 14:09:42
Thread-ID: 1017654
7 Beiträge
Anzeige

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
2
3
10
3
3
2
2
2
2
6
3
2
2
2
2
4
4
8
4
5
4
2
5
3
4