Einzelne Zellen verbinden

[Blackscorpion]

Hallo,

ich möchte Einzelne Zeilen miteinander verknüpfen.
zur Erklärung:

ich habe mir 2 Patchpanels, 2 Switche, 1 Router und mehrere Netzwerkdosen erstellt. jede benutzbare RJ45 Buchse besteht aus einer Zelle. Die Zellen der aktuell genutzten Buchsen sind orange gefüllt. nun soll z.B. wenn ich auf die Bücher der Netzwerkdose klicke sich die grün färben und alle entsprechend verbunden Steckbuchsen  am Schwitch und Patchpanel auch. Funktionieren soll das unabhängig davon welche Buchse der Reihe/Strecke man anklickt.

[WillWissen]

Moin,

Bedingte Formatierung? Mehr gibt deine Beschreibung und vor allem deine hervorragende Beispieltabelle nicht her.

[schauan]

Hallöchen,

und was sind eigentlich

die Bücher der Netzwerkdose

[Blackscorpion]

Hallo,

Bücher ist nicht korrekt sollte Buchse heißen. Ist der Rechtschreibung des Handys zum Opfer gefallen.

das Tab2HTML muss ich erst noch laden und installieren, deshalb habe ich mal das xlsx angehangen.

Habe das zum verstehen mal vereinfacht.
im Altbau sollen alle 3 Zellen mit der Nummer 1 verbunden sein und egal auf welche der 3 Zellen ich draufklicke grün werden.
im Neubau die beiden Zellen mit der Nummer 8 und bei der unteren Netzwerkdose die orangene Zelle ebenfalls mit der selben Funktion wie oben.

Die Tabelle mit den IP Adressen etc. ist unwichtig, ist nur erstmal zum sammeln gedacht.

Ich hoffe ich konnte jetzt besser vermitteln was ich möchte.

mfg aus Niederbayern

Arbeitsblatt mit dem Namen 'Tabelle1'
	A	B	C	D	E	F	G	H	I	J	K	L	M	N	O	P	Q	R	S	T	U	V	W	X	Y	Z	AA	AB	AC	AD	AE	AF	AG	AH	AI	AJ	AK	AL	AM	AN	AO	AP	AQ
1		Stand.07.01.2020
2		Altbau
3
4		HP1800-16G
5				1		3		5		7		9		11		13		15												AVM
6																														Fritzbox	Router
7
8
9				2		4		6		8		10		12		14		16
10
11
12
13
14
15
16				1		2		3		4		5		6		7		8		9		10		11		12							USB
17																															DSL				1		2		3		4
18
19
20
21																																	Netzwerkdose
22		Neubau
23
24		HP1410-8G
25
26																																	Netzwerkdose
27				1		2		2		4		5		6		7		8
28
29
30
31
32
33
34				1		2		3		4		5		6		7		8		9		10		11		12
35
36
37

Zelle	Format	Wert
AR3	#.##0	192168188001
AR4	#.##0	192168188002
AR5	#.##0	192168188003
AR6	#.##0	192168188004
AR7	#.##0	192168188005
AR8	#.##0	192168188006
AR9	#.##0	192168188007
AR10	#.##0	192168188008
AR11	#.##0	192168188009
AR12	#.##0	192168188010
AR13	#.##0	192168188011
AR14	#.##0	192168188012
D15	00000
AR15	#.##0	192168188013
AI16	00000
AR16	#.##0	192168188014
AR17	#.##0	192168188015
AR18	#.##0	192168188016
AR19	#.##0	192168188017
AR20	#.##0	192168188018
AR21	#.##0	192168188019
AR22	#.##0	192168188020
AR23	#.##0	192168188021
AR24	#.##0	192168188022
AR25	#.##0	192168188023
AR26	#.##0	192168188024
AR27	#.##0	192168188025
AR28	#.##0	192168188026
AR29	#.##0	192168188027
AR30	#.##0	192168188028
AR31	#.##0	192168188029
AR32	#.##0	192168188030
AR33	#.##0	192168188031
AR34	#.##0	192168188032
AR35	#.##0	192168188033
AR36	#.##0	192168188034
AR37	#.##0	192168188035
AR38	#.##0	192168188036
AR39	#.##0	192168188037
AR40	#.##0	192168188038
AR41	#.##0	192168188039
AR42	#.##0	192168188040
AR43	#.##0	192168188041
AR44	#.##0	192168188042

