Clever-Excel-Forum

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?

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

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!

Hallöchen,

mal noch für die, die doch Excel nehmen wollen Smile

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

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 ...

Serpent Driver

Fennek

Serpent Driver

schauan