Spalte prüfen und Wert ändern

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Ersetzen() Dim I As Long Dim ChkStr As String I = 6 With ActiveSheet Do Until .Cells(I, 6).Value = "" If InStr(.Cells(I, 6).Value, "+") > 0 Then ChkStr = Replace(.Cells(I, 6).Value, "+", "") .Cells(I, 6).Value = ChkStr End If I = I + 1 Loop End With End Sub

Das habe ich schon verstanden. Aber die Frage ist, was willst Du danach weiter machen mit dem Ergebnis 1E77.
Dein Problem tritt auf, weil Excel automatisch 1E77 als wissenschaftlichen Wert erkennt und dann das wissenschaftliche Format anwendet. Das kann umgangen werden in dem die Formatierung des Rückgabewertes zu gewählt wird das Excel es nicht mehr automatisch erkennt.
Dafür jibbet mehrere Möglichkeiten und die unterscheiden sich in der Art wie Du die Daten weiterverwenden willst.
Einfaches Beispiel: Man kann Zahlen als Text in Excel eintragen lassen, dann versuch aber nicht mit diesen Daten noch irgendwie zu rechnen ... Excel erkennt es nicht mehr als Zahl, sondern eben als Text und mit Text wird nicht gerechnet. ;)
Gruß
Rainer

Sub Ersetzen() Dim I As Long Dim ChkStr As String I = 6 With ActiveSheet Do Until .Cells(I, 6).Value = "" If InStr(.Cells(I, 6).Value, "+") > 0 Then .Cells(I, 6).NumberFormat = "@" ChkStr = Replace(.Cells(I, 6).Value, "+", "") .Cells(I, 6).Value = ChkStr End If I = I + 1 Loop End With End Sub

Option Explicit Sub Ersetzen7() Dim zz As Long zz = 6 With ActiveSheet Do Until IsEmpty(.Cells(zz, 7)) With .Cells(zz, 7) If InStr(.Text, "+") Then .NumberFormat = "@" .Value = Replace(.Text, "+", "") End If zz = zz + 1 End With Loop End With End Sub

Option Explicit Sub Ersetzen7() Dim rngB As Range, rngC As Range, strT As String With ActiveSheet ' zu bearbeitender Bereich Set rngB = .Range(.Cells(6, 1), .Cells(.Rows.Count, 1).End(xlUp)).Offset(, 6) End With For Each rngC In rngB ' Schleife über Zellen des Bereichs With rngC If InStr(.Text, "+") Then strT = Replace(.Text, "+", "") .NumberFormat = "@" .Value = strT End If End With Next rngC End Sub

Hi Walter,
zunächst mal Dir auch einen schönen Rest-1.-Mai!
Hier ein paar Möglichkeiten, den Bereich festzulegen:


Option Explicit
Sub Ersetzen679()
Dim lngA As Long, rngB As Range, rngC As Range, strT As String
With ActiveSheet                                      ' zu bearbeitender Bereich
lngA = .Cells(.Rows.Count, 1).End(xlUp).Row  ' Ende Sp. A
' Spalte 7
Set rngB = .Range(.Cells(6, 1), .Cells(.Rows.Count, 1).End(xlUp)).Offset(, 6)
Set rngB = .Range(.Cells(6, 6), .Cells(lngA, 6))            ' Spalte 6
Set rngB = .Range(.Cells(6, 6), .Cells(lngA, 7))            ' Spalten 6:7
Set rngB = Union(.Range(.Cells(6, 6), .Cells(lngA, 6)), _
.Range(.Cells(6, 9), .Cells(lngA, 9)))     ' Spalten 6, 9
End With
For Each rngC In rngB                  ' Schleife über Zellen des Bereichs
With rngC
If InStr(.Text, "+") Then
strT = Replace(.Text, "+", "")
.NumberFormat = "@"
.Value = strT
End If
End With
Next rngC
End Sub

Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Beliebteste Forumthreads (12 Monate)

21
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Spalte prüfen und Wert ändern

21 Beiträge zum Forumthread Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

21
Beiträge zum Forumthread

Beiträge zu diesem Forumthread