Live-Forum - Die aktuellen Beiträge
Datum
Titel
13.05.2024 07:00:57
Suche und Ausgabe in anderes Blatt
13.05.2024 04:39:35
Visuelles Verbinden von Zellen mit selben Inhalt.
12.05.2024 23:10:16
Bei 2 gleichen Werten, wert aus 2ter Tabelle übernehmen
12.05.2024 16:15:58
Achsenabschnittlänge ändern
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1900to1904
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1900to1904
1900to1904
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Verketten von Zeilen aus einem Bereich

Verketten von Zeilen aus einem Bereich
11.10.2022 08:26:12
Zeilen
Hallo an die tolle Community,
ich habe hier eine spezielle Anforderung von einer Verkettung. Ich möchte die Werte aus Spalte B verketten, aber nur wenn sie zu einem definierten Bereich gehören. Ich habe die gewünschte Ausgabe in Spalte C hinterlegt. Ich hoffe mir kann jemand helfen.
Vielen Dank im Voraus
https://www.herber.de/bbs/user/155595.xlsm
Gruß Kai

13
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Verketten von Zeilen aus einem Bereich
11.10.2022 09:41:42
Zeilen
Moin Kai!
Versuchs mal damit:

=verketten_wenn(A2;B2)


Public Function verketten_wenn(Bereich As Range, Hexwert As Range)
Set Bereiche = Columns(Bereich.Column).SpecialCells(xlCellTypeConstants)
For Each cl In Bereiche
If cl = Bereich.Value Then
Kette = Kette & " " & Cells(cl.Row, Hexwert.Column)
End If
Next cl
verketten_wenn = Trim(Kette)
End Function
Bei mir lief der Code selbst bei den paar Zeilen recht lang, aber warum kann ich dir grad nicht sagen.
Vielleicht hat jemand anders die Möglichkeit das zu optimieren, daher stell ich mal auf "offen"
Gruß MCO
Anzeige
Außer Konkorrenz...
11.10.2022 09:42:54
{Boris}
Hi,
...weil das hier erst ab xl2019 funktioniert:
=TEXTVERKETTEN(" ";1;WENN(A$2:A$25=A2;B$2:B$25;""))
In Deiner Version muss man alle Elemente einzeln verketten. Um das zu umgehen, bedarf es einer UDF.
Dazu findet sich bereits einiges in den Suchmaschinen. (Excel UDF Textverketten).
VG; Boris
AW: Verketten von Zeilen aus einem Bereich
11.10.2022 09:49:45
Zeilen
Hallo Kai,
fir Formel Verketten gibt es erst in Excel 2019 oder 365. Diese muss man mit einer User Defined Function nachbauen. Es handelt sich um ein VBA-Code, der als Formel verwendet wird. Es muss in einem Modul abgelegt sein (nicht im Codepane von einem Arbeitsblatt oder DieseMappe).

