Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1972to1976
1972to1976
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Textketten erstellen mit unterschiedlichen Anzahl an Feldern

Forumthread: Textketten erstellen mit unterschiedlichen Anzahl an Feldern

Textketten erstellen mit unterschiedlichen Anzahl an Feldern
24.04.2024 09:24:20
Rofel
Guten Tag Zusammen

Es ist meine erstes Mal in einem Forum, ich hoffe ich die Problemstellung von mir ist klar definiert.
Ausgangslage:
Ich arbeite in einem Architekturbüro und wir wollen automatische Auswertungen von Mehrschichtigen Bauteilen erstellen.
Das Bauteil erhält in der CAD Software ein Kurznamen und die Bestandteile werden nachfolgend aufgelistet, gefolgt von einer leeren Zeile.
Da die Liste immer neu generiert wird wenn ich weitere Bauteile hinzufüge und diese je nach Schichtenanzahl variieren, wollte ich das mit VBA lösen, jedoch reichen meine Kenntnis nicht aus.

In Excel (Das Excel habe ich beigelegt, dort einfach mit zwei Tabellenblättern)
A1 = WGA A2 - A4: leer A5 = (Ergebnis) Textkette{B2;B3;", ";C2;C3}
B1 = leer B2 = Gips B3=10mm
C1 = leer C2 = Abrieb C3 = 5mm
D1 = leer D2 = leer C3 = leer

E1 = WMGA E2 - E4: leer E5 = (Ergebnis) Textkette{F2;F3;", ";G2;G3", ";H2;H3}
F1 = leer B2 = Mauerwerk B3=15mm
G1 = leer C2 = Gips C3 = 10mm
H1 = leer D2 = Abrieb C3 = 5mm
I1 = leer I2 = leer I3 = leer

Mein Wunsch wäre es, dass das Ergebnis dynamisch erstellt wird. Sprich wenn in meiner Tabelle das erste Bauteil drei Schichten erhält sich die Textkette anpasst.

Nun zur meiner Frage, ist das möglich und wenn ja, wie ?
Ich danke euch allen schon Vorab für eure Hilfe

Beste Grüsse
Raphael

https://www.herber.de/bbs/user/168975.xlsx
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Textketten mit unterschiedlichen Anzahl an Feldern, VBA
24.04.2024 10:26:37
MCO
Moin, Raphael!
Das Trennzeichen kannst du noch einstellen, wenn es dir nicht passt. Ergebnis:

-AB
1UG_WA_DM_D02_140Dämmung, swissporXPS 0,14
2K_WA_IW_L05_70Gips 0,03/Gips 0,04
3HN_WA_IW_HLZ01_20Holz 0,02
4HN_DE_DA_HLZ04_19Dreischichtplatte 550 0,02
5K_DB_BO_VB02_90Beton, Hartbeton 300 0,09
6HN_DE_DA_D06_140Dämmung, Aussen 0,14
7UG_DE_GD_M11_250Beton, Stahlbeton 0,2/Beton, Pref. 0,05
8UG_DE_GD_M14_350Beton, Stahlbeton 0,35
9HN_WA_AW_M08_60Beton, Stahlbeton 0,06

Sub Bauteil_komponenten()

    

    Dim rng As Range

    Dim Bauteil_z As Range

    Dim i As Long

    Dim sh_2 As Worksheet

    Dim LZ_sh2 As Long

    Dim Trenner As String

    

    Set rng = Range("A3:A" & Rows.Count).SpecialCells(xlCellTypeConstants) 'Zeilen finden

    Set sh_2 = Sheets("Namenskonvention")

    sh_2.Cells.ClearContents 'alles löschen

    LZ_sh2 = 1 'einfügen ab Zeile 1

    Trenner = "/" 'Trennzeichen

    

    For Each Bauteil_z In rng.Rows

        If Cells(Bauteil_z.Row, 1) > "" Then

            i = 1

            Komponente = ""



            Do

                Komponente = Komponente & IIf(Komponente > "", Trenner, "") & _

                            Cells(Bauteil_z.Row + i, 2) & " " & Cells(Bauteil_z.Row + i, 3)

                i = i + 1

            Loop While Cells(Bauteil_z.Row + i, 2) > ""

            

            'Debug.Print Cells(Bauteil_z.Row, 1), Komponente

            

            sh_2.Cells(LZ_sh2, 1) = Cells(Bauteil_z.Row, 1)

            sh_2.Cells(LZ_sh2, 2) = Komponente

            LZ_sh2 = LZ_sh2 + 1 'hochzählen

        End If

    Next Bauteil_z

End Sub


Gruß, MCO
Anzeige
Textketten erstellen mit unterschiedlichen Anzahl an Feldern
24.04.2024 10:40:33
Rofel
Hi MCO

Vielen Dank dir für die super schnelle Antwort, so funktioniert es wie ich es braucht :)

Gruss, Raphael

Forumthreads zu verwandten Themen

Wenn in Zelle folgender String, dann
mehmet

Hallo Forum,
In Spalte G4:G92 sind viele kodierte Zeichenfolgen.
Fest steht aber, dass diese zu erkennen sind, z.B.
in Zelle G4: METAR EKAH 052150Z AUTO 12005KT 9999NDV DZ OVC080/// 15/14 Q1005=
in Zelle G5: METAR ESSA 051940Z 20006KT CAVOK 11/10 Q1006 NOSIG=
und so weiter.....
06.09.2008 01:08:00
Thread-ID: 1007801
16 Beiträge
Wenn in Zelle folgende Zeichen, dann
mehmet

Hallo Forum,
in Spalte G4:G92 sind folge Codes:
in G4= TAF LSZH 090600Z 090716 VRB03KT 0200 FG VV001 BECMG 0709 CAVOK=
in G5= TAF DTTA 090600Z 090716 VRB03KT 0700 FG BKN013 BECMG 1012 07010KT 8000 SCT026=
in G6= TAF EPKT 090500Z 090615 24002KT 0500 FG NSC BECMG 0608 26005KT 9999...
09.09.2008 09:39:00
Thread-ID: 1008320
6 Beiträge
Wenn bistimmte Werte in zwei Zellen dann Zeile ..
Micha

Hallo zusammen,
habe folgendes Problem:
habe eine große Datentabelle (B1:O31407); in dieser sollen diejenigen Zeilen gelöscht werden
in denen sowohl in der Spalte B als auch in der Spalte H der Zellwert "1" ist.
steht in einer der besagten Zellen ein anderer Werte soll nichts...
14.05.2009 08:36:57
Thread-ID: 1074984
4 Beiträge
Anzeige
Wenn Dann Funktion mit zählen wenn
Christian

Hallo zusammen,
ich brauche eine Funktion, die es mir ermöglicht, in einem Datenblatt erst nach einem bestimmten Wert zu suchen und dann zum gefundenen Wert einen weiteren Wert zu suchen und diese dann in der Anzahl zusammen zu zählen.
Bisher dachte ich, ich komme so zu meinem Ziel:
...
07.08.2009 10:26:38
Thread-ID: 1094218
3 Beiträge
Nummer auf 8 Stellen erhöhen mit führender Zahl
Thorsten

Hallo,
habe folgende Datei hochgeladen:
https://www.herber.de/bbs/user/66598.xls
Folgende Bitte: In Spalte B hätte ich gerne eine Formel, welche die Kundennummer aus Spalte A mit einer führenden 5 auswirft und gleich auf 8 Stellen ausfüllt.
Vielen Dank für die Hilfe
Thorste...
15.12.2009 09:27:50
Thread-ID: 1123956
2 Beiträge
Anzeige
Wenn Jahreszahl übereinstimmt,dann, sonst...
Wolfgang

Hallo,
der nachfolgende Code teilt eine Summe ggfs. nach Jahren auf. Wie muss ich den Code ändern, damit eine Abfrage "eingebaut" wird, die überprüft, ob das Jahr -intB5j- mit der Jahreszahl in Tabelle "Daten", Zelle M1 übereinstimmt. Wenn ja, dann entsprechend weiter.
Wenn nein, dann n...
21.02.2010 08:29:01
Thread-ID: 1139974
6 Beiträge
Wenn in Zelle P Inhalt dann schreibe in Zelle X
Viktoria

Hallo Leute,
hab ne doofe Frage:
Also Ich hab in Zelle P einen Inhalt dann möchte ich, das mir das Makro den Inhalt überprüft, und anhand des Inhaltes in eine Zelle einen String setzt den ich vorgebe.
Bei meinem Lösungsweg ist das Problem, das das Makro komischerweise nicht am Ende...
13.04.2010 09:14:04
Thread-ID: 1151360
6 Beiträge
Wenn in Zelle dann
Viktoria

Hallo Leute,
stehe seit Wochen schon vor dem gleichen Problem.. und hab keine Ahnung wie ich es beheben soll... :(
Also in Spalte Q habe ich Abteilungsbezeichnungen. Dort setzte ich einen Filter und möchte jetzt das mir mein Makro in Spalte M nur die ersten beiden Chars kopiert und dies...
19.04.2010 13:09:51
Thread-ID: 1152553
4 Beiträge
Zahlen mit zwei Stellen
Björn

Ich denke mal für hier ist diese Frage eine etwas banale.
Aber ich komme nicht darauf.
Ich möchte eine Zahl im einstelligen Bereich mit einer Null vorangestellt haben.
Dies möchte ich im Benutzerdefinierten Format so abbilden dass z.B. KW02/11 dargestellt wird.
Ich habe bisher a...
06.12.2010 17:06:35
Thread-ID: 1190291
5 Beiträge
Wenn wert in Zelle dann Button
Rene

Hallo,
warum funktioniert die Auswahl der Buttons nicht mehr wenn Sie im Ttabellenblatt an eine andere Position gesetzt werden.
Die Datei https://www.herber.de/bbs/user/72744.xls wurde aus Datenschutzgründen gelöscht
Würde das Tool gern verwenden.
MfG René
19.12.2010 23:05:53
Thread-ID: 1192146
2 Beiträge
Wenn wert in Zelle dann Button
Rene

Hallo,
warum funktioniert die Auswahl der Buttons nicht mehr wenn Sie im Ttabellenblatt an eine andere Position gesetzt werden.
Die Datei https://www.herber.de/bbs/user/72744.xls wurde aus Datenschutzgründen gelöscht
Würde das Tool gern verwenden.
MfG René
20.12.2010 03:06:11
Thread-ID: 1192147
3 Beiträge
wenn wert in zahlenreihe vorhanden, dann
Sascha

einen schönen guten morgen an alle...
folgendes problem: (Diese Daten stehen in Spalte A, B, C untereinander, die nummern sind komma getrennt in einer zelle)
A--------B-------------C (Spalten)
Farbe--System1----System 2
Rot-----1,2,3,4
Grün---5,6-----------1,2,3...
05.05.2011 12:08:27
Thread-ID: 1213163
14 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige