Herbers Excel-Forum - das Archiv

Excel Zellen zusammenführen

Bild

Betrifft: Excel Zellen zusammenführen
von: Artuk
Geschrieben am: 22.09.2003 08:00:23
Guten morgen alle zusammen,

habe folgende Frage: Ich habe einen Text der ziemlich lang ist. In jeder Zeile ist ein Satz. Ich würd jetzt gern diesen Text in eine Zelle machen. Wie kann ich das tun ohne ständig die einzelnen Sätze zu kopieren und einfügen. Kann ich irgendwie die einzelnen Zellen mit den Sätzen zu einer verbinden ?

Danke schön

Artur

Bild

Betrifft: AW: Excel Zellen zusammenführen
von: Hajo_Zi
Geschrieben am: 22.09.2003 08:01:34
Hallo Artur

=A1 & " " & A2


Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.

Zurzeit gibt es wieder Probleme mit der E-Mail Benachrichtigung.

Ich bekomme Mails zu Beiträgen an denen ich nicht beteiligt bin und zusätzlich noch Mails zu meinen eigenen Beiträgen.
Das Problem mit den eigenen Benachrichtigung kann gelöst werden durch Lösche und Neuanmelden. Dieses möchte ich aber nicht jeden Tag machen.
Um dieses Problem erstmal zu beseitigen habe ich die automatische Mailbenachrichtigung abgeschaltet.
Aus diesem Grunde ist es dem Zufall überlassen ob auf Rückfragen Antworten von mir kommen.


http://home.media-n.de/ziplies/

Bild

Betrifft: AW: Excel Zellen zusammenführen
von: Artuk
Geschrieben am: 22.09.2003 08:11:42
Danke für die schnelle Antwort, aber das ist nicht ganz das was ich brauche. Mit dieser Formel müssen ja die ursprünglichen Sätze stehen bleiben?
Du musst dir das so vorstellen : Ich habe drei Zellen mit je einem Satz, die untereinander sind. Danach sollen alle drei Sätze in der ersten Zelle sein und die anderen zwei möchte ich löschen.
Bild

Betrifft: AW: Excel Zellen zusammenführen
von: Hajo_Zi
Geschrieben am: 22.09.2003 08:14:15
Hallo Artuk

ein Hallo zu Beginn und ein Gruß am Ende läst den Beitrag doch gleich viel freundlicher aussehen. Auch wenn Du den Beitrag am Computer eingibst sitzen an der anderen Seite doch Leute und keine Maschinen die Deine Frage beantworten und da sollte Zeit für die paar Worte doch vorhanden sein.

Zelle mt Formel kopieren, Bearbeiten, Inhalte Einfügen, Werte


Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.

http://home.media-n.de/ziplies/

Bild

Betrifft: AW: Excel Zellen zusammenführen
von: Artuk
Geschrieben am: 22.09.2003 08:33:50
Hallo Hajo,

das geht zwar alles wunderbar, jedoch dauert es zu lange. Geht das irgendwie ohne Formelanwendung? Ich habe nämlich sehr viel Text.

Gruß Artur
Bild

Betrifft: AW: Excel Zellen zusammenführen
von: Hajo_Zi
Geschrieben am: 22.09.2003 08:36:35
Hallo Artuk

das kommt davon, wenn man die Aufgabe nich komplett beschreibt. Wir hier im Forum können nur eine Lösung auf der Grundlage der Informationen im Beitrag machen.

Es haben hier nur wenige eine Glaskugel, oder Heiligenschein oder können auf Deinen Rechner schauen.


Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.

http://home.media-n.de/ziplies/

Bild

Betrifft: AW: Excel Zellen zusammenführen
von: Artuk
Geschrieben am: 22.09.2003 08:45:06
Hallo Hajo

die Aufgabe ist folgende :
Ich habe eine Tabelle mit Maschinendaten. Die Maschinen sind nummeriert von 1 bis ...
Zu jeder Maschine gehört eine Beschreibung. Diese Beschreibung ist aber leider mal länger oder kürzer. d.h. Für eine Maschine hat die Beschreibung mal 3 Sätze, die je in einer Zelle stehen, die andere Maschine wird nur in zwei Sätzen beschrieben, die in zwei Zellen stehen. Ich möchte jetzt die Beschreibungen für jede Maschine in je eine Zelle schreiben, damit ich die Daten später zuordnen kann.

Gruss Artuk
Bild

Betrifft: AW: Excel Zellen zusammenführen
von: artuk
Geschrieben am: 22.09.2003 09:13:53
bitte HELFT MIR!!!!!!!
Bild

Betrifft: AW: Excel Zellen zusammenführen
von: Hajo_Zi
Geschrieben am: 22.09.2003 09:16:47
Hallo Artuk

die Erklärung ist noch nicht besser als bisher. Vielleicht solltest Du mal bedenken eine Tabelle ist besser als tausend Worte. Benutze mal die Möglichkeit eine Datei hochzuladen und schreibe gleich rein wie es aussehen soll.


Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.

http://home.media-n.de/ziplies/

Bild

Betrifft: AW: Excel Zellen zusammenführen
von: artuk
Geschrieben am: 22.09.2003 09:27:20
Hallo Hajo

habe die Datei angehangen, Bitte um Hilfe
https://www.herber.de/bbs/user/1114.xls

Danke

Gruss Artur
Bild

Betrifft: AW: Excel Zellen zusammenführen
von: Hajo_Zi
Geschrieben am: 22.09.2003 09:47:55
Hallo Artuk

ich hoffe das ich es richtig verstanden habe

Sub Umordnen()
'   erstellt von Hajo.Ziplies@WEB.DE am 22.09.03
' http://home.media-n.de/ziplies/
Dim LoLetzte As Long, LoZeile As Long
Dim BoI As Boolean
With Worksheets("Tabelle1")
LoLetzte = .UsedRange.SpecialCells(xlCellTypeLastCell).Row
For LoZeile = LoLetzte To 1 Step -1
If .Cells(LoZeile, 1) <> "" Then
' erste Zeile erreicht
.Cells(LoZeile, 16) = .Cells(LoZeile, 16) & " " & .Cells(LoZeile + 1, 16)
.Rows(LoZeile + 1).Delete
BoI = False
Else
If BoI = True Then
.Cells(LoZeile, 16) = .Cells(LoZeile, 16) & " " & .Cells(LoZeile + 1, 16)
.Rows(LoZeile + 1).Delete
Else
BoI = True
End If
End If
Next LoZeile
End With
End Sub



Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.

http://home.media-n.de/ziplies/

Bild

Betrifft: AW: Excel Zellen zusammenführen
von: artuk
Geschrieben am: 22.09.2003 10:06:22
Hallo Hajo

WOW,Perfekt,genau das wollte ich wissen. Eine kleine Frage noch. Wie kann ich diesen Code auf einen anderen Tabelle anwenden? Muss ich irgendwas ändern? Zellen nummern oder so? Hab nicht so viel Ahnung von VBE

Gruss Artuk
Bild

Betrifft: AW: Excel Zellen zusammenführen
von: Hajo_Zi
Geschrieben am: 22.09.2003 10:09:42
Hallo Artuk

ersetze

With Worksheets("Tabelle1")

durch
With ActiveSheet

dann wird es immer auf der aktuellen Tabelle ausgeführt.


Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.

http://home.media-n.de/ziplies/

Bild

Betrifft: AW: Excel Zellen zusammenführen
von: artuk
Geschrieben am: 22.09.2003 10:19:23
Hallo Hajo

hab diesen Code einfach in meine neue Tabelle eingefügt, er löscht mir aber alles.
Was kann ich machen
Hab sie als Anhang eingefügt.
Sorry die Umstände,aber es ist wichtig.
https://www.herber.de/bbs/user/1116.xls

Danke
Gruss

Artur
Bild

Betrifft: AW: Excel Zellen zusammenführen
von: Hajo_Zi
Geschrieben am: 22.09.2003 10:24:39
Hallo Artuk

die Beispieltabelle sollte auch schon so aussehen wie die endgültige Tabelle, ansonsten ist das Programm meistens Falsch.

Sub Umordnen()
'   erstellt von Hajo.Ziplies@WEB.DE am 22.09.03
' http://home.media-n.de/ziplies/
Dim LoLetzte As Long, LoZeile As Long
Dim BoI As Boolean
'With Worksheets("Tabelle1")
With ActiveSheet
LoLetzte = .UsedRange.SpecialCells(xlCellTypeLastCell).Row
For LoZeile = LoLetzte To 4 Step -1
If .Cells(LoZeile, 1) <> "" Then
' erste Zeile erreicht
.Cells(LoZeile, 16) = .Cells(LoZeile, 16) & " " & .Cells(LoZeile + 1, 16)
.Rows(LoZeile + 1).Delete
BoI = False
Else
If BoI = True Then
.Cells(LoZeile, 16) = .Cells(LoZeile, 16) & " " & .Cells(LoZeile + 1, 16)
.Rows(LoZeile + 1).Delete
Else
BoI = True
End If
End If
Next LoZeile
End With
End Sub



Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.

http://home.media-n.de/ziplies/

Bild

Betrifft: AW: Excel Zellen zusammenführen
von: artuk
Geschrieben am: 22.09.2003 10:31:16
Hallo Hajo

vielen,vielen Dank. Es hat jetzt geklappt. Läuft alles super. Sehr gute Arbeit.
DANKE !!!!

Gruss

Artuk
Bild

Betrifft: Danke für die Rückmeldung oT
von: Hajo_Zi
Geschrieben am: 22.09.2003 10:31:52
 Bild
Excel-Beispiele zum Thema " Excel Zellen zusammenführen"
Makros in Abhängigkeit vom Zellennamen aufrufen Zellen auf Kommentar überprüfen
Spalten bedingt summieren und Zellen formatieren Text aus Textbox in Zellen aufteilen
Zellen vergleichen und markieren Zählen formatierter Zellen
Daten aus Textdatei gezielt in Zellen übernehmen Zellen verbinden und trennen
Zellen bei Minuswerten schraffieren Zeilen oberhalb der markierten Zellen einfügen