Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 16:19:42
SummeWenn / SummeWenns mit Bedingung wenn kleiner als dann
24.04.2024 14:48:50
"Eingabefeld" zwischen zwei Zeilen geht nicht weg.
24.04.2024 14:40:10
Zeilenumbrüche in Textbox zählen
24.04.2024 14:06:20
Gesamte Column löschen, wenn Column-Bereich leer
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1448to1452
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
1448to1452
1448to1452
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Text in Zelle je Zeile am Anfang und Ende ergänzen

Text in Zelle je Zeile am Anfang und Ende ergänzen
22.09.2015 12:36:27
Ludewig
Eine Tabelle mit 4000 Zellen A1 bis A4000 mit Text und unterschiedlicher Zeilenanzahl soll je Zeile an Anfang mit +&+ und am Ende mit # ergänzt werden.
Vorher:
VDA 1600 L/min
mech. Volumendurchfluß-Anzeige, 0-1600 L/min
Beispiel
Nachher:
+&+VDA 1600 L/min#
+&+mech. Volumendurchfluß-Anzeige, 0-1600 L/min#
+&+Beispiel#
gibt es dafür ein Makro?

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

Betreff
Datum
Anwender
Anzeige
AW: Ohne VBA
22.09.2015 12:45:01
Michael
Hallo Ludwig!
Dazu brauchst Du nicht unbedingt VBA; in Spalte B könntest Du das so erreichen:
="+&+" & A1 & "#"
ab B2 nach unten kopieren. Willst Du die ursprünglichen Texte/Zellen nicht mehr, dann Spalte B kopieren und nochmal "nur Inhalte" einfügen. Dann Spalte A löschen.
LG
Michael

AW: Text in Zelle je Zeile am Anfang und Ende ergänzen
22.09.2015 12:52:46
yummi
Hallo Ludewig,
das kannst du ohne vba mit dem Befehl verketten machen.
Mit vba so in der Art 

dim i as long
dim j as integer
for i = 1 to 4000
j = 1
do while Cells(i,j).value  ""
Cells(i,j).value = "+&+" & Cells(i,j).value & "#"
j = j+ 1
loop
next i
Gruß
yummi

Anzeige
AW: Text in Zelle je Zeile am Anfang und Ende ergänzen
23.09.2015 14:51:18
Ludewig
Hallo!
Danke für Eure Antworten.
Ich hatte mich nicht richtig ausgedrückt.
Es sind mehrere Zeilen in einer Zelle vorhanden.
Und jede Zeile benötigt vor und hinter dem Text ein +&+ und #
Vorher:
(Zelle A1)
VDA 1600 L/min
mech. Volumendurchfluß-Anzeige, 0-1600 L/min
Beispiel
(Zelle A2)
Pumpe
Schraube
Mutter
U-Scheibe
Nachher:
(Zelle A1)
+&+VDA 1600 L/min#
+&+mech. Volumendurchfluß-Anzeige, 0-1600 L/min#
+&+Beispiel#
(Zelle A2):
+&+Pumpe#
+&+Schraube#
+&+Mutter#
+&+U-Scheibe#

Anzeige
genau das mqacht doch das makro
23.09.2015 16:34:39
yummi
hallo Ludewig
schau dir nochmal meine makro lösung an
gruß
yummi

AW: genau das mqacht doch das makro
23.09.2015 17:01:08
Ludewig
Hallo yummi,
habe ich gemacht, und es funktioniert auch. Aber wie schon gesagt es wird nur am Anfang und am Ende der Text in der Zelle ergänzt.
Ich benötige diese aber in jeder Zeile der Zelle.
gruß
Ludewig

AW: Text in Zelle je Zeile am Anfang und Ende erg
23.09.2015 17:12:36
matthias
Hallo Ludewig,
etwa so?: 
Sub Test()
Dim rZelle As Range
For Each rZelle In ActiveSheet.Cells.SpecialCells(xlCellTypeConstants, xlTextValues)
With rZelle
.Value = "+&+ " & .Value & " +&+"
.Value = Replace(.Value, Chr(10), " +&+" & Chr(10) & "+&+ ")
End With
Next rZelle
End Sub
lg Matthias

Anzeige
AW: Text in Zelle je Zeile am Anfang und Ende erg
23.09.2015 18:01:18
Ludewig
Hallo Matthias,
super!
Danke, das ist genau was ich gesucht habe.
Habe das erste Mal das Forum genutzt.An Alle DANKE für die schnellen Lösungsvorschläge.
Gruß
Ludewig

