Anzeige
Archiv - Navigation
732to736
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
732to736
732to736
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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

306 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige