Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Zeilenumbrüche aller Zellen per VBA löschen

Zeilenumbrüche aller Zellen per VBA löschen
Knierim
Hallo zusammen
ich bearbeite immer wieder eine Datei wo in mehreren Zellen nach einem Zeilenumbruch ein Wert Bsp 501010105 steht. Meine Frage kann man mit Hilfe eines VBA Code diesen Wert nach einen Zeilenumbruch und den Zeilenumbruch selbst löschen?
Die Zeilenumbrüche sind immer in Spalte F und J
Für Eure Hilfe und Mitarbeit im Vorraus besten Dank
Gruß Peter
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Zeilenumbrüche aller Zellen per VBA löschen
18.02.2006 13:01:46
Worti
Hallo Peter,
mit dem folgenden Code geht das:


      
Sub Zeilenumbruchweg()
     
    
Dim c As Range
    
    
For Each c In ActiveSheet.UsedRange
        
If InStr(1, c.Value, Chr(10)) > 0 Then
           c.Value = Mid(c.Value, 1, InStr(1, c.Value, Chr(10)))
        
End If
    
Next c
End Sub
 


Gruß Worti
Anzeige
AW: Zeilenumbrüche aller Zellen per VBA löschen
18.02.2006 13:48:03
Knierim
Hallo
erstmal Danke
soweit die richtige Lösung könnte man den Zeilenumbruch auch noch löschen
So wie jetzt muß man immer noch in jede Zelle und die Rücktaste drücken
(Taste über Enter)
Gruß Peter
AW: Zeilenumbrüche aller Zellen per VBA löschen
18.02.2006 13:52:21
Nepumuk
Hallo Peter,
klar:
Sub Zeilenumbruchweg()
    Dim c As Range
    For Each c In ActiveSheet.UsedRange
        If InStr(1, c.Value, Chr(10)) > 0 Then
            c.Value = Mid(c.Value, 1, InStr(1, c.Value, Chr(10)) - 1)
        End If
    Next c
End Sub

Gruß
Nepumuk

Anzeige
AW: Zeilenumbrüche aller Zellen per VBA löschen
18.02.2006 13:59:20
Knierim
Hallo
funktioniert prima besten dank
Gruß Peter
;

Forumthreads zu verwandten Themen

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige