VBA Zahlenwert um 1 ergänzen

[2Cr4nK]

Hallo,

versucht hast du den Vorschlag von Crazy Tom mit der benutzerdefinierten Formatierung der Spalte A wohl nicht?

Deine Version kann nicht funktionieren weil du aus der Zahl in Spalte A einen Text machst, dann aber via SVERWEIS mit einer Zahl abgleichst.

Genau das passiert mit dem benutzerdefinierten Zahlenformat eben nicht. Die Zahl in Spalte A bleibt weiterhin z.B. 12345678 wird aber visuell so 1234 5678 dargestellt. Und damit funktioniert auch dein SVERWEIS.



Gruß Werner

genau das ist mein Problem.
die Änderung darf nicht visuell stattfinden sondern muss wirklich erfolgen.
zum besseren Verständnis:
ich hab 3 verschiedene Tabellen.. in Tabelle A haben die zahlen ein Leerzeichen und in Tabelle B eben nicht.
Tabelle C soll A und B auswerten. geht logischerweise ja nur wenn ich entweder das Leerzeichen hinzufüge oder entferne.
der einfache weg ist "es" in Tabelle B zu ergänzen (alle A Zellen).
Diese Ergänzung muss erfolgen und nicht nur visuell dargestellt werden.
in den von mir versuchten Formeln erfolgt immer nur eine visuelle Veränderung.
deshalb die VBA.. habe gehofft dass diese mir die Zelleninhalte brauchbar verändern kann.

[2Cr4nK]

hm.....

also im Prinzip so?

Code:

Sub test()
   Dim i As Long
   For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
       Cells(i, 1).Value = Left(Cells(i, 1), 4) & " " & Right(Cells(i, 1), 4)
   Next
End Sub

dabei wird aus der achtstelligen Zahl aber ein Text!

funktioniert :)
war bis dato nicht am rechner..

danke dir :)
:18:

[Crazy Tom]

*schweißabputz*