AW: Variante, mit kl. Anpassungsmöglichkeit
23.09.2015 17:25:45
Michael
Hallo Ludewig!
Matthias hat Dir ja schon perfekten Code geliefert - hier noch meine Version, da ich sie schon geschrieben hatte (leider zu langsam gewesen). Unterschied zu Matthias: Hier ist der von Dir gewünschte Bereich genau eingegrenzt (kannst Du dann leichter anpassen), bei Matthias wirkt der Code uU auch auf andere Spalten; außerdem hab ich Dir die Zeichen für vor und nach der Zeile in Variablen genommen - dann kannst Du hier mit anderen Zeichen austauschen, wenn Du möchtest.
Sub ZellZeilenErgaenzen()
Dim Zelle As Range
Dim Bereich As Range
Dim Prae As String
Dim Suff As String
Dim Text As String
Set Bereich = Range("A1:A4000")
Prae = "+&+" 'Zeichen am Anfang der Zeile
Suff = "#" 'Zeichen am Ende der Zeile
For Each Zelle In Bereich
Text = Prae & Zelle.Value & Suff
Text = Replace(Text, Chr(10), Suff & Chr(10) & Prae)
Zelle.Value = Text
Next
End Sub
LG
Michael
Anzeige

300 Forumthreads zu ähnlichen Themen

Userform Textboxinhalte in Zellen schreiben
Gerd

Guten Tag zusammen!
Bitte helft mir bei folgendem Problem:
In einer Userform habe ich eine ganze Reihe Textboxen, in die zum größten Teil Zahlen eingegeben werden.
Nun ist ja bekannt, dass beim Schreiben in Zellen der Inhalt der Textboxen als Text interpretiert wird. Mit der Anweisu...
11.08.2008 14:33:59
Thread-ID: 1000866
3 Beiträge
Anzeige
Textteile in Zellen mit Liste vergleichen
susidimarca

Hallo,
ich habe derzeit ein kniffeliges Excelproblem.
ich möchte gerne den Text in Zellen
hjgshgjdf Kriterium2 kjhfkjhfksdjhf
dskj Kriterium1 ajdhasjdhakjdhakdhajkdhajkdakj
daudzauizdaiudzaidzaisdz Kriterium3 kajhdasks
mit den Kriterium eine anderen Tabelle vergleichen...
21.08.2008 10:05:00
Thread-ID: 1003378
6 Beiträge
Wenn nur Text in Zelle...
MichiM

Hallo,
ich habe eine umfangreiche Artikelliste (ca. 250.000 Artikel) aus einer Datanormdatei erstellt.
Aus dieser muss ich jetzt alle Artikel entfernen, dessen Artikelnummer (in Spalte A; als Text formatiert, damit führende Nullen nicht gelöscht werden) keinerlei Zahlen enthalten.
E...
22.08.2008 16:24:44
Thread-ID: 1003960
4 Beiträge
Anzeige
Hintergrundfärbung in UserForm Textbox in Zelle...
Josef

Guten Morgen!
wie ich Daten über Userform TextBoxen in die Zellen zurückschreibe, dafür habe ich bereits eine Lösung.
Is es jedoch möglich einen gefärbten Hintergrund einer TextBox in die dafür vorgesehene Zelle zu übertragen?
Wenn ja, wie würde dann bitte eine VBA Lösung lauten?
28.08.2008 06:57:47
Thread-ID: 1005257
10 Beiträge
Automatisch Zeilen einfügen und Text reinschreiben
oblivion

Hallo,
hab folgendes Problem.
Ich habe ein Tabelle mit 4 Spalten. Wegen dem automatischen Zeilenumbruch habe ich keine vebundenen Zeilen.
In Excel ist die Zeilenhöhe ja auf 409 begrenzt. Ich habe aber teilweise Text der größere Spalten bräuchte.
Wenn ich die Spalte größer mach...
02.09.2008 20:54:00
Thread-ID: 1006942
5 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
Text verbinden und den Inhalt der Zelle ausgeben
Jörg

Hallo,
ich benötige etwas Hilfe, vermutlich für euch kein Problem:
in Zelle A1 möchte ich den Spaltenbuchstaben eintragen
in Zelle A2 möchte ich eine Zeilennummer eintragen
in Zelle A3 fehlt mir nun die Formel, mit der ich A1undA2 verbinden kann UND dann den Inhalt der Zelle aus...
19.09.2008 11:42:31
Thread-ID: 1010969
6 Beiträge
Textinhalte aus Zellen zusammenkopieren
zehetner

Liebe Profis,
ich habe die Ergebnisse einer Befragung in ein Excel-Sheet eingegeben, jeder Befragte in ein Registerblatt. Nun möchte ich die Antworten der Befragten, die in Textfeldern (immer in den selben, zB E145 stehen) gesammelt in eine neue Tabelle bringen.
Ziel ist es, die Antwort...
21.09.2008 18:29:25
Thread-ID: 1011343
2 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
4
5
3
5
9
4
3
5
1
2
1
5
2
2
6
4
6
1
4
6
4
2
1
2