Public Function MyVerketten(ByVal Target) As String
Dim Z As Range
Dim Temp As String
Dim Erg As String
For Each Z In Target
If Z  "" Then
Temp = Z.Text
Do While Len(Temp) > 0
Erg = Erg & Left(Temp, 2) & " "
Temp = Mid(Temp, 3)
Loop
End If
Next
MyVerketten = Trim(Erg)
End Function
(ungetestet)
im Blatt einfach
=MyVerketten(B2:B13)
VG
Yal
Anzeige
AW: Verketten von Zeilen aus einem Bereich
11.10.2022 10:18:04
Zeilen
Hallo Yal,
leider funktioniert dies nicht. In meiner Beispieldatei habe ich in Spalte A auch Bereiche angegeben. Das Verketten soll dann für jeden Bereich separat funktionieren.
Vielen Dank für die Hilfe an alle.
https://www.herber.de/bbs/user/155596.xlsm
Gruß Kai
AW: Verketten von Zeilen aus einem Bereich
11.10.2022 11:21:58
Zeilen
Hi
Wenn die Liste nach den Bereichen sortiert ist, geht das mit zwei Spalten.
In der ersten erweitert du Zeilenweise den Wert um jeden Einzelwertung, bis in der letzten Zeile das Gesamtergebnis steht, in der zweiten Spalte verteilst du es dann über die restlichen Zeilen des Bereichs.
Also in
C2: =$B2&WENN($A2=$A3;" "&C3;"")
D2: =WENN($A1=$A2;D1;C2)
Wenn die Blöcke 2 und 4-Stellig sein können, dann ersetze das $B2 durch:
=Wenn(Länge($B2)=$B2;Wenn(Länge($B2)=4;Links($B2;2)&" "&Rechts($B2;2);B2)
Gruß Daniel
Anzeige
AW: Verketten von Zeilen aus einem Bereich
11.10.2022 11:20:26
Zeilen
Hallo,
in ein Modul:

Function MeineKette(ByVal rHEX As Range, rKrit As Range, vntKRIT)
Dim arrHEX, arrKRIT, i As Long, strTmp As String
arrHEX = rHEX.Value
arrKRIT = rKrit.Value
For i = LBound(arrHEX) To UBound(arrHEX)
If arrKRIT(i, 1) = vntKRIT Then
strTmp = strTmp & IIf(Len(arrHEX(i, 1)) Mod 2, "0", "") & arrHEX(i, 1)
End If
Next
For i = 1 To Len(strTmp) - 1 Step 2
MeineKette = MeineKette & " " & Mid(strTmp, i, 2)
Next
MeineKette = Mid(MeineKette, 2)
End Function
In der Tabelle:
=meinekette($B$2:$B$25;$A$2:$A$25;A2)
und runter kopieren
Gruß
Rudi
Anzeige
AW: Verketten von Zeilen aus einem Bereich
11.10.2022 11:40:00
Zeilen
Hallo Rudi,
vielen Dank für das Modul. Es sieht so aus als ob es genau das richtige ist.
Vielen Dank
Gruß Kai
AW: Verketten von Zeilen aus einem Bereich
12.10.2022 10:01:29
Zeilen
Hallo Rudi,
ich hab noch eine Bitte an Dich. was muss ich in der Funktion ändern um die Ausgabe der Zahlen von:
10 00 00 00 10 00 00 00 10 00 00 00 10 00 00 00
auf :
10000000 10000000 10000000 10000000
geändert wird. habe schon etwas probiert, aber nicht gefunden
Function MeineKette(ByVal rHEX As Range, rKrit As Range, vntKRIT) Dim arrHEX, arrKRIT, i As Long, strTmp As String arrHEX = rHEX.Value arrKRIT = rKrit.Value For i = LBound(arrHEX) To UBound(arrHEX) If arrKRIT(i, 1) = vntKRIT Then strTmp = strTmp & IIf(Len(arrHEX(i, 1)) Mod 2, "0", "") & arrHEX(i, 1) End If Next For i = 1 To Len(strTmp) - 1 Step 2 MeineKette = MeineKette & " " & Mid(strTmp, i, 2) Next MeineKette = Mid(MeineKette, 2) End Function >
Vielen Dank im Voraus
Gruß Kai
Anzeige
AW: Verketten von Zeilen aus einem Bereich
12.10.2022 10:03:37
Zeilen
Hallo,

   For i = 1 To Len(strTmp) - 7 Step 8
MeineKette = MeineKette & " " & Mid(strTmp, i, 8)
Next
MeineKette = Mid(MeineKette, 2)
Gruß
Rudi
AW: Verketten von Zeilen aus einem Bereich
12.10.2022 10:36:39
Zeilen
Hallo Rudi,
vielen Dank für die schnelle Rückantwort. Klappt perfekt.
Hast du vielleicht noch eine Idee, wie man jetzt diese einzelnen Blöcke in einen Hexwert umwandeln kann ?
Also aus:
10000000 10000000 10000000
wird:
80 80 80
Danke
Gruß Kai
AW: Verketten von Zeilen aus einem Bereich
12.10.2022 11:03:52
Zeilen
Hallo,

   For i = 1 To Len(strTmp) - 7 Step 8
MeineKette = MeineKette & " " & Worksheetfunction.Bin2Hex(Mid(strTmp, i, 8))
Next
MeineKette = Mid(MeineKette, 2)
Gruß
Rudi
Anzeige
AW: Verketten von Zeilen aus einem Bereich
12.10.2022 11:17:54
Zeilen
Hallo Rudi
du bist der Beste. Danke dir.
Gruß Kai
AW: Verketten von Zeilen aus einem Bereich
12.10.2022 11:32:18
Zeilen
Hallo Rudi,
eine letzte Anpassung wäre noch super und dann lass ich dich in Ruhe :-). ich habe mal die Datei mit angehangen.
In Zeile 1 und 2 passt es. Ich benötige immer zwei Zeichen für ein vollständiges Byte. Ich habe die gewünschte Ausgabe mit angegeben.
Wenn möglich bitte auch die Info, wie man ggf. die Leerzeichen zwischen den Hexwerten entfernt.
https://www.herber.de/bbs/user/155619.xlsm
Vielen vielen vielen und großen Dank im Voraus
Gruß Kai
Anzeige

