Nur letztes Zeichen einer IP Adresse Ändern und in andere Zeile schreiben
Hallo,
ich hoffe es kann mir jemand helfen.
Ich bräuchte die Lösung über VBA.
Ich habe eine Liste mit IP Adressen.
In Spalte H stehen z.B folgende IP Adresssen.
10.25.45.0
10.35.0.0
10.88.245.0
10.0.0.0
Insgesammt sind es über 600 Zeilen.
Ich möchte das nur die letze Null durch eine Zahl erstezt wird, und in die Nachbarzelle geschrieben wird, zudem soll der dann eine Spalte weiter das selbe machen mit wieder einer anderen Zahl am ENDE.
Die erste Zeile sollte dann so ausschauen.
10.25.45.0 10.25.45.254 10.25.45.252 10.25.45.253 10.24.45.4
Nullen innerhalb der IP Adressen wie 10.0.0.0 dürfen auch nur im letzen Octet geändert werden.
Vielen Dank im Voraus.
Lg Andreas
ich hoffe es kann mir jemand helfen.
Ich bräuchte die Lösung über VBA.
Ich habe eine Liste mit IP Adressen.
In Spalte H stehen z.B folgende IP Adresssen.
10.25.45.0
10.35.0.0
10.88.245.0
10.0.0.0
Insgesammt sind es über 600 Zeilen.
Ich möchte das nur die letze Null durch eine Zahl erstezt wird, und in die Nachbarzelle geschrieben wird, zudem soll der dann eine Spalte weiter das selbe machen mit wieder einer anderen Zahl am ENDE.
Die erste Zeile sollte dann so ausschauen.
10.25.45.0 10.25.45.254 10.25.45.252 10.25.45.253 10.24.45.4
Nullen innerhalb der IP Adressen wie 10.0.0.0 dürfen auch nur im letzen Octet geändert werden.
Vielen Dank im Voraus.
Lg Andreas
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 283285
Url: https://administrator.de/forum/nur-letztes-zeichen-einer-ip-adresse-aendern-und-in-andere-zeile-schreiben-283285.html
Ausgedruckt am: 27.04.2025 um 01:04 Uhr
3 Kommentare
Neuester Kommentar

Moin,
hier das Beispiel für eine Spalte, für die nächste solltest du es anhand des Codes nun selbst schaffen ..
Gruß jodel32
hier das Beispiel für eine Spalte, für die nächste solltest du es anhand des Codes nun selbst schaffen ..
Sub correctIPs()
With ActiveSheet
for each cell in .Range("H1:H" & .Cells(Rows.Count,"H").End(xlUp).Row)
arrIP = Split(cell.Value,".")
cell.Offset(0,1).Value = arrIP(0) & "." & arrIP(1) & "." & arrIP(2) & "." & "254"
Next
End With
End Sub
Gruß jodel32

War nur ein Typo, ist korrigiert ...