AW: erste Zahl einer Zahlenfolge ändern
08.02.2016 22:19:39
Piet
hallo
im VBA Editor ein Modulblastt anlegen und das Makro bitte kopieren
Bei Tabelle2 stimmt der Name nicht !! Am Ende steht ein Leerzeichen
Deshalb steht in meiner Set Anweisung auch -Sheets("Tabelle2 ")- mit Leerzeichen
Die neue Zahl kann bei NeuZahl = "2" in jede beliebige andere Zahl geandert werden.
Es können bis zu 10stellige Zahlen in der Spalte C stehen, spielt keine Rolle.
Es wird immer nur die 1. Zahl durch NeuZahl ersetzt.
mfg Piet
Option Explicit
Sub Tabelle2_aendern()
Dim Tb1 As Object, Edr
Dim Tb2 As Object, i
Set Tb1 = Sheets("Tabelle1")
Set Tb2 = Sheets("Tabelle2 ")
NeuZahl = "2" 'neue Zahl
'End Adresse über xlDwon ermitteln
Edr = Tb1.Range("C2").End(xlDown).Address
'Schleife zum kopieren mit ersetzen der 1.Zahl
For Each i In Tb1.Range("C2", Edr)
Tb2.Cells(i.Row, 3) = Neuzahl & Mid(i, 2, 10)
Next i
End Sub