Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1508to1512
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
1508to1512
1508to1512
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Text aus Zellen in andere Zellen vor dessen Text k

Text aus Zellen in andere Zellen vor dessen Text k
25.08.2016 16:27:24
rieckmann
Hallo liebe Excel Profis,
ich habe eine lange Datenliste.
Nun möchte ich den Text in den Zellen von Spalte "O" vor den Text in Spalte "M" mit abschließenden Komma kopieren.
Die Überschriften in Zeile 1 sollen nicht berücksichtigt werden.
Hätte da jemand eine Lösung ?
Wie ich schon erwähnte, es ist sind ca. 3000 Zeilen.
Gruß
Fred

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Text aus Zellen in andere Zellen vor dessen Text k
25.08.2016 17:28:29
Michael
Hallo Fred!
Hätte da jemand eine Lösung ?
Naja sicher, denn grds. ist das ja selbst manuell ein Klacks:
1. Verkette in einer Hilfspalte die Werte aus O:O und M:M mit dem gewünschten Trennzeichen (Funktion VERKETTEN(...;...;...) oder auch nur mit "&")
2. Kopiere die Werte der Hilfspalte und füge sie als Werte in Spalte O:O ein
3. Lösche die Hilfsspalte
Wenn das nicht das ist was Du suchst, musst Du präziser werden. Bzw. falls Du diesen Vorgang als Makro brauchst.
es ist sind ca. 3000 Zeilen.
Das kann kein Problem sein bei dem Vorgang.
LG
Michael
Anzeige
AW: Text aus Zellen in andere Zellen vor dessen Text k
25.08.2016 17:42:05
rieckmann
Hallo Michael,
besser wäre eine VBA-Lösung, da es sich um mehrere Tabellenblätter mit so vielen Datensätzen handelt.
(Evt. noch eine Auswahl für welches Tabellenblatt es so angewendet werden soll.
Ist aber nicht so wichtig !)
Eine Hilfsspalte könnte ab Spalte "AA" genommen werden.
Hier einmal eine BeispielMappe
https://www.herber.de/bbs/user/107839.xls
Gruß
Fred
Okay, schaue ich mir morgen an, melde mich! owT
25.08.2016 19:28:49
Michael
Teste mal...
26.08.2016 10:06:09
Michael
Hallo Fred,
...folgenden Code:
Sub a()
Const TRENNER As String = ", "
Dim Wb As Workbook
Dim Ws As Worksheet
Dim Sp1, Sp2, i&
Set Wb = ThisWorkbook
Set Ws = Wb.Worksheets(1)
With Ws
Sp1 = Application.Transpose(.Range("M2:M" & _
.Cells(.Rows.Count, 13).End(xlUp).Row))
Sp2 = Application.Transpose(.Range("O2:O" & _
.Cells(.Rows.Count, 15).End(xlUp).Row))
For i = LBound(Sp1) To UBound(Sp1)
Sp1(i) = Sp2(i) & TRENNER & Sp1(i)
Next i
.Range("M2:M" & .Cells(.Rows.Count, 13).End(xlUp).Row) = _
Application.Transpose(Sp1)
End With
Erase Sp1
Erase Sp2
Set Wb = Nothing
Set Ws = Nothing
End Sub
Dieser muss in ein allgemeines Modul, und wirkt in der jeweiligen Mappe auf dem ersten Tabellenblatt; ggf. musst Du diese Zeile entsprechend anpassen für ein anderes Blatt

Set Ws = Wb.Worksheets(1)
Set Ws = Wb.Worksheets(2)
Set Ws = Wb.Worksheets(3)
usw. usf.
Die Zellwerte aus M2:Mx werden jetzt aus den Zellwerten von O2:Ox, einem Trenner (hier Komma + Leerzeichen) und den Zellwerten von M2:Mx gebildet. Hab's jetzt gleich mit Arrays gemacht, ohne Hilfsspalte und Formeln.
LG
Michael
Anzeige
Oder noch besser...
26.08.2016 10:14:28
Michael
Hi Fred,
...mein obiger Code funktioniert, aber noch schlanker ist diese Variante (spart ein Array, ich bin noch müde ;-) ):
Sub b()
Const TRENNER As String = ", "
Dim Wb As Workbook
Dim Ws As Worksheet
Dim Sp1, i&
Set Wb = ThisWorkbook
Set Ws = Wb.Worksheets(1)
With Ws
Sp1 = .Range("M2:O" & .Cells(.Rows.Count, 15).End(xlUp).Row)
Debug.Print LBound(Sp1), UBound(Sp1)
For i = LBound(Sp1) To UBound(Sp1)
Sp1(i, 1) = Sp1(i, 3) & TRENNER & Sp1(i, 1)
Next i
.Range("M2:O" & .Cells(.Rows.Count, 15).End(xlUp).Row) = Sp1
End With
Erase Sp1
Set Wb = Nothing
Set Ws = Nothing
End Sub
LG
Michael
Anzeige
AW: Oder noch besser...
26.08.2016 12:43:25
rieckmann
Hallo Michael,
Hut ab, das klappt sehr gut.
Vielen Dank für deine Mühe.
Du hast mir eine Menge Arbeit erspart.
Ich wünsche dir noch einen schönen Tag
Gruß
Fred
Immer gern, schönes Wochenende! owT
26.08.2016 12:54:13
Michael
AW: Text aus Zellen in andere Zellen vor dessen Text k
25.08.2016 17:28:38
Michael
Hallo Fred!
Hätte da jemand eine Lösung ?
Naja sicher, denn grds. ist das ja selbst manuell ein Klacks:
1. Verkette in einer Hilfspalte die Werte aus O:O und M:M mit dem gewünschten Trennzeichen (Funktion VERKETTEN(...;...;...) oder auch nur mit "&")
2. Kopiere die Werte der Hilfspalte und füge sie als Werte in Spalte O:O ein
3. Lösche die Hilfsspalte
Wenn das nicht das ist was Du suchst, musst Du präziser werden. Bzw. falls Du diesen Vorgang als Makro brauchst.
es ist sind ca. 3000 Zeilen.
Das kann kein Problem sein bei dem Vorgang.
LG
Michael
Anzeige