Verwendete Systemkomponenten: [Windows (32-bit) NT 6.01] MS Excel 2010

Diese Tabelle wurde mit Tab2Html (v2.6.0) erstellt. ©Gerd alias Bamberg

[schauan]

Hallöchen,

ich habe hier mal mit den ersten 3 "Zahlen" im Altbaubereich angefangen. Was soll eigentlich im rechten Bereich passieren, wenn die Zahl > 4 ist?
Der Code kommt in das Modul vom betreffenden Tabellenblatt.

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Variablendeklarationen
'Variant, Arrays f?r Zellbereich
Dim arrZellen1, arrZellen2, arrZellen3
'Integer, Zaehler
Dim iCnt%
'Wenn nur eine Zelle gewaehlt wurde, dann
If Target.Cells.Count = 1 Then
  'Wenn die Zelle im Bereich der Altbauten (B4:AP17) liegt, dann
  If Not Intersect(Target, Range("B4:AP17")) Is Nothing Then
    'erst mal alle Farben entfernen
    Range("B4:AP17").Interior.Color = xlNone
    'Zellen fuer Einfaerbung festlegen, beachte Grossschreibung
    'getennt in die 3 Unterbereiche
    arrZellen1 = Array("D6", "D8", "F6")
    arrZellen2 = Array("D15", "F15", "H15")
    arrZellen3 = Array("AI16", "AK16", "AM16")
    'Schleife ueber alle definierten Zellen
    For iCnt = 0 To UBound(arrZellen1)
      'Wenn die Zelladresse gefunden wurde, dann Schleife verlassen
      If Replace(Target.Address, "$", "") = arrZellen1(iCnt) Then Exit For
    'Ende Schleife ueber alle definierten Zellen
    Next
    'Wenn der Schleifenzaehler ueber dem max. Index des arrays 1 liegt,
    'dann Makro verlassen. (Adresse wurde nicht im Array gefunden)
    If iCnt > UBound(arrZellen1) Then Exit Sub
    'Zellen im linken Bereich faerben
    Range(arrZellen1(iCnt)).Interior.ColorIndex = 8
    Range(arrZellen2(iCnt)).Interior.ColorIndex = 8
    'Wenn der Schleifenzaehler unter dem max. Index des arrays 3 liegt, dann
    'Array 3 geht nur bis Index 3
    If iCnt <= UBound(arrZellen3) Then
      'Zelle im rechten Bereich faerben
      Range(arrZellen3(iCnt)).Interior.ColorIndex = 8
    'Ende Wenn der Schleifenzaehler unter dem max. Index des arrays 3 liegt, dann
    End If
  'Ende Wenn die Zelle im Bereich der Altbauten (B4:AP17) liegt, dann
  End If
'Ende Wenn nur eine Zelle gewaehlt wurde, dann
End If
End Sub

[Blackscorpion]

Oha, das wird ja was ganz neues, mit Makros und Modulen etc. habe ich noch nie gearbeitet, gerade mal mit wenn, dann Formeln. 

Aber der Ansatz ist schon gut.
Die rechte Seite mit den IP-Adressen ist erstmal unwichtig, da will ich erstmal die IP-Adressen sammeln, da ich den DHCP aus habe und manuelle IP´s vergebe.

Darstellen will ich mit dem Projekt die interne Verkabelung. Also vom Router geht die Buchse 1 auf das Patchfeld im Altbau auf Buchse 1. diese ist verbunden mit Patchkabel auf Switch Altbau (HP1800 - 16G) Buchse 1. Alle anderen (bis auf die DSL) am Router sind unbelegt.

dann z.B. die Buchse 2 vom Switch Altbau auf Buchse 2 des Patchfeldes Altbau von da auf die obere Netzwerkdose linke Buchse.

Weiterhin wird die Verbindung zum Neubau über Buchse 12 des Switches Altbau auf Buchse 12 des Patchfeldes Altbau auf Buchse 1 des Patchfeldes Neubau und von dort auf Buchse 1 des Switches Neubau 
realisiert.

Vom Switch Neubau soll es dann z.B. weiter gehen von Buchse 2 auf Patchfeld Neubau Buchse 2 auf die untere Netzwerdose linke Buchse.

Es soll aber auch funktionieren wenn ich z.B. die Buchse 1 am Router, oder Buchse 1 am Patchfeld Altbau anklicke, bisher funktioniert es ja nur vom Switch Altbau aus.

Weiterhin sollen alle Buchsen die schon belegt sind durch eine Farbe belegt werden, damit sofort erkennbar ist wie viel noch frei verfügbar sind. 

Ich habe jetzt mal noch eine Reihe von Netzwerkdosen hinzu gefügt, wobei die Beschriftung unter den Buchsen nur die Beschriftung darstellt, damit beim realen Betrachten der Netzwerkdose vor Ort, gleich festgestellt werden kann in welchem Gebäudeteil die jeweilige Verbindung aufgepatcht ist. z.B. 1.xx im Altbau und 2.xx im Neubau.

Ich hoffe ich konnte es nachvollziehbar erläutern wie ich mir das vorgestellt habe.
Ist übrigens nix kommerzielles, sondern das Netzwerk unserer kleinen freiwilligen Feuerwehr im Ort.
Deshalb soll es relativ klar dargestellt werden, da ich als Ersteller des Netzwerkes auch nicht das ewige Leben habe und sich hier auf dem Dorf
besser mit Landwirtschaft und Traktoren ausgekannt wird 

Danke schon mal allen für die Mithilfe.

[schauan]

Hallöchen,
Kann erst morgen wieder programmieren, bin derzeit nur am Smartphone..

[schauan]

Hallöchen,

hier mal ein paar mehr Farben. Das "Entfärben" hab ich jetzt rausgenommen. Wenn Du alle Verbindungen durchgeklickt hast ändert sich nix mehr...
Ich hab immer den jeweils ersten Bereich als "Klickbereich" genommen, also oben für Altbau und unten für Neubau.
Bei den Neubauten bleiben Zellen ungefärbt weil der erste Bereich kleiner ist als der zweite. Die Verbindung von Alt zu Neu ist nicht berücksichtigt.
Wenn Du also in den anderen Bereichen klickst, ändert sich, wie Du festgestellt hast, nix.

Die Adressen sind ja nun fest programmiert und wenn sich was ändert, müsste man in den Code. Man könnte die Adressen auch auf einem Blatt auflisten und dann wären Änderungen für Dich einfacher und auch für mich .  Ich würde dann nur noch die Zelladresse der angeklickten "Buchsenzelle" in der Tabelle suchen und kann dann die in der Trefferzeile stehenden Adressen für das Färben der Zellen verwenden. Außerdem könnte man dort auch Farben für die Pfade definieren.

Ich hab das mal auf Tabele2 vorbereitet, aber noch nicht im Programm umgesetzt. Das würde ich dann nach Auffüllen der Tabelle machen.

[Blackscorpion]

hu, jetzt bekomme ich Augenkrebs von den Farben.

Nur die benutzten Buchsen bekommen eine Farbe.

Also alle Benutzten Buchsen bekommen im Normalzustand die Farbe orange, unbenutzte Buchsen bleiben ohne Farbe. beim Anklicken wechseln alle verküpften Buchsen (Zellen) zur Farbe Grün

Eine Eingabeportal wäre natürlich genial. 

Werde mal losmachen und die Netzwerkdosen Beschriftung abschreiben gehen.

[schauan]

Hallöchen,
Ich habe mal alle benutzt :17: Die Farben kommen natürlich nur wenn man vorher drauf klickt. Die unterschiedlichen Farben hätten den Vorteil, dass Du gleich die Verknüpfungen erkennen kannst. Hatte ich mir mal gedacht. Über eine Farbdefinition würde das variabel sein. Nimmst heute überall die Gleiche und falls du später einen Vorteil siehst dann hast du es