300 Forumthreads zu ähnlichen Themen

Löschen von Zeilen unter 1 Bedingung
Zeilen

Hallo,
ich habe in einer Excel Liste Produkte geführt, die den aktuellen Lagerbestand anzeigen.
Dort werden auch die Produkte aufgeführt, deren Produkte einen Lagerbestand von 0 haben.
Der Lagerbestand wird in Spalte B aufgeführt, die Produkte stehen in Spalte A. Der Datenbereich b...
08.08.2008 20:15:00
Thread-ID: 1000407
5 Beiträge
Anzeige
Formel immer nur in bestimmter Zelle
Katrin

Hallo Zusammen!
Folgendes Problem würde ich gerne lösen, weiß aber nicht wie :)
Ich habe in Spalte A in jeder Zeile Uhrzeiten stehen:
00:15:00
00:30:00
00:45:00
01:00:00
01:15:00
01:30:00
01:45:00
02:00:00
02:15:00
02:30:00
02:45:00
...
02.09.2008 10:30:00
Thread-ID: 1006672
3 Beiträge
Zeile ausblenden, wenn in einer Zelle ein bestimmt
Jakob

Hallo,
Ich habe folgendes Problem:
Ich möchte in den Tabellenblatt "Form3" die zeilen 39-50 ausblenden wenn die Zelle A37 ungleich "Pentax" und "Ciclox" ist. Der Wert der Zelle A37 kommt aus der Eingabe im Tabellenblatt "Eingabemaske" (B7).
Wie müßte der entsprechende VBA-Code ausse...
03.09.2008 17:24:21
Thread-ID: 1007176
6 Beiträge
Anzeige
Zeilen ausblenden wenn...
Andreas

Hi,
ich habe ein kleines Problem. Auf meinem Excel-Blatt sind von B4:B200 Datumswerte im Format TT.MM.JJJJ eingetragen. In der Zelle A1 gebe ich nun beispielsweise Januar ein. Ich will nun, dass alle Zeilen ausgeblendet werden, die nicht in der Spalte B ein Januar-Datum eingetragen haben. D...
04.09.2008 20:18:36
Thread-ID: 1007507
10 Beiträge
in einer Spaöte leere Zellen ausblenden
medion53

Hallo, vielleicht kann mir jemand helfen...
Ich habe eine Tabelle A, gefüllt mit Werten bzw Formeln, die Tabelle A verwende ich als Liste für Datengültigkeit. leider bekomme ich die Leerzellen nicht weg...habe gegoogelt und eine Formel gefunden.
http://www.excelformeln.de/formeln.html...
05.09.2008 10:40:00
Thread-ID: 1007607
7 Beiträge
bestimmte Zeilen per Makro ausblenden
Fritz_W

Hallo Forumsbesucher,
ich bitte die VBA-Kundigen unter euch um Hilfe.
Mit welchem Makro kann ich in einer geöffneten Tabelle alle Zeilen ausblenden, in denen in Spalte B ein Datumseintrag steht, der vor dem jeweils heutigen Tag liegt?
Vielen Dank für eure Hilfe
mfg
Fritz
05.09.2008 10:57:00
Thread-ID: 1007611
3 Beiträge
Formel in Zelle per VBA einfügen
Werner

Wie kann ich Statistikformeln (Mittelwert, Maximum, Minimum, Standardabweichung) per VBA in eine Zelle einfügen?
Der zu berechnende Bereich geht von "$J$1" bis "$J$n" wobei n mit ActiveCell.Row-2 zuvor berechnet wird.
Gruß Werner.
10.09.2008 14:17:46
Thread-ID: 1008801
5 Beiträge
Leere(nur Formel drin) Zellen in Diagramm
Volker

Hallo,
ich habe ein Problem und hoffe auf Eure Hilfe!
Ich habe mit Excel2007 (wahrscheinlich besteht das Problem auch in anderen Versionen) ein Diagramm erstellt. Es werden dabei 2 Datenreihen angezeigt. Soweit so gut...
Reihe 1 bildet sich aus 10 Werten, von denen der erste Teil vo...
25.09.2008 16:11:00
Thread-ID: 1012372
6 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
4
13
2
5
7
9
6
2
4
5
10
9
3
5
2
6
3
2
6
2
5
5
7
8
5