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?
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ß
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
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
LGUm in Excel den Text in einer Zelle je Zeile am Anfang und Ende zu ergänzen, kannst Du sowohl ohne VBA als auch mit VBA arbeiten. Hier ist eine einfache Anleitung für beide Methoden:
Ohne VBA:
="&+;" & A1 & "#"Mit VBA:
ALT + F11.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 = "+&+"
Suff = "#"
For Each Zelle In Bereich
Text = Prae & Zelle.Value & Suff
Text = Replace(Text, Chr(10), Suff & Chr(10) & Prae)
Zelle.Value = Text
Next
End SubFehler: Die Formel funktioniert nicht oder zeigt einen Fehler an.
Fehler: Das Makro läuft nicht oder zeigt keine Ergebnisse.
Range("A1:A4000") anpassen, um sicherzustellen, dass er die richtigen Zellen enthält.Eine weitere Möglichkeit, den Text in Zellen zu ergänzen, besteht darin, die Funktion VERKETTEN zu verwenden:
=VERKETTEN("+&+"; A1; "#")Angenommen, Du hast folgende Daten in Zelle A1:
VDA 1600 L/min
mech. Volumendurchfluß-Anzeige, 0-1600 L/min
Beispiel
Nach Anwendung der oben beschriebenen Methode sollte der Inhalt von A1 so aussehen:
+&+VDA 1600 L/min#
+&+mech. Volumendurchfluß-Anzeige, 0-1600 L/min#
+&+Beispiel#
Wenn Du mehrere Zellen hast (z.B. A1 bis A2 mit mehreren Zeilen), wird jede Zeile entsprechend ergänzt.
TEXTVERKETTEN arbeiten möchtest, wenn Du in neueren Versionen von Excel arbeitest, um mehrere Texte effizient zu kombinieren.1. Wie kann ich den Text in einer Zelle um weitere Zeichen ergänzen?
Du kannst einfach die Variablen Prae und Suff im VBA-Code anpassen, um andere Zeichen zu verwenden.
2. Was passiert mit Zeilenumbrüchen in den Zellen?
Die oben genannten Methoden berücksichtigen Zeilenumbrüche, sodass sie in den Ergebnissen beibehalten werden.