Registriert seit: 10.05.2016
Version(en): 2013
Hallo Miteinander,
ich suche mal wieder nach einer Lösung für ein zumindest mich exotisches Problem, das ich zwar händisch lösen könnte, aber da sitze ich bis Weihnachten dran. Vielleicht gibts ja eine Lösung wie man das zumindest halbwegs automatisiert lösen könnte. Dazu folgendes:
Ich habe eine Tabelle mit IP Adressen, die je Zeile den Beginn und das Ende einer IP Klasse beinhaltet:
Anfang Ende Summe
2.16.6.0 2.16.7.255 512
Was ich aber brauche, ist jede IP Adresse einzeln, also:
2.16.6.0
2.16.6.1
2.16.6.2
2.16.6.3
2.16.6.4
....
2.16.7.255
Sieht da jemand einen Weg, wie man das lösen könnte?
Registriert seit: 06.12.2015
Version(en): 2016
23.09.2020, 12:17
(Dieser Beitrag wurde zuletzt bearbeitet: 23.09.2020, 12:17 von Fennek.)
Hallo,
mit VBA alle Werte in Spalte A schreiben, könnte so gehen:
Code:
columns(1).numberformat = "@"
for b3 = 6 to 7
for b4 = 0 to 255
r=r+1
cells(r, 1) = "2.16." & b3 & "." & b4
next b4
next b3
(ungeprüft)
Es wäre aber sicher besser das "on the fly", also zusammen mit dem Befehl zu generieren.
mfgf
Registriert seit: 10.05.2016
Version(en): 2013
Ich hab das Problem zwischenzeitlich anders gelöst, ohne Excel. Ich hab nur mal wieder zu kompliziert gedacht und hab erst nach Stunden festgestellt, dass es dafür freie Software gibt, die sogar gleich noch mehr macht.
Trotzdem Danke!
Registriert seit: 10.04.2014
Version(en): 97-2019 (32) + 365 (64)
Hallöchen,
mal noch für die, die doch Excel nehmen wollen
Wenn man oben die erste IP eingibt, kann man die nach unten ziehen bis Zeile 256 oder darüber - geht natürlich auch mit mehreren Spalten zugleich. Am Ende löscht man die Zeilen ab 257.
Man könnte auch eine Formellösung nehmen, hier mal ein Ansatz:
Arbeitsblatt mit dem Namen 'Tabelle1' |
| A | B | C | D |
1 | 2.16.6.0 | 2.11.7.0 | Bereich | 2.16.6 |
2 | 2.16.6.1 | 2.11.7.1 | Start | 0 |
3 | 2.16.6.2 | 2.11.7.2 | Ende | 3 |
4 | 2.16.6.3 | 2.11.7.3 | | 2.16.6.0 |
5 | 2.16.6.4 | 2.11.7.4 | | 2.16.6.1 |
6 | 2.16.6.5 | 2.11.7.5 | | 2.16.6.2 |
7 | 2.16.6.6 | 2.11.7.6 | | 2.16.6.3 |
8 | 2.16.6.7 | 2.11.7.7 | | |
9 | 2.16.6.8 | 2.11.7.8 | | |
10 | 2.16.6.9 | 2.11.7.9 | | |
Zelle | Formel |
D4 | =WENN(ZEILE(A1)-1<=$D$3;$D$1 & "." & $D$2 + ZEILE(A1)-1;"") |
Verwendete Systemkomponenten: [Windows (32-bit) NT 10.00] MS Excel 2016 |
Diese Tabelle wurde mit Tab2Html (v2.6.2) erstellt. ©Gerd alias Bamberg |
Das Makro ließe sich auch ausbauen, dass man die Daten z.B. eingibt statt einzutragen, die Spalte nimmt wo der Cursor gerade steht, usw. - je nach eigenem Gusto ...
. \\\|/// Hoffe, geholfen zu haben.
( ô ô ) Grüße, André aus G in T
ooO-(_)-Ooo (Excel 97-2019+365)