Zahl umwandeln

[herbert0803]

Hallo,

ich habe eine Tabelle, in der Zahlen in einer Spalte in folgendem Aufbau vorhanden sind.
149700000455011000
in einer Spalte daneben wandle ich diese Zahl mit folgender Formel um
=(TEIL(A1;13;3)&TEIL(A1;5;8))*1
Ergebnis: 1100000455

Geht das mit VBA ohne zusätzliche Spalte, sodass die vorhandene Zahl mit der umgewandelten überschrieben wird?

[WillWissen]

Hi Herbert,

das geht nicht ohne VBA.

[RPP63]

@Günther:
Er wollte ja auch mit ...
@TE:
Kopiere doch einfach die Formelspalte und füge sie als Wert in die Ausgngsspalte ein.

Mit VBA:
Schleife über alle Zellen, vorher Check der Stringläge (du hast KEINE Zahlen!) und Übrstz der Befehle in VBA.

Gruß Ralf

[WillWissen]

Hi Ralf,

@Günther:

Er wollte ja auch mit ...

ich bin heute wohl eindeutig zu lange vor dem PC gesessen.  :16:

[RPP63]

Ich nicht, bin am Phone, deshalb auch nur die Light-Version

Gruß Ralf

[Kuwer]

Hallo Herbert,

Sub aaa()

 Dim lngZ As Long

 Dim varZ As Variant

 varZ = Cells(1).CurrentRegion.Columns(1).Value

 For lngZ = 1 To UBound(varZ)

   If Len(varZ(lngZ, 1)) > 11 Then

     varZ(lngZ, 1) = Mid(varZ(lngZ, 1), 13, 3) & Mid(varZ(lngZ, 1), 5, 8)

   End If

 Next lngZ

 Cells(1).Resize(UBound(varZ)).Value = varZ

End Sub

Gruß Uwe

[herbert0803]

Hallo Uwe,

danke für deinen Code.

Kannst du mir bitte den Code genauer erklären, damit ich in an meine Gegebenheiten anpassen kann?
Ich habe glaube ich zuwenig Informationen gegeben.
Die betroffenen "Zahlen" sind nicht in einer ganzen Spalte ab der ersten Zeile.
Ich hätte mir gedacht, dass ich zB die betroffenen Zellen zuvor auswähle und die Änderung über die aktiven, markierten Zellen läuft.
Eine andere Möglichkeit wäre, die betroffenen Zellen aufgrund einer Überschrift zu erkennen und alle Zellen unterhalb der Überschrift bis zur letzten verwendeten Zeile in dieser Spalte zu bearbeiten.

Danke für deine Hilfe.

[Kuwer]

Hallo Herbert,

kommentiere das, was Du nicht verwenden möchtest, einfach aus:

Sub aaa()

Dim lngZ As Long

Dim rngB As Range

Dim varZ As Variant



'markierte Zellen

Set rngB = Selection



'abhängig von Überschrift in Zeile 1

Set rngB = Application.Intersect(ActiveSheet.UsedRange, Rows(1).Find("DerSuchwert").EntireColumn)

Set rngB = rngB.Resize(rngB.Rows.Count - 1).Offset(1)



varZ = rngB.Value

For lngZ = 1 To UBound(varZ)

  If Len(varZ(lngZ, 1)) > 11 Then

    varZ(lngZ, 1) = Mid(varZ(lngZ, 1), 13, 3) & Mid(varZ(lngZ, 1), 5, 8)

  End If

Next lngZ

rngB.Value = varZ

End Sub

Gruß Uwe

[snb]

Diede Code reicht:

Code:

Sub M_snb()
  [A1:A200] = [if(A1:A200="","",mid(A1:A200,13,3)&mid(A1:A200,5,8))]
End Sub

[herbert0803]

Hallo,

@Uwe
Danke, der Bereich wird richtig erkannt, aber die Berechnung funktioniert nicht.
Spalte A Ausgangswert, Spalte B Ergebnis deines Codes, Spalte C Sollergebnis
Tabelle1

	A	B	C
20	132600003004000000	1760000300	3004
21	132600003004011000	1E+60000300	1100003004

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4.8

@snb
Deine Berechnung stimmt, aber ich bräuchte den Bereich Variabel, wie oben beschrieben, ich kenne mich aber mit den Klammerausdrücken überhaupt nicht aus