Übertragene, programmierte Daten verändern

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub PunktWeg() Columns(1).Insert With Range(Cells(1, 1), Cells(Cells(Rows.Count, 2).End(xlUp).Row, 1)) .FormulaR1C1 = "=IF(RIGHT(RC[1],1)=""."",LEFT(RC[1],LEN(RC[1])-1),RC[1])" .Value = .Value End With Columns(2).Delete End Sub

Sub P() Dim i As Integer Dim Spalten As Integer For Spalten = 1 To 5 'für 1. bis 5. Spalte kannst du ändern For i = 1 To Cells(Rows.Count, Spalten).End(xlUp).Row If Right(Cells(i, Spalten), 1) = "." Then Cells(i, Spalten) = Left(Cells(i, Spalten) _ , Len(Cells(i, Spalten)) - 1) Next i Next Spalten End Sub

Hallo Anja,
etwas schneller als die Bearbeitung der einzelnen Zellen in zwei Schleifen müsste dies gehen: _ p>


Sub PunktWegSpalten()
Dim intC1 As Integer, intC2 As Integer, ii As Integer, lngL As Long
intC1 = 2   ' von-Spalte anpassen
intC2 = 4   ' bis-Spalte anpassen
For ii = intC1 To intC2
Columns(ii).Insert
With Range(Cells(1, ii), Cells(Cells(Rows.Count, ii + 1).End(xlUp).Row, ii))
.FormulaR1C1 = "=IF(ISBLANK(RC[1]),""""," _
& "IF(RIGHT(RC[1],1)=""."",LEFT(RC[1],LEN(RC[1])-1),RC[1]))"
.Value = .Value
End With
Columns(ii + 1).Delete
Next ii
End Sub
Sub PunktWegSpaltenB()
Dim intC1 As Integer, intC2 As Integer, ii As Integer, lngL As Long, strR As String
intC1 = 2   ' von-Spalte anpassen
intC2 = 4   ' bis-Spalte anpassen
For ii = intC1 To intC2
lngL = Application.Max(lngL, Cells(Rows.Count, ii).End(xlUp).Row)
Next ii
Range(Columns(intC1), Columns(intC2)).Insert
strR = "RC[" & intC2 - intC1 + 1 & "]"
With Range(Cells(1, intC1), Cells(lngL, intC2))
.FormulaR1C1 = "=IF(" & strR & "="""","""",IF(RIGHT(" & strR & ",1)="".""," _
& "LEFT(" & strR & ",LEN(" & strR & ")-1)," & strR & "))"
.Value = .Value
End With
Range(Columns(intC2 + 1), Columns(intC2 + intC1 + 1)).Delete
End Sub

Die erste Routine ist etwas einfacher, dafür ist PunktWegSpaltenB() bei vielen Spalten schneller.
In "PunktWegSpaltenB" werden mehrere Spalten zusammen eingefügt und später gelöscht,
der gesamte Bereich wird auf einen Schlag bearbeitet.
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Beliebteste Forumthreads (12 Monate)

Übertragene, programmierte Daten verändern

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Übertragene, programmierte Daten verändern

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread