Benötige Hilfe bei automatischer Tabellen Generierung

06.01.2025 23:10:26

Stefan S.

Hallo liebes Forum,

ich bin neu hier und würde mich über eure Unterstützung freuen.
Ich entschuldige mich vorab für die wahrscheinlich bereits 100 fach gestellte Frage. Bin aber im Forum nicht fündig geworden.

Ich habe folgende Anforderung.
Es werden ein paar Parameter vorgegeben, aus denen eine Tabelle erstellt werden soll.

vorgegeben werden folgende variable Werte in einem Arbeitsblatt

Wert1:
Wohnzimmer
Esszimmer
Küche
Kinderzimmer
...

Wert2:
Schalten
Dimmen
Zustand
...

Wert3: für Spalte2
Anfangsadresse 1/1/1
Daraus soll folgende Ergebnis durch ein Makro kommen

Spalte1 Spalte2
Wohnzimmer Schalten 1/1/1
Wohnzimmer Dimmen 1/1/2
Wohnzimmer Zustand 1/1/3
Küche Schalten 1/1/4
Küche Dimmen 1/1/5
Küche Zustand 1/1/6
Kinderzimmer Schalten 1/1/7
Kinderzimmer Dimmen 1/1/8
Kinderzimmer Zustand 1/1/9

Vielen Dank vorab
Stefan

AW: Benötige Hilfe bei automatischer Tabellen Generierung

06.01.2025 23:36:17

Onur

Und WIR sollen jetzt eine Datei erstellen und für dich all diese Sachen erstmal eintragen, damit wir dir helfen können ?

AW: Benötige Hilfe bei automatischer Tabellen Generierung

06.01.2025 23:44:56

Stefan S.

O.K. die konkrete Frage fehlt.
Ich hoffe, ich erhalte ein Beispielscript, das diese Anforderung automatisiert.
Ich kann mir vorstellen, dass so ein Script nicht so kompliziert und lang bzw. aufwändig ist.
Ist dieses Script unerwartet kompliziert und aufwändig, wäre ich für einen Hinweis dankbar wer mir helfen kann.

VG
Stefan

AW: Benötige Hilfe bei automatischer Tabellen Generierung

06.01.2025 23:58:41

Onur

Man kann keinen "Script" schreiben, der für alle Dateien passt.
Jedes Makro ist maßgeschneidert für eine (existierende) Datei, die bestimmt nicht ICH erstellen werde.

AW: Benötige Hilfe bei automatischer Tabellen Generierung

07.01.2025 11:33:50

Yal

Hallo Stefan,

mit dem Risiko, Onur zu ärgern, weil Du in der Tat eine Basis liefern hätte sollen (spricht eine Datei), worauf wir arbeiten hätten können, liefere ich einen "Skript", den ich blind entworfen habe. Für jegliche Anpassung musst Du selber ran. Es wird angenommen, dass deine Liste1 in A1:A10 und Liste2 in B1:B10 im Blatt "Tabelle1" liegen.

Sub zusammenstellen()

Dim A, B, i



    With Worksheet("Tabelle1") 'anpassen!

        For Each A In .Range("A1:A10") 'anpassen

            If A.Value > "" Then

                For Each B In .Range("B1:B10") 'anpassen

                    If B.Value > "" Then

                        i = i + 1

                        With .Cells(Rows.Count, "E").End(xlUp) 'Spalte "E" anpassen

                            .Offset(1, 0).Value = A.Value & " " & B.Value

                            .Offset(1, 1).Value = "1/1/" & i

                        End With

                    End If

                Next

            End If

        Next

    End With

End Sub

VG
Yal

AW: Benötige Hilfe bei automatischer Tabellen Generierung

07.01.2025 17:31:40

Stefan S.

Hallo Yal,

vielen Dank für das Script. Das ist genau das was ich mir erhofft hatte zu bekommen. Vielen, vielen Dank!!!!
@Onur, warum so aggressiv? Ich kenne die Gepflogenheiten in diesem Forum nicht. Mit war nicht bewusst, dass ich eine Datei hochladen muss mit dem Inhalt, den ich bereits im Text geschrieben habe. Werde ich zukünftig machen und beachten. Aber es geht auch anders, Yal hat dieses gezeigt.

LG
Stefan

AW: Benötige Hilfe bei automatischer Tabellen Generierung

08.01.2025 15:05:18

Peter

Moin.
Ich hatte auch mal (als ich ein efrage gestellt hatte) einen disput mit onur. Aber man mun muss sich reinversetzen, onur ist einer der aktivsten und hilfbereitesten Helfer. Wenn dann keine Recherche betrieben wird wie man richtig fragen stellt kann das Frustieren. Onur ist ein guter aber auch mal schnell mit der Taste.

Was ich fragen wollte. Warum willst du ein skript haben?
Das geht auch ohne VBA.
Ich hätte die empfohlen die werte einzugeben, (nebeneinander) dann mit Strg+t ein Listobject/tabelle zu erstellen und dann in einer neuen Spalte textverketten()&zeile().

Wenn du mit dem Skript klarkommst muss ich das nicht ausführen, falls ich meine lösung ausführlich darlegen soll (so das man sie versteht) dann kann ich dir das erstellen. ich würde aber eine Benachrichtigung brauchen. (glaube skript ist zu schwer zu warten ohne programmiererfahrung)

Gruß Peter

AW: Benötige Hilfe bei automatischer Tabellen Generierung

08.01.2025 15:32:52

Yal

Hallo Peter,

dann bin ich in dem Fall derjenige, der auf deine Lösung neugierig ist. Wie schaffst Du es, aus eine oder zwei Tabellen eine Kombinationsliste zu erzeugen? (klar, über PQ, aber ist hier nicht erwähnt).

VG
Yal

AW: Benötige Hilfe bei automatischer Tabellen Generierung

08.01.2025 15:51:45

Onur

So z.B.:
https://www.herber.de/bbs/user/174756.xlsx

AW: Benötige Hilfe bei automatischer Tabellen Generierung

08.01.2025 16:17:33

Stefan S.

Hey Leute,
erst einmal an dieser Stelle - ihr seit Mega mit euren Lösungen.
Ich denke das VB-Script hilft mir am besten weiter, da ich für meine endgültige Lösung am flexibelsten bin.
Excel hilft mir, um eine TXT zu erzeugen, die schlussendlich ungefähr wie folgt aussehen soll.
Diese Datei wird dann in ein Programm importiert zur Programmierung eine Gebäudeautomatisierung (Smarthome KNX)
Die sogenannten Gruppenadressen in die Software einzutippen dauert unendlich lang. Dazu kann ich über Excel in ca. 30Minuten fast alle Gruppenadressen erstellen und importieren, wozu ich in der Smarthome Software Stunden benötigen würde.
In diesem Screenshot seht ihr, wie es importiert aussieht. In diesem Screenshot seht ihr, wie es importiert aussieht. Userbild

"Beleuchtung"; ; ;"1/-/-";"";"";"";"";"Auto"
;"UG"; ;"1/0/-";"";"";"";"";"Auto"
; ;"Treppe HWR WL 0.2.3 Schalt";"1/0/0";"";"";"";"DPST-1-1";"Auto"
; ;"Treppe HWR WL 0.2.3 Schalt Rück";"1/0/1";"";"";"";"DPST-1-1";"Auto"
; ;"Elektronik 0.8.1 Schalt";"1/0/2";"";"";"";"DPST-1-1";"Auto"
; ;"Elektronik 0.8.1 Schalt Rück";"1/0/3";"";"";"";"DPST-1-1";"Auto"
; ;"Keller 1 0.7.1 Schalt";"1/0/4";"";"";"";"DPST-1-1";"Auto"
; ;"Keller 1 0.7.1 Schalt Rück";"1/0/5";"";"";"";"DPST-1-1";"Auto"
; ;"HWR DL 0.2.1 Schalt";"1/0/6";"";"";"";"DPST-1-1";"Auto"
; ;"HWR DL 0.2.1 Schalt Rück";"1/0/7";"";"";"";"DPST-1-1";"Auto"
; ;"HWR DL 0.2.2 Schalt";"1/0/8";"";"";"";"DPST-1-1";"Auto"
; ;"HWR DL 0.2.2 Schalt Rück";"1/0/9";"";"";"";"DPST-1-1";"Auto"
; ;"WC UG DL 0.3.1 Schalt";"1/0/10";"";"";"";"DPST-1-1";"Auto"
; ;"WC UG DL 0.3.1 Schalt Rück";"1/0/11";"";"";"";"DPST-1-1";"Auto"
; ;"WC UG WL 0.3.2 Schalt";"1/0/12";"";"";"";"DPST-1-1";"Auto"
; ;"WC UG WL 0.3.2 Schalt Rück";"1/0/13";"";"";"";"DPST-1-1";"Auto"
; ;"Flur HWR WL 0.4.1 Schalt";"1/0/14";"";"";"";"DPST-1-1";"Auto"
; ;"Flur HWR WL 0.4.1 Schalt Rück";"1/0/15";"";"";"";"DPST-1-1";"Auto"
; ;"Flur UG Treppe WL 0.5.1 Schalt";"1/0/16";"";"";"";"DPST-1-1";"Auto"
; ;"Flur UG Treppe WL 0.5.1 Schalt Rück";"1/0/17";"";"";"";"DPST-1-1";"Auto"
; ;"Abstellraum DL 0.6.1 Schalt";"1/0/18";"";"";"";"DPST-1-1";"Auto"
; ;"Abstellraum DL 0.6.1 Schalt Rück";"1/0/19";"";"";"";"DPST-1-1";"Auto"
; ;"Keller 2 0.9.1 Schalt";"1/0/20";"";"";"";"DPST-1-1";"Auto"
; ;"Keller 2 0.9.1 Schalt Rück";"1/0/21";"";"";"";"DPST-1-1";"Auto"
;"EG"; ;"1/1/-";"";"";"";"";"Auto"
; ;"Gäste Küche DL 1.9.1 Schalt";"1/1/0";"";"";"";"DPST-1-1";"Auto"
; ;"Gäste Küche DL 1.9.1 Schalt Rück";"1/1/1";"";"";"";"DPST-1-1";"Auto"
; ;"Gäste Bad LED 1.10.3 Schalt";"1/1/2";"";"";"";"DPST-1-1";"Auto"
; ;"Gäste Bad LED 1.10.3 Schalt Rück";"1/1/3";"";"";"";"DPST-1-1";"Auto"
; ;"Gäste Bad Spiegel 1.10.4 Schalt";"1/1/4";"";"";"";"DPST-1-1";"Auto"
; ;"Gäste Bad Spiegel 1.10.4 Schalt Rück";"1/1/5";"";"";"";"DPST-1-1";"Auto"
; ;"Büro Steckd 1.2.3 Schalt";"1/1/6";"";"";"";"DPST-1-1";"Auto"
; ;"Büro Steckd 1.2.3 Schalt Rück";"1/1/7";"";"";"";"DPST-1-1";"Auto"
; ;"Büro Steckd 1.2.4 Schalt";"1/1/8";"";"";"";"DPST-1-1";"Auto"
; ;"Büro Steckd 1.2.4 Schalt Rück";"1/1/9";"";"";"";"DPST-1-1";"Auto"
; ;"Wohnen Steckd 1.1.13 Schalt";"1/1/10";"";"";"";"DPST-1-1";"Auto"
; ;"Wohnen Steckd 1.1.13 Schalt Rück";"1/1/11";"";"";"";"DPST-1-1";"Auto"
; ;"Wohnen Steckd 1.1.14 Schalt";"1/1/12";"";"";"";"DPST-1-1";"Auto"
; ;"Wohnen Steckd 1.1.14 Schalt Rück";"1/1/13";"";"";"";"DPST-1-1";"Auto"
"Rollläden"; ; ;"2/-/-";"";"";"";"";"Auto"
;"UG"; ;"2/0/-";"";"";"";"";"Auto"
;"EG"; ;"2/1/-";"";"";"";"";"Auto"
; ;"Entree li 1.6M2 LZ";"2/1/0";"";"";"";"DPST-1-8";"Auto"
; ;"Entree li 1.6M2 KZ";"2/1/1";"";"";"";"DPST-1-7";"Auto"
; ;"Entree li 1.6M2 Pos";"2/1/2";"";"";"";"DPST-5-1";"Auto"
; ;"Entree li 1.6M2 Pos Rück";"2/1/3";"";"";"";"DPST-5-1";"Auto"
; ;"Entree re 1.6M1 LZ";"2/1/4";"";"";"";"DPST-1-8";"Auto"
; ;"Entree re 1.6M1 KZ";"2/1/5";"";"";"";"DPST-1-7";"Auto"
; ;"Entree re 1.6M1 Pos";"2/1/6";"";"";"";"DPST-5-1";"Auto"
; ;"Entree re 1.6M1 Pos Rück";"2/1/7";"";"";"";"DPST-5-1";"Auto"
; ;"Gästezimmer 1.8M1 LZ";"2/1/8";"";"";"";"DPST-1-8";"Auto"
; ;"Gästezimmer 1.8M1 KZ";"2/1/9";"";"";"";"DPST-1-7";"Auto"
; ;"Gästezimmer 1.8M1 Pos";"2/1/10";"";"";"";"DPST-5-1";"Auto"
; ;"Gästezimmer 1.8M1 Pos Rück";"2/1/11";"";"";"";"DPST-5-1";"Auto"

AW: Benötige Hilfe bei automatischer Tabellen Generierung

08.01.2025 16:42:15

Yal

@Onur: Spitze, wie immer.

Ich ergänze nur für den letzten Schliff:
=LET(x;A2:A5;y;A9:A11;q;x&" "&MTRANS(y);zu;ZUSPALTE(q);sq;SEQUENZ(ANZAHL2(zu));HSTAPELN(INDEX(zu;sq);" 1/"&"1/"&sq))

So werden die Ergebnisse in 2 Spalten herausgegeben.

VG
Yal

AW: Benötige Hilfe bei automatischer Tabellen Generierung

08.01.2025 16:45:46

Onur

Das mit den ZWEI Spalten hatte ich gar nicht gesehen. :)

Benötige Hilfe bei automatischer Tabellen Generierung

Forumthread: Benötige Hilfe bei automatischer Tabellen Generierung

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Benötige Hilfe bei automatischer Tabellen Generierung

Forumthread: Benötige Hilfe bei automatischer Tabellen Generierung

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread