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