363 Forumthreads zu ähnlichen Themen

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
Anzeige
Zeichenkette in einer Zellesuchen
Gordon

Moin,
ich habe in einer Zelle (A1) einen Namen plus ein Datum dazu stehen: "Max Mustermann (01.01.1900)"
Nun möchte ich überprüfen, ob diese Zeichenkette, also Name plus Datum, nochmals in der Zelle A2 steht.
In der Zelle A2 stehen mehrere dieser Zeichenketten. Diese sind in einer...
26.09.2008 12:54:00
Thread-ID: 1012601
4 Beiträge
in spalte müssen 2 gleiche zahlen vorh. sein ...
Jessi

hallo zusammen,
suche nach einem makro, dass in spalte A überprüft ob von den dort geschriebenen zahlen jeweils zwei gleiche vorhanden sind. es geht um eine doppelbelegung eines zimmers. die zahl ist die zimmer-nr.
wäre z.b. nur einmal eine zahl in der spalte, wäre es möglich in das jew...
04.10.2008 15:33:00
Thread-ID: 1014154
5 Beiträge
Anzeige
Unicode-Zeichen in Textfeld von Userform
Userform

Hallo,
Ich bin auf der Suche nach gut praktikablen Möglichkeiten in ein Textfeld eines Userforms Unicode-Zeichen (z.B. ć kleines c mit Akut - Code 0107 oder č kleines c mit Caron - Code 010D) einzutippen.
Danke im voraus für alle Tipps!
Grüße
Günther
12.10.2008 12:34:00
Thread-ID: 1015836
5 Beiträge
Eine Zahl mit vorhandener Zahlenliste vergleichen
Niklas

Hallo Leute!
Es geht darum, eine eingegebene Zahl mit einer vorhandenen Zahlenliste vergleichen und die beiden nächstgelegenen Zahlen der Zahlenliste verwenden!
zur veranschaulichung:
ich habe die die zahlenliste : 1 , 2, 3, 4, 5, 6, 7
der eingegebene Wert ist z.B 1.5 dann soll...
17.10.2008 09:49:22
Thread-ID: 1017045
8 Beiträge
vorgegebene Summe aus Zahlen berechnen
mArsupiLami

Moin!
Ich benötige um regelmäßige Fehlerkorrekturen laufen zu lassen ein Script, dem ich eine Summe vorgebe und eine Range aus Zahlen (von mir aus Zellen A:A), das mir die Zusammenstellung aus Zahlen berechnet, die meine gesuchte Summe ergeben (Noch besser: Alle Kombinationen aus der Zahlen...
21.11.2008 11:25:35
Thread-ID: 1026668
6 Beiträge
Zelle des erstes Vorkommen eines Zeichens ausgeben
-s

Hallo Forum,
ich habe in Zeile 1 in jeder Spalte einen Buchsteben stehen:
a|b|c|c|c|e|
Wie kann ich die Zelle ausgeben lassen, in der beispielsweise das "c" das erste mal vorkommt? Als Ergebnis soll dann C1 ausgegeben werden.
Besten Dank!
-s
07.12.2008 21:32:00
Thread-ID: 1030929
4 Beiträge
Autofilter - Anzahl vorh. Sätze
KViertel

Hallo in die Runde,
In einem Tabellenblatt wird In VBA ein Autofilter gesetzt. Die dabei angezeigten Sätze sollen in ein anderes Tabellenblatt kopiert werden. Wenn jetzt keine Sätze vorhanden sind, wird die Sub abgebrochen. In der Recherche habe ich einen Hinweis zu Subtotal gefunden, weiß...
11.12.2008 11:45:00
Thread-ID: 1031999
3 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
11
3
4
3
4
7
5
3
2
4
2
2
5
2
7
11
2
4
4
3
4
5
10
2